Perl

compter nombre de ligne entre deux mots

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : compter nombre de ligne entre deux mots

Z_cool

HFR profile rating:⭐⭐⭐⭐

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

Publicité

Z_cool

HFR profile rating:⭐⭐⭐⭐

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

gilou

Modérateur
Modzilla

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é! --

gilou

Modérateur
Modzilla

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é! --

Z_cool

HFR profile rating:⭐⭐⭐⭐

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

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

FORUM HardWare.fr

Programmation

Perl

compter nombre de ligne entre deux mots

Sujets relatifs
Transformer une chaine en nombre complexe	Ajouter une autre ligne à mon tableau css ?
Concatenation lignes	[SQL] Select un nbre max de données = selectionner une ligne sur n.
remplacer des mots par des liens (XML to HTML via XSLT)	[EXCEL] Associé nombre à mot depuis une liste déroulante
[RegExp] Expression régulière : recherche sur 2 mots	Comment protéger mes vidéos html5 en ligne
Nombre de lignes maj supérieur au nombre de lignes de la table
Plus de sujets relatifs à : compter nombre de ligne entre deux mots

Page générée en 0.075 secondes