Help for this page

Select Code to Download


  1. or download this
    my $var = 'tad?pole';
my @list = ($var);
print("@list" =~ /\b$var\b/ ? 1 : 0, "\n");
  2. or download this
    my $var = 'frog!';
my @list = ($var);
print("@list" =~ /\b$var\b/ ? 1 : 0, "\n");
  3. or download this
    my $var = 'turtle';
my @list = ("jumping $var");
print("@list" =~ /\b$var\b/ ? 1 : 0, "\n");
  4. or download this
    my $sep = "\x01";
my @list = ('jumping turtle', 'frog!', 'tad?pole');
...
      print "Didn't find $var\n"
   }
}
  5. or download this
    my $sep = "\x01";
my @list = ('jumping turtle', 'frog!', 'tad?pole');
...
      print "Didn't find $var\n"
   }
}