Shell Programming and Scripting

#!/usr/bin/perl -w
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $sep = chr(126);
my $md5gen ||="";
open ( my $DAT, "paflink filename |") or die "Could not open $ARGV[0]: $!";
while (my $line = <$DAT>) {
$line =~ s/\r?\n$//;
$line =~ s/^A //s;
my @fld = split $sep, $line;
my $md5txt="";
if ( ( !$fld[23] ) && ( $fld[19] && $fld[20] && $fld[21] ))
{
my $md5txt= $fld[19]." ".$fld[20]." ".$fld[21];
my $md5upper= uc($md5txt);
$md5gen=$md5upper;
}
elsif ( ( $fld[23] ) && ( $fld[19] && $fld[20] && $fld[21] ))
{
my $md5txt= $fld[23];
my $md5upper= uc($md5txt);
$md5gen=$md5upper;
}

if ( $md5gen ) {

print $line . $sep . md5_hex($md5gen) ."\n";

} else {

print $line . $sep ."\n";

}
undef $md5gen;
}
close $DAT;

Originally Posted by Chubler_XL

Replace this:

Code:

open ( my $DAT, "paflink filename |") or die "Could not open $ARGV[0]: $!";

With this:

Code:

open(my $DAT, "-|", "paflink filename") or die $!;