Computations - FreeType-2.10.4 API Reference

3 "�l��=�J�4�@�p �i�1h�� 936��#!/usr/bin/perl # Shows how to mangle all plain text in an HTML document, using an arbitrary # Perl expression. Plain text is all text not within a tag declaration, i.e. # not in

, but possibly between

and

# Example (Reverse 'Debian' in all text) : # lynx -dump -source -raw http://www/debian.org > /tmp/a.txt # ./htextsub '$_ =~ s/Debian/Naibed/gi' /tmp/a.txt use strict; use warnings; use HTML::Parser (); my $code = shift || usage(); $code = 'sub edit_print { local $_ = shift; ' . $code . '; print }'; #print $code; eval $code; die $@ if $@; my $p = HTML::Parser->new( unbroken_text => 1, default_h => [sub { print @_; }, "text"], text_h => [\&edit_print, "text"], ); my $file = shift || usage(); $p->parse_file($file) || die "Can't open file $file: $!\n"; sub usage { my $progname = $0; $progname =~ s,^.*/,,; die "Usage: $progname \n"; } �l��4�()��P@��n��-�� 0�� h��3 �_�I|��Mjq؂�� File not found. �� h��3 �� File not found. ,�l��i~��D� ��j�o)�F�� l �/_�I|��M��?� Computations - FreeType-2.10.4 API Reference Skip to content