in reply to 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

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]
      #!/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]

In Section Perl Poetry