Irgendeine zahl in array - #136543 (Allgemeines zu Perl)

conray

2010-04-29 17:15

User since
2010-02-19
52 Artikel
BenutzerIn
[default_avatar]

das ging schnell :)

ich zähle die zahlen von 0 bis unendlich dazu :D

es geht hierdrum http://www.perl-community.de/bat/poard/thread/1470...

Abschnitt -pwgen aber als standalone script ohne getopt-long

ich möchte dem script einen parameter -n oder so mitgeben können oder eine zahl (also länge des $pw) oder beides. falls keine zahl im @ARGV is soll gefragt werden (ist ja gemacht)

also wenn eine zahl im @ARGV verhanden ist dann solll $input diese zahl sein, wenn keine vorhanden ist dann wird $input später über <STDIN> belegt.
habe esskars Zeile mal testweise übernommen

Code (perl): (dl )

my $exists = scalar grep { my $x = int $_; "$x" eq $_ } @ARGV;
if (defined $exists) {
  $input =  $exists;
   }

Dabei bekomm ich aber immer nur ein $pw mit einem einzigen Zeichen raus :-D

mfg
conray