[Chicago-talk] Piping a command into perl?

Jay Strauss me at heyjay.com
Sat Mar 18 15:03:56 PST 2006

Here is exactly what I'm doing:


. tws.setup # this does a whole bunch of setup for the current shell

perl -e '
    my @a = <*.jar>;
    print join ":", grep { !/jtsclient|Guide/ } (map { s/\//./g; $_ } @a);

#   When you run this script it produces a line like below to STDOUT
#   jcommon-1.0.0.jar:jfreechart-1.0.0.jar:jhall.jar:jts.jar:other.jar:rss.jar

What I have works, I just thought I'd put the perl into a heredoc and make it 


More information about the Chicago-talk mailing list