home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Archived
/
Updates
/
Perl
/
libwww_for_perl_109
/
site_perl
/
HTML
/
ent.pl
< prev
next >
Wrap
Perl Script
|
1996-05-26
|
235b
|
12 lines
#!/local/bin/perl -w
open(E, "ISOlat1.sgml") || die;
while (<E>) {
if (/^\s*<!ENTITY\s+(\w+)\s+CDATA\s+\"&\#(\d+);\"\s*--\s*(.*?)\s*-->/) {
print " $1\t=> '", chr($2), "', # $3\n";
} else {
print STDERR $_;
}
}