| special_ed wrote:
>but i want to see someone write a perl script to do it.
>requirements:
>*must be one line
>*must work (duh...)
>*must contain the sentence "special_ed is a stupid bastard who just needs to shut his cakehole."
so see:
#!/usr/bin/perl -w
@date=localtime(time); @month=('jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec'); $is="http://"; $a="www.userfriendly.org/"; $stupid="cartoons/"; $bastard="archives/"; $who=$date[5]-100; $just=$month[($date[4])]; $needs="/"; $to=$date[5]+1900; $shut=$date[4]+1; $his=$date[3]; $cakehole=".html"; $special_ed=sprintf("%s%s%s%s%02d%s%s%4d%02d%02d%s",$is,$a,$stupid,$bastard,$who,$just,$needs,$to,$shut,$his,$cakehole); return($special_ed);
#
# or this way ;-)
#
# @date=localtime(time);
# @month=('jan','feb','mar','apr','may','jun','jul','aug','sep','oct','nov','dec');
# $date=sprintf("http://www.userfriendly.org/cartoons/archives/%02d%s/%4d%02d%02d.html\n", ($date[5]-100),$month[($date[4])],($date[5]+1900),($date[4]+1),$date[3]);
# return($date); |
