~ubuntu-branches/ubuntu/saucy/libhtml-stripscripts-perl/saucy

« back to all changes in this revision

Viewing changes to examples/direct/direct.pl

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

examples/direct/direct.pl

 

1

#!/usr/bin/perl

 

2

use strict;

 

3

use warnings;

 

4

use blib;

 

5

 

 

6

use HTML::StripScripts();

 

7

 

 

8

my $f = HTML::StripScripts->new({ Context        => 'Flow' });

 

9

 

 

10

$f->input_start_document;

 

11

$f->input_start('<ul>');

 

12

 

 

13

$f->input_start('<li>');

 

14

$f->input_text ('List Item 1');

 

15

$f->input_end  ('</li>');

 

16

 

 

17

$f->input_start('<li>');

 

18

$f->input_text ('List Item 2');

 

19

$f->input_end  ('</li>');

 

20

 

 

21

## Send bad tag

 

22

$f->input_end  ('</li>');

 

23

 

 

24

$f->input_end  ('</ul>');

 

25

$f->input_end_document;

 

26

 

 

27

print "\n\nFiltered HTML:\n\n  "

 

28

      .$f->filtered_document

 

29

      ."\n\n";

 

30

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1