Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl 
use strict;
...

my ($getVariable) = $data =~ /(my_variable=.*)^\w+=/sm;
print $getVariable;
  2. or download this
    #!/usr/bin/env perl 
use strict;
...

my ($getVariable) = $data =~ /(my_variable=.*?)^\w+=/sm;
print $getVariable;