perl - skript mit parameter übergabe ?

[filou]

Hallo, ich habe mir folgendes Skript gebastelt um mir Passwörter verschlüsslen zu lassen.



#!/usr/bin/perl -w

$var="test";

sub c_passwd {
$userpass = crypt("$var","vC");
return $userpass;
}

$er=c_passwd($var);
print $er;


Nun Rufe ich dieses Skript in einem Shellskript auf. Soweit so gut - Aber ich möchter erst im Shellskript die Variable $var übergeben. Ich muss irgendwie das Teil mit nem Parameter audrufen, bzw. umbauen. Aber leider schlugen alle meine Versuche fehl.
Also so in der Art.



useradd -c $n -d /home/$n -G users -p `perl passwd_gen.pl(Parameter)` $n


Wie muss dann das Perlskript aufgebaut sein ??

mfg

[RapidMax]

@ARGV enthält die Kommandozeilen-Parameter. Die Argumente übergibst du wie üblich:

perl passwd_gen.pl Parameter1 Parameter2

z.B. durch die Argumente iterieren:

my $arg;
foreach $arg (@ARGV) {
print "$arg\n";
}

Gruss, Andy

[filou]

Genau das wars. Danke