Re: Re: Hate Mondays

#!/usr/bin/perl
my @days = ("Su", "Mo", "Tu", "We", "Th", "Fr", "Sa") ;
foreach (@days) {
        if ($_=~/Fr/) {
                print "Friday OWNZ!\n"
                }
        else
        {
                print "$_\n" ;
        }
}
[download]

Comment on Re: Re: Hate Mondays Download Code

Replies are listed 'Best First'.
Re: Re: Re: Hate Mondays by projekt21 (Friar) on Aug 01, 2003 at 17:37 UTC
`#!/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/;` [download] alex pleiner <alex@zeitform.de> zeitform Internet Dienste	[reply] [d/l]