Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Wednesday, October 14, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / perl / foja

Diff for scripts/perl/foja/foja-parser.pl between version 1.1 and 1.2

version 1.1, 2002/02/03 19:44:36 version 1.2, 2002/02/04 00:17:51
Line 2 
Line 2 
   
 #############################################################################  #############################################################################
 #                                                                           #  #                                                                           #
   #  foja_parser.pl - FOJA excercise HTML dokument parser                     #
   #                                                                           #
 #  Na standartny vystup (stdout) vypise pocet zadanych uloh podla           #  #  Na standartny vystup (stdout) vypise pocet zadanych uloh podla           #
 #  prislusneho HTML suboru. Ak su aj nejake odovzdavacie ulohy,             #  #  prislusneho HTML suboru. Ak su aj nejake odovzdavacie ulohy,             #
 #  tak nasledne vypise aj tie, resp. ich poradove cisla.                    #  #  tak nasledne vypise aj tie, resp. ich poradove cisla.                    #
 #                                                                           #  #                                                                           #
 #  Uzivajte si to v zdravi, s pozdravom                                     #  #  Uzivajte si to v zdravi, s pozdravom                                     #
 #                                               =Neptunko=  [12/11/2000]    #  #                                                                           #
   #                              =Neptunko= <neptunko@pobox.sk> [12/11/2000]  #
 #                                                                           #  #                                                                           #
 #############################################################################  #############################################################################
   
Line 16  $STR2 = "dovz";
Line 19  $STR2 = "dovz";
   
 #############################################################################  #############################################################################
   
 if ($#ARGV != 0)  if ($#ARGV != 0) {
 {  
         print("Foja HTML parser v0.9, written and copyrights by Neptunko\n");          print("Foja HTML parser v0.9, written and copyrights by Neptunko\n");
         print("THIS SOFTWARE COMES WITH ABSOLUTELY NO WARRANTY! ");          print("THIS SOFTWARE COMES WITH ABSOLUTELY NO WARRANTY! ");
         print("USE AT YOUR OWN RISK!\n");          print("USE AT YOUR OWN RISK!\n");
Line 29  open(handle, $ARGV[0]) || die("can't ope
Line 31  open(handle, $ARGV[0]) || die("can't ope
   
 my $s;  my $s;
   
 while (<handle>)  while (<handle>) {
 {  
         chomp;          chomp;
   
         s/<[^<>]*>//g;          s/<[^<>]*>//g;
Line 40  while (<handle>)
Line 41  while (<handle>)
                 $s = $s . $_ . " " if ($_ =~ /$STR2/ || $_ =~ /^$STR1[0-9]{1,2}$/);                  $s = $s . $_ . " " if ($_ =~ /$STR2/ || $_ =~ /^$STR1[0-9]{1,2}$/);
 }  }
   
 if ($s =~ /.*[^0-9]+([0-9]{1,2})[^0-9]+.*$/)  if ($s =~ /.*[^0-9]+([0-9]{1,2})[^0-9]+.*$/) {
 {  
         print $1, "\n"          print $1, "\n"
 }  }
 if ($s=~/.*$STR1([0-9]{1,2})[^0-9]+.*$STR2.*$STR1([0-9]{1,2})[^0-9]+.*$STR2.*/)  
 {  if ($s=~/.*$STR1([0-9]{1,2})[^0-9]+.*$STR2.*$STR1([0-9]{1,2})[^0-9]+.*$STR2.*/) {
         print $1, "\n", $2, "\n";          print $1, "\n", $2, "\n";
 }  }
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top