in reply to Re: Hate Mondaysin thread 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]
#!/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
www.com | www.net | www.org
No recent polls found