08-27-2009, 02:12 PM
|
|
Banned
|
|
Join Date: Aug 2009
Location: look behind you
Posts: 30
|
|
could we add something to this
Quote:
while(<STDIN>) {
chomp();
s/'/\\'/g;
@f=split("(?<!\\\\)\\|", $_);
$insert2=join("','",@f);
$#f--;
grep(s/\\\|/\\\\\|/g,@f);
grep(s/"/\\\\"/g,@f);
$statement=sprintf("%s%s','13THFLOOR',now()",$inse rt,$insert2,join('|',@f));
$dbh->do($statement);
printf("Processing: %d %s \r",$f[4],$f[1]);
++$count;
}
|
to replace || With |NULL|? Im not that good with perl |