Guest Gast

Code (perl): (dl )

1
2
3
4
5
6

#!/usr/bin/perl
while ( <DATA> ) {
    chomp;
    my( $Nachname, $Vorname, $Telefon ) = split /,/;
    $sth->execute( $Nachname, $Vorname, $Telefon );
}

1
2
3
4
5

while (my $line = <DATA>) {
    chomp $line;
    my( $Nachname, $Vorname, $Telefon ) = split /,/, $line;
    $sth->execute( $Nachname, $Vorname, $Telefon );
}