Help for this page

Select Code to Download


  1. or download this
    use strict;
my $re='.*?(@)((?:[a-z][a-z0-9_]*))(\\[)(\\d+)(\\])';
...
__DATA__
@a = ("'hello world'",'print ', ';');
eval(@a[1] . @a[0] . @a[2]);
  2. or download this
    use strict;
my $code;
...
__DATA__
@a = ("'hello world'",'print ', ';');
eval(@a[1] . @a[0] . @a[2]);