Hallo Michael, Michael Post schrieb:

Hallo Boris,

Boris Höffgen schrieb:

...

Hallo Leute,

man lernt ja nie aus. Wenn ich ein Perl-Script mittels "perl ./parse.pl" starte, kommt folgende Meldung und er legt eine Datei namens perl an: bash: ./parse.pl: /usr/bin/perl: bad interpreter: Das Programm kann nicht ausgeführt oder verändert werden (busy)

Starte ich es nur mit "./parse.pl" kommen irgendwelche Fehlermeldung bzgl. Kommandos, die er nicht findet und die Skriptdatei ist leer.

wo bekommen wir das Perl-Skript her? Kannst mir den Quellcode zusenden?

ich habe das Skript gekürzt und es ist jetzt recht trivial und sieht so aus: #!/usr/bin/perl use 5.004; use strict; use Fcntl qw(:flock); use DBI; my $mysql= "/usr/bin/mysql"; my $mysql_user = "user"; my $mysql_pwd = "passwort"; my $mysql_db = "db"; my $mysql_server = "localhost"; my @array; my $dbh = DBI->connect("DBI:mysql:$mysql_db:$mysql_server", $mysql_user,$mysql_pwd, { RaiseError=>1 }) or die "Couldn't connect to database: " . DBI->errstr; my $sth; my $query; # # Table leeren $query="DELETE FROM artikel_abgleich"; $sth = $dbh->prepare($query) or die $dbh->errstr; $sth->execute() or die $dbh->errstr; # # Auswertung csv-File if($ARGV[0] eq ("-h" || "--help") || $ARGV[0] eq "") { printf "\nUsage: parse.pl [cvs-file] [lieferant]\n"; printf "argument:\n1.)File\n2.)-h: help\n"; printf "3.)--help: help\n\n"; exit; } system("echo Beginne Daten-Import..."); open(INPUT, "<$ARGV[0]") or die "Can't open File!"; while(<INPUT>) { @array = split(/;/,$_); } Das Problem ist immer das gleiche. Das Schöne ist, mal geht es, mal nicht. Gruß Boris