Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
        print "$1, $2 \n";

}
  2. or download this
    while ($html =~ m|href\s*=\s*"((?:[^/]+://[^"/]+)?)/?([^"]+)"\s*>(.*?)
+</A>|gi) {

        print "$1, $2, $3 \n";

}