Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

dasgar's scratchpad

by dasgar (Priest)
on Aug 12, 2010 at 05:21 UTC ( [id://854576] : scratchpad . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my $page = get($url);
    
    my $p = HTML::TokeParser->new(\$page) || die "problem:  $!\n";
    
  2. or download this
    use strict;
    use warnings;
    ...
      }
      else {return 0;}
    }
    
  3. or download this
    use strict;
    my $file;
    ...
      $file = <FH>;
    }
    close(FH);
    
  4. or download this
    use strict;
    
    ...
        print "\n";
      }
    }