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

not sure if I understand your requirement, does q help?

  DB<2> x q(LanX' solution)
0  'LanX\' solution'
  DB<3> x q(LanX\' solution)
0  'LanX\\\' solution'
[download]

  DB<14> use Data::Dump qw/dd/

  DB<15> dd q(LanX' solution)
"LanX' solution"

  DB<16> dd q(LanX\' solution)
"LanX\\' solution"
[download]

If not what is your desired output?

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

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

Replies are listed 'Best First'.
Re^2: How to escape single quote(s) without the use of quotemeta by thanos1983 (Parson) on Apr 05, 2019 at 15:23 UTC
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!	[reply] [d/l] [select]
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]