----- Original Message -----
From: "Constantin Gavrilescu" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, July 22, 2004 5:05 PM
Subject: [rlug] perl quote


> Cum escapez caracterele speciale dintr-un string daca vreau sa-l
trimit
> la executie in shell cu backquotes? Am gasit doar quotemeta(), dar
asta
> quoteaza prea multe.
> Probabil exista un raspuns simplu, pentru sunt incepator in perl.


$cmd_string = q(/bin/ls -ltr /bin | awk -F ' ' '{print $9}' && echo -e
"\033[00;32mThat's all folks\033[00m");
$a = qx/$cmd_string/;
print $a;

print '-' x 80 . "\n";
sleep 1;
$cmd_string = q([ -f /bin/cucu ] || echo "Go get an \cucu/ thing"
#useless comment);
$a = qx/$cmd_string/;
print $a;

www.perldoc.com ... o cautare dupa perlop




--- 
Detalii despre listele noastre de mail: http://www.lug.ro/


Raspunde prin e-mail lui