Mailinglist Archive: opensuse-de (1798 mails)

[Boris Höffgen <hoeffgen@xxxxxxx>]

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