File: test-SGMLS.pl

package info (click to toggle)
texlive-lang 2016.20170123-5
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 1,093,148 kB
  • ctags: 15,901
  • sloc: perl: 46,074; xml: 29,603; makefile: 5,248; sh: 3,179; python: 2,949; ansic: 2,846; ruby: 945; lisp: 726; awk: 636; java: 159; sed: 142; cpp: 12
file content (13 lines) | stat: -rw-r--r-- 290 bytes parent folder | download | duplicates (21) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
use SGMLS;

$\ = "\n";

$parse = new SGMLS(STDIN);

while ($event = $parse->next_event) {
    print "Event type: " . $event->type;
    print "Data: " . $event->data;
    print "File: " . $event->file || "[unavailable]";
    print "Line: " . $event->line || "[unavailable]";
    print "";
}