Help for this page

Select Code to Download


  1. or download this
    if ( $#ARGV < 0 ) {
    print "Usage: $0 [In File][Out File]\n";
...

my $emtocin = $ARGV[0];
my $emtocout = $ARGV[1] || 'cmpemtocout.txt';
  2. or download this
    die "Usage: $0 [In File][Out File]\n" if @ARGV <1;
my ($emtocin, $emtocout)= @ARGV;
$emtocout ||= 'cmpemtocout.txt';
  3. or download this
    my @fld = ( split(/\|/, $record ) )[0, 3..8];
#and print could look like this:
print FDOUT join("\n",@fld),"\n";
#you don't need $outrecord
  4. or download this
    print FDOUT join("\n",@fld),"\n";
#should have course been, 
print FDOUT join('|',@fld),"\n";