perl question

[Jeff Picton]

Hi all

Can anyone explain what the print statement below means :-

print "print \q\q\(${tab}before $1 loop line $ct\)\;${marker}\n)";

Cheers

Jeff

[Rodney Hills]

Looks like it generating a print statmement for another language. ${tab}, $1, $ct, and ${marker} will be replaced with whatever their current values are. The \n before the ) is odd, since it will put the ) on the next line. The \q\q would generate 2 " marks.

What else do you need explained?

-- Rod Hills

[H.Merijn Brand (procura]

For *my* perl's it does do nothing, since \q is *NOT* a recognized escape

--8<--- xx.pl
use strict;
use warnings;

my $tab = "\t";
"some string match on some pattern" =~ m/(match)/;
my $ct = "CT";
my $marker = "##";

print "print \q\q\(${tab}before $1 loop line $ct\)\;${marker}\n)";
-->8---

lt09:/tmp 127 > perl xx.pl
Unrecognized escape \q passed through at xx.pl line 11.
Unrecognized escape \q passed through at xx.pl line 11.
print qq( before match loop line CT);##
)lt09:/tmp 128 >

the qq() operator acts as double quoted strings, and the generated string reminds me of postscript if that is of any help

Enjoy, Have FUN! H.Merijn

[Rodney Hills]

You're right about the \q (I think I'm remembering some other system), but without the warn/restrict you just get a "q".

Now that you mention it it does kind of look like postscript code...

-- Rod Hills

[harry d brown jr]

It's producing perl code:

perl -e '$tab=TAB;$one=DOLLARONE;$ct=CT;$marker=MARKER;print "print \q\q\(${tab}
before $one loop line $ct\)\;${marker}\n)";'

print qq(TABbefore DOLLARONE loop line CT);MARKER

what else is the program doing?

live free or die
harry