#!/usr/bin/perl 
# monday_sucks.pl
system("date |grep Mo >/dev/null") ;
if ($? == 0) {
        print "Monday sucks\n" ;
        }

[download]

edited by ybiC: balanced <code> tags

Replies are listed 'Best First'.
Re: Hate Mondays
by projekt21 (Friar) on Aug 01, 2003 at 16:49 UTC

    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

[reply]
[d/l]
      #!/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]
(jeffa) Re: Hate Mondays
by jeffa (Bishop) on Aug 02, 2003 at 13:25 UTC
[reply]

Back to Perl Poetry