[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