if [ "X${substitute}" = "Xy" -o "X${substitute}" = "XY" ] then cat $inputfile | perl -e 'while(<STDIN>) { if( length( $_ ) > 3 ) { @args=split(/\|/,$_); if( $args[1] eq '$service' && $args[3] eq '$bundle' ) { @args=split(/\|/,$_); $args[4] =~ s/N/Y/; print join("|",@args); } else { print $_ } } else { print $_ } }' > $tmpfile
In reply to Syntax question... by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |