[Kc] Using Perl

Jay Hannah jay at jays.net
Mon Jul 31 16:24:23 PDT 2006


Garrett Goebel wrote:
> Well, perhaps you'd like to submit a "best practices" version?

Before:

> bash-2.03# cat build_all_server_shutdown.sh
> #!/bin/bash
> USERNAME="username"
> PASSWORD="password"
>
> LOGFILE="all_server_shutdown.txt" \
> COMMAND="psshutdown" \
> CLOPTIONS="-s -t 1 -u ${USERNAME} -p ${PASSWORD}" \
> /usr/bin/perl -ne 'BEGIN { $d=("-")x5; $r="REM"; $fn=$ENV 
> {LOGFILE}; @cmd=($ENV{COMMAND}." ".$ENV{CLOPTIONS}." \\\\"," >>  
> $fn"); $fl=<>; print "$r ${fl}erase $fn\n"; } next if /^(#)|($r)/;  
> tr/a-z\r\n /A-Z/d; $_=(/^(SVR_)|(other)/i?"$r\n$r [$d$_$d]\n":join 
> ($_, at cmd)."\n"); print;' < $1 > $2

Huh. I can't even get that to run. The error I get:

   line 5: $1: ambiguous redirect

Its basically generating a file to disk? Can you post a sample file?

j
 


More information about the kc mailing list