topic Re: yet another quick perl question in Operating System - HP-UX

yet another quick perl question

Steven E. Protter — Mon, 07 Mar 2005 09:34:09 GMT

Got a perl script:

my $refer = "\"certified.shmtl\"";
print "Before: ",$refer,"\n";
# $refer =~ tr ?/??d;
print "After : ",$refer,"\n";

The first print statement prints

"certified.shtml"

I need to strip the trailing and leading double quotes out of the string. Can't seem to make line 3 (commented) do that for me.

Thanks to A. Clay Stephenson forthe base code.

Background: while moving a html document from one location to another, I'm pulling alont the VIRTUAL include document embedded in the document as well.

The line starts out looking like:

I used awk to cook it down to "certified.shtml"

Good Solution: 1 line of perl that strips out the trailing and leading double quotes.

Pefect solution: Perl code that goes straight through the html docu and gives me certified.shtml

SEP

Re: yet another quick perl question

Ken Penland_1 — Mon, 07 Mar 2005 09:41:40 GMT

$refer =~ s/\"//g;

Re: yet another quick perl question

H.Merijn Brand (procura — Mon, 07 Mar 2005 09:44:04 GMT

my $refer = qq{"certified.shmtl"}; # /me woders if that should have been shtml

print "Before: $refer\n"; # Wy list, just interpolate!
$refer =~ tr/"//d; # or $refer =~ s/"//g;
print "After: $refer\n";

Safe and generic:

$refer =~ s/^\s*"?(.*)"?\s*$//;

And your one-liner:

# perl -nle'm{include\s+virtual="([^"]+)"} and print $1' blah.html

Enjoy, Have FUN! H.Merijn

Re: yet another quick perl question

Steven E. Protter — Mon, 07 Mar 2005 09:44:05 GMT

Thats a bunny.

I'll leave the thread open a few hours in case someone wants to do the Perfect solution.

SEP

Re: yet another quick perl question

H.Merijn Brand (procura — Mon, 07 Mar 2005 09:44:46 GMT

Drat! I cannot type *that* fast!

Re: yet another quick perl question

Steven E. Protter — Mon, 07 Mar 2005 09:52:16 GMT

Note:

The perl script was already running, so a one liner was not actually needed.

What was asked in the perfect answer was a few lines of code to search the a different file say named column.shtml for that

and get the filename certified.shtml into a variable.

Thread still open, a chance for Merijn to double his pointage.

SEP

Re: yet another quick perl question

H.Merijn Brand (procura — Mon, 07 Mar 2005 09:58:55 GMT

# perl -nle'm{include\s+virtual="([^"]+)"}i and print $1' column.shtml

or inside the script

:
:
m{include\s+virtual="([^"]+)"}i and print $file = $1;
:
:

$file now contains "certified.shtml"

Enjoy, Have FUN! H.Merijn

Re: yet another quick perl question

Hein van den Heuvel — Mon, 07 Mar 2005 10:27:56 GMT

If that syntax is stable, then you can exploit the double-quote to split the line on:

Some variation of:

perl -ne 'if (/INCLUDE VIRT/) { $file=(split(/"/))[1]; print "file=$file\n "}' input-data.

Re: yet another quick perl question

Steven E. Protter — Mon, 07 Mar 2005 15:58:46 GMT

Having a testing issue.

#!/opt/perl/bin/perl

# $refer =~ s/\"//g;
$refer = "stevefile";

m{include\s+virtual="([^"]+)"}i and print $file = $refer;

print "After : ",$file,"\n";

Does not produce output.

/opt/perl/bin/perl -nle'm{include\s+virtual="([^"]+)"}i and print $1' stevefile

Output:
hpuxws.shtml

searches the file and produces appropriate output.

Kind of wonderinig what I'm doing wrong. I like Merijn's approach and would like to finish the job. I have tried submiting the file stevefile on the command line but that produces nothing new and does not accomplish objective.

The file name inbedded in the file stevefile is the output I want, double quotes stripped.

SEP
~

Re: yet another quick perl question

H.Merijn Brand (procura — Wed, 09 Mar 2005 16:31:12 GMT

In this snippet:
--8<---
#!/opt/perl/bin/perl

# $refer =~ s/\"//g;
$refer = "stevefile";

m{include\s+virtual="([^"]+)"}i and print $file = $refer;

print "After : ",$file,"\n";
-->8---
I do not see a loop that puts every line of the file being parsed in $_, something that the -n option in

--8<---
/opt/perl/bin/perl -nle'm{include\s+virtual="([^"]+)"}i and print $1' stevefile
-->8---

does. In your script, you match against $_, which is empty. So if you want the *script* to do the same as the oneliner, change it to something like

--8<---
#!/opt/perl/bin/perl

my $file = "?";
@ARGV = ("stevefile");
while (<>) {
m{include\s+virtual="([^"]+)"}i and $file = $1;
}
print "After : ",$file,"\n";
-->8---

and see if that fits your needs

Enjoy, Have FUN! H.Merijn

Re: yet another quick perl question

Steven E. Protter — Wed, 09 Mar 2005 16:34:12 GMT

Thanks Merijn,

Funny you posted it right after I finished coding it to work with an external shell script.

I will however play with this, because I didn't like the idea of going to the external shell script in the first place.

Top notch. Bunny in transit.

SEP