Help for this page

Select Code to Download


  1. or download this
    1 #!/usr/bin/perl -w

...

26 $book =~ s/‘/‘/g;
27 $book =~ s/’/’/g;
  2. or download this
    83 $book =~ s/û/û/g;
84 $book =~ s/ü/ü/g;
...
91 open (OUT, ">$filename") or die "Couldn't create '$filename': $!"; 
+ #New from Corion
92 print OUT $book;
93 close OUT;
  3. or download this
    C:\Perl64\bin>perl entities_99.pl
"my" variable $backupoutput masks earlier declaration in same scope at
+ entities_99.pl line 11.
...
2RAH99.htmlUse of uninitialized value $backupoutput in substitution (s
+///) at entities_99.pl line 15.
Use of uninitialized value $backupoutput in concatenation (.) or strin
+g at entities_99.pl line 21.
print() on closed filehandle OUT at entities_99.pl line 22.