Help for this page

Select Code to Download


  1. or download this
    if ($data[$i] =~ m/^(?:81|82)$/ && $data[$i] eq $data[$i+1]) {
  2. or download this
    my %wanted = map { $_, 1 } qw(
    81
...

for my $i (0 .. ($#data - 1)) {
    if (exists $wanted{$data[$i]} && $data[$i] eq $data[$i+1]) {