one line programs

lorenw14 has asked for the wisdom of the Perl Monks concerning the following question:

I have been working on converting files to a one-line explicit command line to the Perl interpreter but I have no idea how to do this one.

while(<>){
 while(/A\s+HREF\s*=\s*"([^"]+)"/ig){
   $foo{$1}=1;
 }
}
for(keys %foo){
     print "<img src=\"$_\"><br>\n";
}
[download]

Edit 2001-04-16 by Corion : Added <CODE> tags

Comment on one line programs Download Code

Replies are listed 'Best First'.
(sacked: HTML::LinkExtor) Re: one line programs by sacked (Hermit) on Apr 16, 2001 at 05:28 UTC
Please don't try and parse HTML yourself. To extract links from an HTML document, see HTML::LinkExtor. Please do use the search box at the top of every PM page. I typed in 'extract links', and here are a few of the results it returned: How do I parse links out of a web page How can I find the links in HTML tags? Filter Links in HTML-documents, and in that thread: Re: Filter Links in HTML-documents As an aside, please read some of the documentation on the site before posting. For a good starter, read all of the documents linked from footpad's Re: FAQ Node. --sacked	[reply]
(Buzzcutbuddha - Formatting of question) - Re: one line programs by buzzcutbuddha (Chaplain) on Apr 16, 2001 at 05:28 UTC
your example would be easier to follow if enclosed in <code></code> blocks. It works similar to the PRE tags in HTML. I imagine you were downvoted because the code is hard to read: `{ while(/A\s+HREF\s=\s"(^"+)"/ig) { $foo{$1}=1; } } for(keys %foo) { print "\n"; }` [download] Is this the code you had in mind?	[reply] [d/l]
Re: (Buzzcutbuddha - Formatting of question) - Re: one line programs by lorenw14 (Initiate) on Apr 16, 2001 at 05:45 UTC
Sorry about that, this is the first time that I have used this site and I was not quite sure how to use the but I think that I got it now. Yeah, the code that I was trying to convert to a one-liner was `while(<>) { while(/A\s+HREF\s=\s"([^"]+)"/ig){ $foo{$1}=1; } } for(keys %foo){ print "<img src=\"$_\"><br>\n"; }` [download] Thanks for your help.	[reply] [d/l] [select]
Re: (Buzzcutbuddha - Formatting of question) - Re: one line programs by lorenw14 (Initiate) on Apr 16, 2001 at 05:48 UTC
Sorry about that, this is the first time that I have used this site and I was not quite sure how to write in the code but I think that I got it now. Yeah, the code that I was trying to convert to a one-liner was `while(<>) { while(/A\s+HREF\s=\s"([^"]+)"/ig){ $foo{$1}=1; } } for(keys %foo){ print "<img src=\"$_\"><br>\n"; }` [download] Thanks for your help.	[reply] [d/l]