用 perl 來分割 sql 檔案.

perl 來分割 sql 檔案.


open(FHD, "xxx.sql") ;
open(W, "> cut.sql") || die "$!\n";
$i=0;
while (my $line=<fhd>) {
$i++;
$line =~ s/\\([^\\])/$1/g; #做stripslashes.
$line =~ s/\\(\'|\"|\\)/$1/g;#做stripslashes.
print W $line;
last unless ($i < 7035); #7035 行停止

}

close(W);
close(FHD);