Ich habe ein Skript geschrieben, das mir das ausfuehren eines Befehls erleichtert. Ich habe folgenden Code...
#!/usr/bin/perl -s
&error("sie muessen noch den Computer als Parameter uebergeben\n") if (!$ARGV[0]);
my $befehl = "export DISPLAY=$ARGV[0]:0";
system($befehl) || die "Konnte den Befehl $befehl nicht ausfuehren! Fehler '$!'";
exit;
sub error()
{
print $_[0];
exit -1;
}
Wieso funktioniert die Befehlsausfuehrung nicht
#!/usr/bin/perl -s
&error("sie muessen noch den Computer als Parameter uebergeben\n") if (!$ARGV[0]);
my $befehl = "export DISPLAY=$ARGV[0]:0";
system($befehl) || die "Konnte den Befehl $befehl nicht ausfuehren! Fehler '$!'";
exit;
sub error()
{
print $_[0];
exit -1;
}
Wieso funktioniert die Befehlsausfuehrung nicht