[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:


#!/bin/bash

. 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 
prettier

Jay


More information about the Chicago-talk mailing list