Re^3: creating a ksh wrapper in perl

Hi edrew04, here is a working version. The newly added lines are marked with '###'.

use strict;
use warnings;
use Text::CSV;

my @data;   # 2D array for CSV data
my $file = 'AMS.csv';

my %dept_code = (          ###
  1001 => 'IT',            ###
  1002 => 'HR',            ###
  1003 => 'PURCHASING',    ###
);

my $csv = Text::CSV->new({ binary => 1, quote_null => 0 });
open my $fh, '<', $file or die "Could not open $file: $!";

while( my $column = $csv->getline( $fh ) ) {
  push @data, $column;
}


open $fh, ">:encoding(utf8)", "PPS.csv" or die "PPS.csv: $!";
for (@data) {
  $_->[0] += 2000;                    ###
  $_->[7] = $dept_code{$_->[7]};      ###
  $csv->print($fh, $_);
  print $fh "\n";
}
close $fh or die "PPS.csv: $!";
[download]

Comment on Re^3: creating a ksh wrapper in perl Download Code

Replies are listed 'Best First'.
Re^4: creating a ksh wrapper in perl by edrew04 (Initiate) on Jan 25, 2015 at 16:50 UTC
i tried executing it but it yields the ff. error: C:\Users\user\Desktop\perl>perl test4.pl Argument "" isn't numeric in addition (+) at test4.pl line 24, <$fh> l +ine 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. Argument "" isn't numeric in addition (+) at test4.pl line 24, <$fh> l +ine 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. [download]	[reply] [d/l]
Re^4: creating a ksh wrapper in perl by edrew04 (Initiate) on Jan 25, 2015 at 16:55 UTC
i tried executing it but it yields the ff. error: C:\Users\user\Desktop\perl>perl test4.pl Argument "" isn't numeric in addition (+) at test4.pl line 24, <$fh> l +ine 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. Use of uninitialized value in hash element at test4.pl line 25, <$fh> +line 11. Argument "" isn't numeric in addition (+) at test4.pl line 24, <$fh> l +ine 11. [download]	[reply] [d/l]
Re^5: creating a ksh wrapper in perl by pme (Monsignor) on Jan 25, 2015 at 17:39 UTC
Is these lines are also in AMS.csv? `1,2002 2,2001 3,2003 1001,IT 1002,HR 1003,PURCHASING` [download]	[reply] [d/l]
Re^6: creating a ksh wrapper in perl by edrew04 (Initiate) on Jan 25, 2015 at 17:42 UTC
yes they are also included in the csv. sorry for the confusion	[reply]
Re^7: creating a ksh wrapper in perl by pme (Monsignor) on Jan 25, 2015 at 17:49 UTC


There's more than one way to do things
	PerlMonks