Using the script below I need to add a second line with the following text: "STAGEHDR|Barcoded"
#!perl
use strict;
use warnings;
my $file = 'path/to/Access.csv';
my $newline = "ENTHDR|1|3.0";
{
local @ARGV = ($file);
local $^I = '.bac';
while(<>){
if ($. == 1) {
print "$newline$/";
}
else {
print;
}
}
}
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
