compter nombre de ligne entre deux mots

Marsh Posté le 28-12-2015 à 12:34:05

Salut,

je début un peut avec Perl, et je sais pas trop comment prendre mon probleme en main, donc si vous aviez une idée.

en fait, je dois compter les nombre de ligne qu'il y a entre deux mots dans un fichier text.

en gros, la source est du genre :

debut liste_1
a
b
c
fin

debut liste_2
d
e
f
fin

et j'aurai besoin de connaitre le nombre de ligne qu'il y a par exemple dans liste_2

voila, si vous avez une petite idée pour m’orienter ?
merci d'avance

---------------
#mais-chut

Reply

Marsh Posté le 28-12-2015 à 12:34:05

Reply

Marsh Posté le 28-12-2015 à 14:04:05

Bon, je crois que j'ai ressui, c’est surement très très crade, mais ca semble marcher

#!/usr/bin/perl -w

use strict;
use Date::Manip;
use LWP::Simple;

##my $baseDir = '/log/Accounting';
my $baseDir = '/home/moi/FreeURL';
my $resultDir = "$baseDir/Results";
my $dataDir = "$baseDir/DataBase";
my $url = 'http://cfg-store/P/DatabaseP.bc';

my $ins = 0;
my $CountFreEURL = 0;

getstore($url, "$dataDir/databaseP.bc" );
open(DATABASE, "$dataDir/databaseP.bc" ) || die("$0: Cannot open '$dataDir/databaseP.bc': $!n" );

while(<DATABASE> ) {
chomp;
next if(/^Id/);
next if(/^$/);
next if(/^#/);
next if(/^s;;/);
next unless /S/;

if ((/debut list_2/)&&($ins==0)) {
printf ("%sn", $_);
$ins = 1;
}
elsif ((/fin/)&&($ins==1)) {
print ("Exitingn" );
$ins = 0;
}
elsif ($ins==1) {
$CountFreEURL+=1;
printf ("tEntry:%sn", $_);
}

}
printf ("Count: %dn", $CountFreEURL);
exit 0;

c'est chaud bouillant le perl en fait

---------------
#mais-chut

Reply

Marsh Posté le 28-12-2015 à 16:05:13

Code :

if ((/debut list_2/)&&($ins==0)) {
        printf ("%sn", $_);
        $ins = 1;
    }
    elsif ((/fin/)&&($ins==1)) {
        print ("Exitingn" );
        $ins = 0;
    }
    elsif ($ins==1) {
        $CountFreEURL+=1;
        printf ("tEntry:%sn", $_);
    }

Si tu veux compter qu'une seule section entre debut list_2 et fin, ça peut se simplifier:

Code :

if (/debut list_2/) {
    print $_, "\n";
    ++$CountFreEURL;  # ça va pouvoir faire double emploi: flag et compteur
}
elsif ($CountFreEURL) {
    if (/fin/) {
        print "Exiting\n";
        last;  # on sort de la boucle ici, c'est ce qui permet de ne pas se préoccuper du traitement des lignes restantes
    }
    print "\tEntry:", $_, "\n";
    ++$CountFreEURL;
}

A+,

Message édité par gilou le 28-12-2015 à 16:16:55

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Reply

Marsh Posté le 28-12-2015 à 16:48:04

Bref, en reprenant le tout, ça pourrait ressembler à:

Code :

#!/usr/bin/perl -w
use strict;
use warnings;
use autodie;
 
use Date::Manip;
use LWP::Simple;
 
##my $baseDir = '/log/Accounting';
my $baseDir = '/home/moi/FreeURL';
my $resultDir = "$baseDir/Results";
my $dataDir = "$baseDir/DataBase";
my $url = 'http://cfg-store/P/DatabaseP.bc';
 
getstore $url, "$dataDir/databaseP.bc";
open my $db_handle, "$dataDir/databaseP.bc";
my $CountFreEURL = 0; 
 
while (<$db_handle> ) {
    chomp;
    next unless /\S/;  # ça comprends le cas /^$/
    next if(/^(Id|#|\s;;)/);  # c'est pas \s*;; dans le 3e cas?
 
    if (/debut list_2/) {
        print $_, "\n";
        ++$CountFreEURL;  # ça va pouvoir faire double emploi: flag et compteur
    }
    elsif ($CountFreEURL) {
        if (/fin/) {
            print "Exiting\n";
            last;  # on sort de la boucle ici, c'est ce qui permet de ne pas se préoccuper du traitement des lignes restantes
        }
        print "\tEntry:", $_, "\n";
        ++$CountFreEURL;
    }         
}
close $db_handle;
 
print "Count: ", $CountFreEURL, "\n";
exit 0;

A+,

Message édité par gilou le 28-12-2015 à 16:52:47

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Reply

Marsh Posté le 28-12-2015 à 18:46:03

Merci tout plein , je regarde ça demain en arrivant au boulot

---------------
#mais-chut

Reply

compter nombre de ligne entre deux mots

Sujets relatifs:

Leave a Replay