print qq{\d\w};
Double the backslashes, or use q instead, as you don't seem to need interpolation.
Moreover, calling perl from perl is usually not needed. Read the output of the command and process it in the script itself. What about using DBI instead of shelling out to mysql ?
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
In reply to Re: perl system command
by choroba
in thread perl system command
by cbtshare
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |