Help for this page

Select Code to Download


  1. or download this
    for (qw( video book )) {
   'unchanged' =~ /(.*)/;  # Set $1
...
      print "false -> $1\n";
   }
}
  2. or download this
    false -> video
true -> unchanged
  3. or download this
    foreach my $link (
    '<a href="/story/43480/">The Bottled Water Lie</a>',
...

   print("$url: $title\n");
}
  4. or download this
    foreach my $link (
    '<a href="/story/43480/">The Bottled Water Lie</a>',
...

   print("$url: $title\n");
}