|
这个是Perl
[PHP]
&print_ctl();
sub print_ctl()
{
open(FO,">test.ctl"
print FO 'OPTIONS(DIRECT=TRUE,ROWS=0,ERRORS=0,READSIZE=655360)'."\n";
print FO 'LOAD DATA'."\n";
print FO "INFILE \'test\.dat\'\n";
print FO 'TRUNCATE'."\n";
print FO 'INTO TABLE test'."\n";
print FO "FIELDS TERMINATED BY \'\\t\'\n";
print FO "TRAILING NULLCOLS\n";
print FO '(id,name)'."\n";
close(FO);
}
.
[/PHP] |
|