Help for this page

Select Code to Download


  1. or download this
    open FILE,"filename";
read FILE,$file,100000;
close FILE;
  2. or download this
    @lines = split(/\<IMG/,$file);
  3. or download this
    $newfile = shift @lines;
  4. or download this
    foreach $line (@lines) {
  $pos = index($line,'>');
...
  $tag =~ s/SRC\=\"(.*?)\"/SRC\=\"$newurls{$1}\"/gi;
  $newfile .= $tag . $restofline . "\n";
}
  5. or download this
    print $newfile;