Perl: One Liners

Display a unix path nicely.
perl -e 'map {print "$_\n"} split ":", $ENV{PATH}'
perl -e '($_ = $ENV{PATH}) =~ s/:/\n/g; print'

Display a list of valid signals (Tested on FreeBSD, Solaris & Dos).
perl -e "print join(q{ }, keys %SIG), qq{\n}"

Display todays date in the form YYYYMMDD. Explain...
perl -e 'printf("%04d%02d%02d\n", sub {($_[5]+1900, $_[4]+1, $_[3])}->(localtime));'

Roger Hall COMPUSPEC

Web Compuspec.net