Thread SQL Statement aus Text Datei lesen (3 answers)
Opened by tophoven at 2008-03-22 21:01

Strat
 2008-03-28 12:43
#107589 #107589
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
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/

View full thread SQL Statement aus Text Datei lesen