Anonymous

#!/usr/bin/perl

$SRC_COLUMN  = $ARGV[0] || die "Usage: test1.pl SRC_COLUMN SRC_PATTERN DST_PATTERN\n";
$SRC_PATTERN = $ARGV[1] || die "Usage: test1.pl SRC_COLUMN SRC_PATTERN DST_PATTERN\n";
$DST_PATTERN = $ARGV[2] || die "Usage: test1.pl SRC_COLUMN SRC_PATTERN DST_PATTERN\n";


open( FH, "DB2PRODCDLIST822_ESE.TBL" );

#my $contents = ();

while( <FH> ) {

    @element = split( ',', $_ );
    if( $_ =~ /$SRC_PATTERN/ ) {
        for( $i=0; $i < 9; $i++ ) {
            if( $i == $SRC_COLUMN ) {
                print "\"$DST_PATTERN\",";
            } else {
                print "$element[$i],";
            }
        }
        print "$element[9]";

    } else {
        print $_;
    }


}