Mega Code Archive

 

Categories / Perl / Network

 

Retrieving a Web Page with get()

#!/usr/bin/perl -w use LWP::Simple; use strict; my $webpage = get("http://www.demo.org/"); if (($webpage) && (grep {/Steve/} $webpage)) {     print "I found the text\n"; }