@rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!/usr/bin/perl
#line 15

use HTML::TreeBuilder;

my $tree = HTML::TreeBuilder->new;

if (@ARGV) {
	$tree->parse_file($ARGV[0]);
}
else {
	$tree->parse(\*STDIN);
}

output($tree);

sub output {
	my @tags = @_;
	foreach my $tag (@tags) {
		if (ref($tag)) {
			print "(", $tag->tag, "\n";
			my @attrs = $tag->all_attr();
			while(@attrs) {
				my ($key, $val) = (shift(@attrs), shift(@attrs));
				next if substr($key, 0, 1) eq '_';
				print "A$key $val\n";
			}
			output($tag->content_list);
			print ")", $tag->tag, "\n";
		}
		else {
			$tag =~ s/\r?\n/\\n/g;
			print "-", $tag, "\n";
		}
	}
}

__END__
:endofperl
