L’attractivité de l'économie de la Birmanie

Script supplémentaire en PERL (Télécharcher le script)

Ce petit script test l'encodage d'un fichier pour voir s'il utilise des codes en dehors de la partie du codeblock Myanmar réservée pour la langue birmane. Bien sûr, si le fichier est écrit dans une langue autre du birman le script va penser qu'il s'agit d'un fichier écrit en Zawgyi. Il faudrait donc améliorer le script pour prendre en compte ce problème.


Code surceComments
  1. #!/usr/bin/perl 
  2. #use warnings; 

  4. print "\n"."="x79; 
  5. print "\nMiniprogram: Zawgyi test program (Zawgyi 1.01)"; 
  6. print "\n"."="x79; 

  8. print "\n\nDIR WITH BURMESE (eg. country/burma): ";
  9. $dir = <STDIN>;
  10. chomp($dir); 
  11. opendir(DIR, $dir) or die "Cannot open dir: $dir"; 
  12.  
  13. print "\nSAVE THE RESULTS INTO A FILE? (Y/N): "; 
  14. $save = <STDIN>; 
  15. chomp($save); 

  17. if ($save eq "y" or $save eq "Y" ) { 
  18.       print "\nRESULTS INTO (eg. local/export.txt): "; 
  19.       $export = <STDIN>; 
  20.       chomp($export); 
  21.       open(INFO,">:utf8",$export) or die "Cannot open file $export."; 
  22.       print INFO "="x50; 
  23.       print INFO "\nTESTING FOR ZAWGYI IN: \n$dir"; 
  24.       print INFO "\n"."="x50; 

  26.       print INFO "\n"."-"x50; 
  27.       print INFO "\nFILE\tZAWGYI (NO/YES)"; 
  28.       print INFO "\n"."-"x50; 
  29. }
  30. print "\n"."-"x79; 
  31. print "\nFILE\tZAWGYI (NO/YES)"; 
  32. print "\n"."-"x79;

  34. while (my $file = readdir(DIR)) { #open directory 
  35.        next unless ($file =~ m/\.txt$/); #open each file.txt 

  37.        open(INPUT,"<:utf8",$dir."/".$file) or die "Cannot open file $file."; 
  38.        my $f=0; 

  40.        while(<INPUT>) {    
  41.           chomp($_);        

  43.          if ($f == 0){ 
  44.             if ($_ =~/[\x{105A}-\x{1097}]/) { 
  45.                 if ($save eq "y" or $save eq "Y" ) { 
  46.                   print INFO "\n$file\tYES"; 
  47.                 } 
  48.                 print "\n$file\tYES"; 
  49.                 $f=1; 
  50.                 } 
  51.           } 
  52.        } 

  54.    if ($f == 0) { 
  55.                 if ($save eq "y" or $save eq "Y" ) { 
  56.                   print INFO "\n$file\tNO"; 
  57.                 } 
  58.                 print "\n$file\tNO"; 
  59.        }
  60.       close INPUT; 
  61.     } 

  63. closedir DIR; 
  64. close INFO; 

  66. print "\n"."-"x79; 
  67. print "\n\n"; 
  68.  
  69. if ($save eq "y" or $save eq "Y" ) { 
  70.   print "FILE EXPORTED\n"; 
  71. } 
  72. print "DONE (press ENTER to close)\n"; 
  73. <STDIN>;









8 asking user for name of directory containing burmese files in txt




13 asking user if he would like to save the results or not


17-29 if he would like to save it, he's asked for name of file which will contain the results and some header is printed straight into it.
















34-37 browsing choosen directory and opening every file




40-61 opening every file and looking up for characters used in zawgiy, if it's find, it prints "yes" as zawgii encoding.
































73 ending script by an empty entry (if it's just runned by clicking on a icon (not throught terminal), so user can look up results and it's not closed without his will.