Help for this page
#!/usr/bin/perl use strict; use Text::CSV;
my $input="input.csv"; my $output="output.txt"; ... open(INFILE,$input) || die "Can't open file $input"; open(OUTFILE,">$output") || die "Can't open file $output"; open(TRASH,">$trash") || die "Can't open file $trash";
while (<INFILE>) { if (/"X"/) { #The trash data has these 3 characters in it ... } } }
close INFILE; close OUTFILE; close TRASH; unlink $trash;
www.com | www.net | www.org
No recent polls found