Thread SQL Statement aus Text Datei lesen
(3 answers)
Opened by tophoven at 2008-03-22 21:01
also wenn nach jedem statement z.B. ; steht, kann man ja das als "zeilentrenner" beim einlesen verwenden, indem du $/ setzt, z.B.:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 my $FH; unless( open( $FH, '<', $sqlFile ) ) { die "Error: can't open file '$sqlFile': $!\n"; } else { local $/ = ';'; while( my $statement = <$FH> ) { chomp( $statement ); my $sth = $dbh->prepare( $statement ) or die "Error in prepare: " . $dbh->errstr; $sth->execute() or die "Error in excute: " . $dbh->errstr; } # while $statement close( $FH ) or die "Error at closing file '$sqlFile': $!\n"; } perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/ |