Help for this page

Select Code to Download


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

...
open( FILENEW, ">:encoding(iso-8859-1)", "$sFile.new" ) or die "Couldn
+'t open file '$sFile.new'!";
print FILENEW $sCodepoints;
close( FILENEW );
  2. or download this
    #!/usr/bin/perl -w

...
open( FILENEW, ">:encoding(utf8)", "$sFile.new" ) or die "Couldn't ope
+n file '$sFile.new'!";
print FILENEW $sCodepoints;
close( FILENEW );
  3. or download this
    1TestöäüÖÄÜß
2TestöäüÖÄÜß
3TestöäüÖÄÜß