[Perl] Lecture de fichier+calcul en fct indx
Résolu/Fermé
Mrkanter
-
18 mai 2009 à 14:47
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 20 mai 2009 à 06:37
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 20 mai 2009 à 06:37
A voir également:
- [Perl] Lecture de fichier+calcul en fct indx
- Fichier rar - Guide
- Fichier host - Guide
- Confirmation de lecture gmail - Guide
- Fichier iso - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
4 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 566
18 mai 2009 à 19:25
18 mai 2009 à 19:25
Salut,
Les champs sont toujours séparés par | ?
Il y a toujours une valeur correspondante dans la deuxième ligne?!
Les champs sont toujours séparés par | ?
Il y a toujours une valeur correspondante dans la deuxième ligne?!
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 566
18 mai 2009 à 23:03
18 mai 2009 à 23:03
Re,
Encore une chose.
La 1ère ligne peut contenir des doublons?!
Par exemple avoir ABC123 deux fois.
Encore une chose.
La 1ère ligne peut contenir des doublons?!
Par exemple avoir ABC123 deux fois.
Les champs sont toujours séparés par |.
Non, il ne peut pas y avoir de doublons et oui il y a toujours une valeur sur la deuxième ligne qui correspond au nom de la première.
Non, il ne peut pas y avoir de doublons et oui il y a toujours une valeur sur la deuxième ligne qui correspond au nom de la première.
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 566
20 mai 2009 à 06:37
20 mai 2009 à 06:37
Salut,
Voilà
Voilà
lami20j@debian:~/trash/ccm_perl$ cat somme_lig.pl
#!/usr/bin/perl
use strict;use warnings;
my(@l,@n,%h,%somme);
while(<DATA>){
chomp;
@l=split /\|/ if /^[A-Z]/;
@n=split /\|/ if /^[0-9]/;
}
@h{@l}=@n;
foreach (sort keys %h){
/^(...)/;
push @{$somme{$1}},$h{$_};
}
foreach (sort keys %somme){
my $s = join "+",@{$somme{$_}};
$s=~s/\s*//g;
print "$_ = $s = ",eval $s,"\n";
}
__END__
ABC123|ABC456|DEF987|DEF654|DEF321
10|2|54|65|12
lami20j@debian:~/trash/ccm_perl$ perl somme_lig.pl
ABC = 10+2 = 12
DEF = 12+65+54 = 131