$module = $1 if /^([a-zA-Z_][a-zA-Z_0-0]*(?:(?:'|::)[a-zA-Z_0-0]+)*)$/ +s; # or $module = $1 if /\A[^\W\d]\w*(?:(?:\'|::)\w+)*\z/s;
In reply to Re^4: Calling perl from CGI
by Anonymous Monk
in thread Calling perl from CGI
by PerlRob
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |