10 lines
183 B
Perl
10 lines
183 B
Perl
|
#!/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";
|
||
|
|
}
|