Re: Hate Mondays

I don't want to be a spoil sport -- but as today is Friday -- how about:

perl -e 'print "Friday rulez\n" if (localtime)[6] == 5;'
[download]

alex pleiner <alex@zeitform.de>
zeitform Internet Dienste

Comment on Re: Hate Mondays Download Code

Replies are listed 'Best First'.
Re: Re: Hate Mondays by hash (Scribe) on Aug 01, 2003 at 17:22 UTC
`#!/usr/bin/perl my @days = ("Su", "Mo", "Tu", "We", "Th", "Fr", "Sa") ; foreach (@days) { if ($_=~/Fr/) { print "Friday OWNZ!\n" } else { print "$_\n" ; } }` [download]	[reply] [d/l]
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]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks