Tri sur une colonne d'un tableau [Résolu]

[dubis]

Bonjour,


Je n'arrive toujours pas à faire des tris dans les tableau

Voici une script qui utilise la fonction CPAN Proc:rocessTable dont j'ai demandé de me donner le temps d'utilisation de processus chrome :

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
#!/usr/bin/perl
use strict;
use warnings;
use Proc::ProcessTable;
use POSIX ;
 
#Temps epoc Local
my $times = mktime (localtime);
 
 
my $t = new Proc::ProcessTable;
foreach my $p ( @{$t->table() } ){
        if ( $p->cmndline() =~ /chrome/ )   {
# association de l'uid avec le login
                my $login= getpwuid $p->uid();
                my $pid = $p->pid() ;
# calcul du temps d'utilisation
                my $diff_times=$times - $p->start() ;
                my $jours=int($diff_times / 86400 ) ;
                my $heures=int($diff_times / 3600 ) ;
                my $minutes=int(($diff_times % 3600) / 60);
                my $secondes=int((($diff_times % 3600) % 60)); 
# Concaténation du tableau                 
		my @tab = ($login, $diff_times, $pid, $jours, $heures, $minutes, $secondes ); 
 		print "@tab\n";
		}
}

Cela me donne le tableau suivant :
user 2388 13654 0 0 39 48
user 2388 13659 0 0 39 46
user 2388 13660 0 0 39 45
user 2388 13662 0 0 39 40
user 2388 13666 0 0 39 36

J'aimerais que le processus le plus jeunes apparaisse en premier.
J'ai essayé la fonction sort de différente manière avec cette fonction par exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
..../...
my @tab = ($login, $diff_times, $pid, $jours, $heures, $minutes, $secondes ); 
 		@tab = sort bydiff_times @tab;
		}
} 
 
 
 
sub bydiff_times {
  my $a1 = $$a[2];
  my $b1 = $$b[2];
  print "$a1\n";
  $a1 <=> $b1;
}

et j'ai eu le message d'erreur suivant :
Can't use string ("user) as an ARRAY ref while "strict refs" in use at ./Monitor_Chrome.pl line 27.

Merci de votre aide.

[elvivo]

Dans ton essai, tu appliques sort sur une ligne, pas sur le tableau complet. C'est pour ca que quand tu fais $$a[2], le $a contient la valeur du premier champ de la ligne en cours. Su coup perl essaye d'utiliser $a comme une reference symbolique mais use strict l'en empeche.

Toi tu t'attends a comparer 2 lignes entre elles donc tu devrait d'abord stocker chaque @tab dans un tableau et ensuite appliquer sort sur le tableau final.

Quelque chose comme ca:

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
#!/usr/bin/perl
use strict;
use warnings;
use Proc::ProcessTable;
use POSIX ;
 
#Temps epoc Local
my $times = mktime (localtime);
 
 
my $t = new Proc::ProcessTable;
my @tab;
foreach my $p ( @{$t->table() } ){
        if ( $p->cmndline() =~ /chrome/ )   {
# association de l'uid avec le login
                my $login= getpwuid $p->uid();
                my $pid = $p->pid() ;
# calcul du temps d'utilisation
                my $diff_times=$times - $p->start() ;
                my $jours=int($diff_times / 86400 ) ;
                my $heures=int($diff_times / 3600 ) ;
                my $minutes=int(($diff_times % 3600) / 60);
                my $secondes=int((($diff_times % 3600) % 60)); 
# Concaténation du tableau                 
		push @tab, [$login, $diff_times, $pid, $jours, $heures, $minutes, $secondes]; 
		}
}

print join qq/\n/, map {join qq/\t/, @$_} sort {$a->[2] <=> $b->[2]} @tab;

[dubis]

Merci Evilvo .....

C'est dans l'idée mais je n'avais pas la bonne syntaxe. J'avais essayé la commande pus mais mal écrite me donnais une erreur.

Petit point qui demande eclairsissement :

Code :

print join qq/\n/, map {join qq/\t/, @$_}

surtout @$_ est ce le scalaire de l'array comment pourrias je définir cette expression.

D'avance Merci .....

[djibril]

Pas testé :

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
#!/usr/bin/perl
use strict;
use warnings;
use Proc::ProcessTable;
use POSIX ;
 
#Temps epoc Local
my $times = mktime (localtime);
 
 
my $t = new Proc::ProcessTable;
foreach my $p ( sort { $t->table()[$a]->start <=> $t->table()[$b]->start } @{$t->table() } ){
        if ( $p->cmndline() =~ /chrome/ )   {
# association de l'uid avec le login
                my $login= getpwuid $p->uid();
                my $pid = $p->pid() ;
# calcul du temps d'utilisation
                my $diff_times=$times - $p->start() ;
                my $jours=int($diff_times / 86400 ) ;
                my $heures=int($diff_times / 3600 ) ;
                my $minutes=int(($diff_times % 3600) / 60);
                my $secondes=int((($diff_times % 3600) % 60)); 
# Concaténation du tableau                 
		my @tab = ($login, $diff_times, $pid, $jours, $heures, $minutes, $secondes ); 
 		print "@tab\n";
		}
}

[elvivo]

Desole j'aurai du separer la ligne en plusieurs commandes pour que ce soit plus clair

En fait ca fonctionne comme ca:
- sort {$a->[2] <=> $b->[2]} @tab; retourne une array triee selon l'expression entre {}.
- map {join qq/\t/, @$_} prends l'array cree par sort et execute les operations entre {} pour chaque element de l'array et retourne une array. Dans notre cas chaque element est en fait une reference sure une array, donc map initialise $_ avec ca a l'entre du bloc. Comme join prends une array en plus du separateur comme argument donc on doit caster $_ (ARRAYREF) en array d'ou @$_.
- join qq/\n/, : prends l'array retournee par map et concatene chaque element en separant par des newlines afin que print ait une belle chaine toute propre.