home *** CD-ROM | disk | FTP | other *** search
/ Organic Chemistry (8th Edition) / Image.iso / pc / organic / media / content / check_id.pl < prev    next >
Encoding:
Text File  |  2003-04-17  |  1.5 KB  |  89 lines
  1. #
  2. # check_id.pl
  3. # 
  4. # The program
  5. #    takes 'ent.xml' file from near self and gets info about entity files
  6. #    opens entity file in ENT folder and gets info about current entity in the file
  7. #    generate XML, XSL and HTM files in corresponding folders
  8. # 
  9. #
  10. # Comment: 
  11. #
  12.  
  13. $qwe='"';
  14. $reshetka='#';
  15. $nbsp=' ';
  16.  
  17. local $dir = "newfolder/";
  18. local $file;
  19. local $err = "err.txt";
  20.  
  21. local $stringline;
  22. local $id;
  23. local @idArr = ();
  24.  
  25. @file=glob("newfolder/*.xml");
  26.  
  27. open(ERR, ">$err") || die "can't open $err: $!";
  28.  
  29. foreach $file (sort @file)
  30. {
  31.     open(FILE, $file) || die "can't open $file: $!";
  32.     while (defined ($stringline = <FILE>))
  33.     {
  34.         if ($stringline =~ /<item / || $stringline =~ /<section /)
  35.         {
  36.             $id = &getAttrValue($stringline,'id');
  37.             push (@idArr, $id);
  38.         }
  39.     }
  40.     close(FILE);
  41.     
  42.     print ERR "$file\n\n";
  43.     for ($i=0; $i<$#idArr+1; $i++)
  44.     {
  45.         for ($j=$i+1; $j<$#idArr+1; $j++)
  46.         {
  47.             if ($idArr[$i] eq $idArr[$j])
  48.             {
  49.                 print ERR "$idArr[$i]\n";
  50.                 print "$idArr[$i]\n";
  51.             }
  52.         }
  53.     }
  54.     print ERR "\n";
  55.     @idArr = ()
  56. }
  57.  
  58. close(ERR);
  59.  
  60. print "All Done!..";
  61. <>;
  62.  
  63.  
  64.  
  65.  
  66. # sub function sections
  67. # getAttrValue: return value of attribute from the string
  68. sub getAttrValue
  69. {
  70.     local ($attrStr,$attr) = @_;
  71.     local @attrArr = ();
  72.     local $attrVal;
  73.     
  74.     $attrStr =~ s/<//;
  75.     $attrStr =~ s/>//;
  76.     
  77.     push (@attrArr, split /\s+/, $attrStr);
  78.     
  79.     for ($i=0; $i<$#attrArr+1; $i++)
  80.     {
  81.         if ($attrArr[$i] =~ /$attr/)
  82.         {
  83.             $attrVal = $attrArr[$i];
  84.             $attrVal =~ s/.*${attr}="(.*)".*/\1/;
  85.         }
  86.     }
  87.     return $attrVal;
  88. }
  89.