Command Line Arguments: Komandozeilen-Argumente (Allgemeines zu Perl)

[thread]7838[/thread]

Command Line Arguments: Komandozeilen-Argumente

Leser: 1

Cu8e

2006-03-29 13:23

User since
2006-03-07
7 Artikel
BenutzerIn
[default_avatar]

Hi,

ich habe ein kleines Problem. Beim Aufruf des Perl-Skripts will ich Argumente mitgeben. Leider werden diese erst gar nicht mit an das Skript gegeben.

So sieht ein Beispiel-Skript aus:

Code (perl): (dl )

my @cmd_option;

@cmd_option = @ARGV;

print "Argument: $cmd_option[0]\n"; #Hier kommt schon nix raus

&CmdLineArg (@cmd_option);

sub CmdLineArg {
  my $opt = $_[0];

  SWITCH: {
    if ($opt eq "") {
      print "No Command Line Argument given!\n";
    }

    if ($opt eq "copy") {
      print "Command Line Argument $opt given!\n";
    }
  }
}

Der Aufruf des Skripts sieht so aus:
test.pl copy

Das ganze soll unter W2K laufen. Kann mir jemand dabei helfen oder hat jemand eine Erklärung, woran das liegen könnte?

Danke für Eure Hilfe.

renee

2006-03-29 13:31