Perl - jen tisk promenne

[Ladislav Vaiz]

>$pass = `echo "$ARGS[0]" | userdbpw -md5`;
>`userdb $user@$domain set uid=2 gid=2 home=/var/mail/$domain/$user systempw=$pass`;
>
>Jenze je tu problem, ze $pass ma hodnotu $1$Ot.p5V6S$6z6ub/tEyiipwBsvPSPgdU/ a
>misto toho, aby se ten retezec pouzil do sestempw tak jak je tak se na nej
>uplatnuji regularni vyrazy a vysledek je, ze k systempw se pak priradi uplne
>jiny string.
>  
>
Zkuste

system("userdb", "$user@$domain", "set", "uid=2", "gid=2", 
    "home=/var/mail/$domain/$user", "systempw=$pass");

La'd"a