5 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
+--------------+--------------+------+-----+---------+-------+
| Field | Type | Null | Key | Default | Extra |
+--------------+--------------+------+-----+---------+-------+
| feld01 | varchar(8) | NO | | | |
| feld02 | varchar(40) | NO | PRI | | |
| feld03 | varchar(16) | NO | PRI | | |
| feld04 | varchar(64) | NO | PRI | | |
| feld05 | varchar(32) | NO | PRI | | |
| feld06 | varchar(32) | NO | PRI | | |
| feld07 | varchar(32) | NO | PRI | | |
| feld08 | varchar(32) | NO | PRI | | |
| feld09 | varchar(16) | YES | | NULL | |
| feld10 | varchar(16) | NO | PRI | | |
| feld11 | varchar(3) | NO | PRI | | |
| feld12 | varchar(2) | NO | | | |
| feld13 | varchar(256) | YES | | NULL | |
| feld14 | varchar(128) | YES | | NULL | |
+--------------+--------------+------+-----+---------+-------+
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use FileHandle;
use DBI;
my $dbh = connect2db();
my $file = "blubb.txt";
my $fh = new FileHandle;
if ($fh->open("< $file")) {
while( $fh->getline() ) {
my ($feld1, $feld13) = split/\#/, $_);
my $sql = qq~
INSERT INTO Tabelle ..... $feld1, $feld13
~;
# statement wie in DBI.pm beschrieben ausführen
}
$fh->close();
}else{
# fehlermeldung...
}
5 Einträge, 1 Seite |