http://www.perlmonks.org?node_id=1232196


in reply to How to escape single quote(s) without the use of quotemeta

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]

edit

  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

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]
      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