Help for this page

Select Code to Download


  1. or download this
    01:  use strict;
02:  use File::Find;
...
40:          print "Skipping $_\n";
41:      }
42:  }
  2. or download this
    <body bgcolor=#000000 text="white">

...
>

<input type=text name="foobar" value='>>> watch out for angle brackets
+'>
  3. or download this
    28:              my $text_index = $token->[0] eq 'T' ? 1 : -1;
  4. or download this
      ["S",  $tag, $attr, $attrseq, $text]
  ["E",  $tag, $text]
...
  ["C",  $text]
  ["D",  $text]
  ["PI", $token0, $text]
  5. or download this
    [
  'S',
...
  ],
  '<META NAME="doc" CONTENT="Web data ">'
];
  6. or download this
    32:              if ( $token->[0] eq 'S' and $token->[1] eq 'meta' )  
+  {
33:                  $token->[ $text_index ] =~ s/AA\.//g;
34:              }