[Débutant] script pour compter valeur d'une colonne selon condition

Version imprimable

Bonjour !

Je reviens pour un petit coup de main.
Alors voilà, j'ai une liste de fichiers un peu comme ça :

Citation:

1.txt
2.txt
...

Et chaque fichier est composé de deux colonnes (séparateur : tabulation) :
Code:

1 2 3 4 5 1 1 1 1 13 1 24 1 33 1
Je souhaite traiter la première colonne. En effet, j'aimerais pouvoir compter le nombre de ligne où la première valeur est entre 0 et 100, puis 100 et 1000, etc.

Donc ça, je sais le faire pour un fichier mais en ligne de commande, une ligne pour chaque tranche de valeur.
Mais vu le nombre de fichier que j'ai, je ne peux pas me permettre ça, je pensais alors faire un script déjà pour faire ceci dans un fichier.
J'ai commencé comme ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 #!/ usr/bin/env perl use strict; use warnings; if ($#ARGV != 0) # rentrer fichier à analyser en arguments { die "\n\tUsage: $0 Filename\n\n" } open C,"<$ARGV[0]" or die "Impossible d'ouvrir le fichier"; while (my $ligne = <C>) { chomp $ligne; my $valeur = $1 if $ligne =~ /^(\d+)/; #je stock le premier chiffre de mes lignes. if ($valeur<100) { print "$ligne\n"; } if (($valeur>=100) && ($valeur<1000)) { print "$ligne\n"; } }
Bon, ça me print les lignes mais... J'aimerais bien que ça me les compte plutôt !
Auriez-vous un petit conseil ? Dois-je utiliser une table de hachage ? Mici.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#!/usr/bin/perl -w
 
use strict;
use Data::Dumper;
use File::Glob qw(bsd_glob);
 
 
my $Path = "repertoire où sont présents les fichiers";
my $Filefound;
 
my $fileHandle;
my %hashComptage;
my %hashDetermination;
my $cle;
my $valeurFichier;
 
foreach my $file(get_files($Path) ){
	open ($fileHandle, "<", $file) or die "Impossible d'ouvrir le fichier";
	while( <$fileHandle> ){
		chomp;
		next unless length;
		($cle, $valeurFichier ) = split( /\t/, $_ );
		$hashComptage{$cle}++;
	}
	close( $fileHandle );
}
print Dumper( \%hashComptage );
 
 
foreach (grep( {$_>=0 and $_<100} keys(%hashComptage))){
	print "$_\n";
	$hashDetermination{"0-100"} += $hashComptage{$_};
}
foreach (grep( {$_>=100 and $_<1000} keys(%hashComptage))){
	print "$_\n";
	$hashDetermination{"100-1000"} += $hashComptage{$_};
}
 
print Dumper( \%hashDetermination );
 
sub get_files {
	my $path = shift;
	my @files;
 
	print "Path :: $path\n";
	#print "Content :: ".join("\n", @content);
	for my $entry (bsd_glob("$path/*.*")) {
		if (-f $entry) {
			if( $entry =~ m/^.*fichier\d*\.txt$/ ){
				push @files, $entry;
			}
		}
	}
	return @files;
}

testé de mon coté. Je pense que la partie la plus compliqué sera le traitement en fonction des tranches (0-100 puis 100-1000 etc)

23/05/2016, 12h48
FryHandiz

Je crois que j'aurai dû préciser que j'étais débutante :mrgreen:
Alors, tout d'abord, merci pour ta réponse JeanMi ! J'ai testé chez moi et ça ne marche pas, mais sûrement parce que je n'ai pas tout à fait compris !
Du coup, si ça ne t'ennuie pas, j'ai quelques questions.
D'abord, pourquoi à la première ligne il y a -w ?
Ensuite, à quoi sert Glob qw(bsd_glob) ? C'est un peu pour définir le path ?
Je n'ai pas trop compris ce que c'était et à quoi ça servait ça : next unless length; :(

Merci !
23/05/2016, 12h57
JeanMi3000

J'ai posté un peu vite car c'était l'heure de manger.:mrgreen:

Citation:

D'abord, pourquoi à la première ligne il y a -w ?

ça remplace la pragma 'use warnings'.
je pense que c'est une erreur de l'utiliser. En fait j'ai adapté plusieurs bouts de code pour te fournir une réponse, du coup il reste quelques coquilles.

Citation:

Ensuite, à quoi sert Glob qw(bsd_glob) ? C'est un peu pour définir le path ?

c'est une fonction qui revoie la liste des éléments (fichiers et répertoires) présents dans le répertoire fourni.

Citation:

Je n'ai pas trop compris ce que c'était et à quoi ça servait ça : next unless length;

ça permet de ne pas traiter la ligne du fichier en cours si celle-ci est vide.

Pour utiliser correctement le script fourni, il faut renseigner la variable $Path et vérifier la regex ligne 47 (au besoin).
Je filtre volontairement les éléments du répertoire pour ne garder que ceux qui commencent par le terme 'fichier' suivi d'un nombre et finissant par '.txt' (ex : fichier1.txt, fichier2.txt ... )
23/05/2016, 13h07
FryHandiz

J'avais en effet changer mais j'avais oublié un petit /
Hihi :mrgreen:
Donc du coup ça marche, ça me donne le résultat pour tous les fichiers en une fois mais moi j'aimerais bien l'avoir pour chaque fichier, enfin, je vais me débrouiller pour ça et je reviendrais si je galère, héhé.
Juste pour savoir, il y a moyen de le faire sans la fonction get_files non ? Juste pour savoir si je peux m'aventurer sans ! Car pour moi les fonctions c'est encore un peu difficile :P (je demande pas le bout de code pour, juste savoir si on peut passer outre ^^)
Encore merciiii !
23/05/2016, 14h10
JeanMi3000

Citation:

Envoyé par FryHandiz

Juste pour savoir, il y a moyen de le faire sans la fonction get_files non ?

oui, bien sur que c'est possible.
Je l'utilise par simplicité et parce que c'est un bout de code récurrent dans mes scripts.
23/05/2016, 14h11
FryHandiz

Dac, encore merci JeanMi !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
my @fic = <C>;
foreach my $ligne (@fic) {
	@trans = split (/ /, $ligne );
    my $valeur = $trans[1]; #je stock le premier chiffre de mes lignes.
    if ($valeur<100)
    {
        print "$ligne\n";
    }
 
    if (($valeur>=100) && ($valeur<1000))
    {
        print "$ligne\n";
    }
 
}

Quelque chose dans ce genre devrai fonctionner , sans fonction ...