Perl - jen tisk promenne

[Ladislav Vaiz]

>> Pozor, to michate dohromady dve ruzne veci. Zavinac zapasny v uvozovkach
>> musite eskejpovat, aby se text za nim nebral jako identifikator pole. Ja
>> na to zapomnel, sorry. Ale promenna $pass se nebude nijak upravovat a cely
>> retezec vcetne systempw= se preda programu userdb, protoze system je
>> volany s vice nez jednim prametrem.
>
> Me se prave zda, ze se ten $pass upravuje.
> Kdyz tam dam "natvrdo":
>
> system("userdb", "a\@a", "set", "uid=2", "gid=2", "home=/var/mail/a/a",
> "systempw=$1$bB6PyeXR$WQX2KMrwRZxHcmZBJPShc/");
>
> tak to hlasi:
> Use of uninitialized value in concatenation (.) or string at
> /usr/local/bin/addcourieruser line 27.
>
> Kdyz odmazu ty $ a / tak to proleze .... :-(

Vy jste me neposlouchal :-)
Kdyz napisete "abc$def", tak se k retezci 'abc' pripoji obsah promenne 
$def.

Funguje mi napriklad:
$pass='$1$bB6PyeXR$WQX2KMrwRZxHcmZBJPShc/';
system("echo", "a\@a", "set", "uid=2", "gid=2", "home=/var/mail/a/a",
"systempw=$pass");

Vypise se (zalomeni radek dela pine)
a na a set uid=2 gid=2 home=/var/mail/a/a 
systempw=$1$bB6PyeXR$WQX2KMrwRZxHcmZBJPShc/

Mezi perlem a echem neni zadny shell, ktery by interpretoval dolar.

La'd"a