Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Nedeľa, 21. júl 2024

Súbor: [Platon] / scripts / perl / foja / foja-parser.pl (stiahnutie)

Revízia 1.5, Sun Nov 9 19:16:58 2003 UTC (20 years, 8 months ago) by nepto


Zmeny od 1.4: +1 -1 [lines]

Changed $Id$ for $Platon$.

#!/usr/bin/perl

#############################################################################
#                                                                           #
#  foja_parser.pl - FOJA excercise HTML dokument parser                     #
#                                                                           #
#  Na standartny vystup (stdout) vypise pocet zadanych uloh podla           #
#  prislusneho HTML suboru. Ak su aj nejake odovzdavacie ulohy,             #
#  tak nasledne vypise aj tie, resp. ich poradove cisla.                    #
#                                                                           #
#  Uzivajte si to v zdravi, s pozdravom                                     #
#                                                                           #
#                              =Neptunko= <neptunko@pobox.sk> [12/11/2000]  #
#                                                                           #
#############################################################################

# $Platon: foja-parser.pl,v 1.4 2002/02/12 00:34:24 jombik9 Exp $

$STR1 = "Uloha";
$STR2 = "dovz";

#############################################################################

if ($#ARGV != 0) {
    print("Foja HTML parser v0.9, written and copyrights by Neptunko\n");
    print("THIS SOFTWARE COMES WITH ABSOLUTELY NO WARRANTY! ");
    print("USE AT YOUR OWN RISK!\n");
    printf("Usage: %s <foja_html_filename>\n", $0);
    exit 1;
}

open(handle, $ARGV[0]) || die("can't open handle");

my $s;

while (<handle>) {
    chomp;

    s/<[^<>]*>//g;
        s/ //g;


        $s = $s . $_ . " " if ($_ =~ /$STR2/ || $_ =~ /^$STR1[0-9]{1,2}$/);
}

if ($s =~ /.*[^0-9]+([0-9]{1,2})[^0-9]+.*$/) {
    print $1, "\n" 
}

if ($s=~/.*$STR1([0-9]{1,2})[^0-9]+.*$STR2.*$STR1([0-9]{1,2})[^0-9]+.*$STR2.*/) {
    print $1, "\n", $2, "\n";
}


Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox
Na začiatok