Angabe von Parametern beim Skriptaufruf: Getopt::Long - #71587 (Allgemeines zu Perl)

Duff

2006-11-10 11:05

User since
2006-10-06
283 Artikel
BenutzerIn

user image

Danke, dann müss ich wohl noch ein wenig warten.

Habe aber jetzt das Problem, dass ich die Ausgabe bisher so gemacht habe:

Code: (dl )

#foreach my $array ( @{$arrayRef} )
#{
#       if($param2) {
#               my @result=();
#               while ($array->[1] =~ /Match/igm) {
#                       push @result, $1. " --> " .$2. "\t";
#               }
#               printf "%-90s :  %-s\n", $array->[0], join(" ",@result);
#       }else{
#               print "$array->[0]\n", "${$array}[1]\n";
#       }
#}

So, ich dachte mir, dass die Abfrage nach den verschiedenen angegebenen Parametern wohl nicht so gut sind, wenn ich diese in der foreach-Schleife mache, oder?

Deshalb wollte ich die Abragen einfach in if-elsif-else Anweisungen machen und dann je nach gesetzter Option eine Funktion ausgabe1, ausgabe2, uws. aufrufen, die dann für die Ausgabe zuständig ist.

Doch leider will das nicht so wie ich es gerne hätte.
Habe es mal so probiert:

Code: (dl )

sub ausgabe1 {
        foreach my $array (my @{$arrayRef} ) {
                print "$array->[0]\n", "${$array}[1]\n";
        }
}

usw.

Den Aufruf habe ich so probiert (bestimmt auch falsch ;-()

Code: (dl )

if($param2) {
        ausgabe2(@{$arrayRef});
}
else {
        ausgabe1(@{$arrayRef});
}

D'OH
Daniel