Help for this page

Select Code to Download


  1. or download this
    if($tmp2){
  if($tmp2 =~ m/'/){ 
 ...
  2. or download this
    use strict;
use warnings;
...
$string =~ /(\d)(\d)/;  # This match fails.

print $2, "\n";
  3. or download this
    world
world
  4. or download this
    my $tmp2 = $var;  # Because of bad logic we don't know
                  # if $var is defined, thus don't know if
...
if ( defined( $tmp2 ) and $tmp2 =~ m/regex/ ) {
    # Do your stuff.
}