in reply to Re: Re: Hate Mondays
in thread Hate Mondays
#!/usr/bin/perl use LWP::Simple; my $source = get("http://www.time.com/time/"); my ($first) = ($source =~ /<!--([^<>]+)-->/); print "Friday rocks!\n" if $first =~ /\bFri\b/;
alex pleiner <alex@zeitform.de>
zeitform Internet Dienste
In Section
Perl Poetry