Re^2: 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!

Comment on Re^2: How to escape single quote(s) without the use of quotemeta Select or Download Code

Replies are listed 'Best First'.
Re^3: How to escape single quote(s) without the use of quotemeta by LanX (Saint) 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]

Replies are listed 'Best First'.

Re^3: How to escape single quote(s) without the use of quotemeta
by LanX (Saint) on Apr 05, 2019 at 15:31 UTC

  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]