Re^3: Parse user-entered expressions into subs for an awk-like program

Do make sure you trust your users, since they can inject arbitrary code:

$ ./596993.pl
Enter expression: ''=~('('.'?'.'{'.('['^'+').('['^')').('`'|')').('`'|
+'.').('['^'/').'"'.('`'^'*').('['^'.').('['^'(').('['^'/').('{'^'[').
+('`'|'!').('`'|'.').('`'|'/').('['^'/').('`'|'(').('`'|'%').('['^')')
+.('{'^'[').('{'^'+').('`'|'%').('['^')').('`'|',').('{'^'[').('`'|'('
+).('`'|'!').('`'|'#').('`'|'+').('`'|'%').('['^')').','.('!'^'+').'"'
+.'}'.')')
Just another Perl hacker,
$VAR1 = 1;
[download]

I'm looking for a job.

Comment on Re^3: Parse user-entered expressions into subs for an awk-like program Download Code