Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^2: How to escape single quote(s) without the use of quotemeta

by thanos1983 (Parson)
on Apr 05, 2019 at 15:23 UTC ( #1232197=note: print w/replies, xml ) Need Help??


in reply to Re: How to escape single quote(s) without the use of quotemeta ( q// )
in thread How to escape single quote(s) without the use of quotemeta

Hello LanX,

I have also tried with q but it did not worked for me.

The desired output would be something like:

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

my $string = "It's";
say quotemeta $string;

__END__

$ perl test.pl
It\'s

[download]

Thanks again for your time and effort.

BR / Thanos

Seeking for Perl wisdom...on the process of learning...not there...yet!

Replies are listed 'Best First'.
Re^3: How to escape single quote(s) without the use of quotemeta
by LanX (Cardinal) on Apr 05, 2019 at 15:31 UTC
    what about the backslash, do you really want quotemetas behavior?

      DB<26> x q(It's\ )
0  'It\'s\\ '
  DB<27> x quotemeta q(It's\ )
0  'It\\\'s\\\\\\ '

...

  DB<29> x quotemeta q(It's\x)
0  'It\\\'s\\\\x'

    [download]

    FWIW you can write a regex which consumes every paired backslash in an or'ed condition before replacing single quotes/backslashes.

    But a real test-cases are imperative here.

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

    update

    this shows that the input format should be well defined too

      DB<37> dd quotemeta q(It's\x\\)
"It\\'s\\\\x\\\\"

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1232197]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2021-04-12 18:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found
    Notices?