use strict;
use CGI;
#use some mail module like MIME::Lite
open(Filenm,"filenames.csv") || die "the file is not ready
+to be opened";
while (<Filenm>){
local $/;
# Here the file's size is important, for a lesser size t
+his is ok
my @pindigits = split(',',$_);
$pinforphonecard = shift(@pindigits);
# have the cgi stuff and MIME::Lite or any that you u
+se for mailing part with the $pinforphonecard as the one to be let to
+ send
# then go ahead and remove the $pinforphonecard and a co
+mma from the file
$_ =~ s/$pinforphonecard,//g;
last;
}
You should actually go for Tie::Db... as Merlyn observes, as you insist on csv , you could do this way
|