chomp($answer = <TTY>);
($a += $b) *= 2;
# strip to basename
($progname = $0) =~ s!^.*/!!;
# Make All Words Title-Cased
($capword = $word) =~ s/(\w+)/\u\L$1/g;
# /usr/man/man3/foo.1 changes to /usr/man/cat3/foo.1
($catpage = $manpage) =~ s/man(?=\d)/cat/;
@bindirs = qw( /usr/bin /bin /usr/local/bin );
for (@libdirs = @bindirs) { s/bin/lib/ }
print "@libdirs\n";
| /usr/lib /lib /usr/local/lib
Forward to Negative Array Subscripts
Back to Embrace Pattern Matching
Up to index
Copyright © 1998, Tom Christiansen
All rights reserved.