Help for this page

Select Code to Download


  1. or download this
    /* vim: set sw=8 ts=8 si noet: */

...

    /* end of file */
  2. or download this
    HTML::TagReader
tr_new_from_io(class, pio)
...
    RETVAL->tagline=0;
OUTPUT:
    RETVAL
  3. or download this
    my $str = "<blockquote>\n<i>Perlmonks</i>\n</blockquote>\n";
open my $io, "<", \$str;
...
    print "line: $tag[1]: col: $tag[2]: $tag[0]\n";
}
  4. or download this
    line: 1: col: 2: <blockquote>
line: 2: col: 1: <i>
line: 2: col: 13: </i>
line: 3: col: 1: </blockquote>
  5. or download this
    my $str = "<blockquote>\n<i>Perlmonks</i>\n</blockquote>"; #no newline
+ at the end
open my $io, "<", \$str;
...
    print "line: $tag[1]: col: $tag[2]: $tag[0]\n";
}
  6. or download this
    line: 1: col: 2: <blockquote>
line: 2: col: 1: <i>
line: 2: col: 13: </i>