(Buzzcutbuddha - Formatting of question) - Re: one line programs

[buzzcutbuddha]

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";
}

Is this the code you had in mind?

[lorenw14]

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";
}

Thanks for your help.

[lorenw14]

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";
}

Thanks for your help.