Help for this page

Select Code to Download


  1. or download this
    my $foo = $1 if $_ =~ /regex/;
    
  2. or download this
    if ( $_ =~ /regex/ ) {
       my $foo = $1;
       $db_results->{$foo} = delete $db_results->{$_};
    }