topic Re: perl question in Operating System - HP-UX

perl question

Jeff Picton — Wed, 28 Jul 2004 08:40:03 GMT

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

Re: perl question

Rodney Hills — Mon, 16 Sep 2024 09:30:44 GMT

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

Re: perl question

H.Merijn Brand (procura — Wed, 28 Jul 2004 08:54:18 GMT

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

Re: perl question

Rodney Hills — Wed, 28 Jul 2004 09:00:27 GMT

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

Re: perl question

harry d brown jr — Wed, 28 Jul 2004 09:12:47 GMT

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