note
jwkrahn
<blockquote><i><c>
print "What is the name of the access rights .csv? (Full file name)\n";
my $file = <>;
</c></i></blockquote>
<p>
That would be better written as:
</p>
<c>
print "What is the name of the access rights .csv? (Full file name)\n";
chomp( my $file = <STDIN> );
</c><br /><br />
<blockquote><i><c>
print "Is there a header in this file?\n";
my $header = <>;
if ($header =~ m/^yes|^y]/i){
$header = "1";
}
else {$header = "undef";
}
</c></i></blockquote>
<p>
At this point <c>$header</c> will <b>ALWAYS</b> be true. I think you meant <c>$header = undef;</c> instead of <c>$header = "undef";</c>.
</p><br /><br />
<blockquote><i><c>
open (CSV, "<", $file);
</c></i></blockquote>
<p>
You should always verify that the file opened correctly before trying to use an invalid filehandle.
</p>
<c>
open CSV, '<', $file or die "Cannot open '$file' because: $!";
</c>
1003880
1003880