aide demandée sur tri tableau 2D

Version imprimable

Bonjour,

Je n'arrive pas à faire un tri dans un tableau et sortir la ligne avec la plus grande durée de temps.
J'ai la liste suivante:

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
Flag time :  4097 0:00:23 user2 MATLAB/42 4.4%
Flag time :  11365 0:00:42 user1 MATLAB/51 3.3%
Flag time :  11365 0:01:23 user1 MATLAB/50 1.2%
Flag time :  11365 0:02:02 user1 MATLAB/50 3.0%
Flag time :  11365 0:10:07 user1 MATLAB/50 7.1%
Flag time :  11365 0:16:37 user1 MATLAB/49 7.5%
Flag time :  11365 0:22:20 user1 MATLAB/49 7.2%
Flag time :  11365 0:24:29 user1 MATLAB/49 6.0%
Flag time :  11365 0:28:19 user1 MATLAB/49 1.2%
Flag time :  11365 0:29:14 user1 MATLAB/51 1.4%
Flag time :  18715 0:00:56 user2 MATLAB/40 3.1%
Flag time :  11365 0:39:10 user1 MATLAB/54 6.2%
Flag time :  11365 0:44:18 user1 MATLAB/54 6.5%
Flag time :  10346 0:02:06 user3 MATLAB/41 1.5%
Flag time :  10346 0:03:06 user3 MATLAB/41 1.1%
Flag time :  10346 0:05:35 user3 MATLAB/42 6.1%
Flag time :  10346 0:10:34 user3 MATLAB/42 6.2%
Flag time :  10346 0:15:35 user3 MATLAB/42 6.3%
Flag time :  10346 0:20:35 user3 MATLAB/42 6.3%
Flag time :  10346 0:25:35 user3 MATLAB/42 6.2%
Flag time :  10346 0:30:36 user3 MATLAB/42 6.2%
Flag time :  10346 0:35:35 user3 MATLAB/42 6.2%
Flag time :  10346 0:39:45 user3 MATLAB/42 1.8%
Flag time :  10346 0:40:39 user3 MATLAB/42 1.1%
Flag time :  10346 0:41:33 user3 MATLAB/42 1.1%
Flag time :  10346 0:42:27 user3 MATLAB/42 1.1%
Flag time :  10346 0:43:21 user3 MATLAB/42 1.1%

:aie: Je sais je suis toujours sur le script de mon post précédent mais le problème est différent :aie:

Voici mon script :

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
#!/usr/bin/perl
use strict;
use warnings;
 
open (F, 'MATLAB_2011_04_v2.log');
my @t = <F>;
close (F);
 
#mise en forme 
my @out;
foreach my $line (@t) {
# 	print "Flag Line : $line\n";
	my @col=split (/\s+/,$line);
	my $pid=$col[3];
	next if !defined $pid;
	my @time=split (/:/,$col[4]);
	my $login=$col[5];
# 	print "Flag Time : $time[0] $time[1] $time[2]\n";
  	my $sec= ($time[0]*3600  + $time[1]*60  + $time[2]);
	@out=(@out,"PID: $pid Temps: $sec Login: $login \n");
}
 
sort @out;
print "@out\n";

J'aimerais que ce script me sorte le temps max pour chaque PID, et non pas les colonnes triée ce qui est le cas actuellement.

Documentation lue :

http://articles.mongueurs.net/magazines/linuxmag48.html
http://www.hobbesworld.com/perl/tableaux.php
http://articles.mongueurs.net/traduc...an-rosler.html

Désolé mais là je n'y arrive pas ....
Merci de votre aide.

18/01/2012, 15h55
estofilo
Tu pourrais créer un hash %maxtemps initialement vide pour y stocker l'association pid=>[temps maximum]
Dans la boucle, il faudrait mettre après le calcul de $sec un test/affectation de ce genre là:
Code:

1 2 3 4 if (!exists $maxtemps{$pid} || $maxtemps{$pid} < $sec) { $maxtemps{$pid} = $sec; }
En sortie de boucle, $maxtemps contiendra pour chaque pid le temps maximum constaté sur l'ensemble des lignes. Aucun tri n'est nécessaire.

Il faut apprendre à indenter son code et le commenter.

Voici un programme qui fonctionne.

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
#!/usr/bin/perl
use strict;
use warnings;
 
my %informations;
my $id = 1;
 
# Lecture de mon fichier log
my $fichier_log = 'MATLAB_2011_04_v2.log';
open my $fh_log, '<', $fichier_log or die "Impossible de lire le fichier : $fichier_log\n";
while ( my $ligne = <$fh_log> ) {
  chomp $ligne;
 
  # Si la ligne contient Flag time :, on mémorise les informations nécessaires et supprime le flag
  if ( $ligne =~ s{^Flag time\s+:\s+}{}i ) {
    my ( $pid, $temps, $login, $data2, $pourcentage ) = split /\s+/, $ligne;
    my ( $heure, $minute, $seconde ) = split /:/, $temps;
    my $time = ( $heure * 3600 ) + ( $minute * 60 ) + $seconde;
    $informations{$id} = [ $pid, $time, $login, $data2, $pourcentage ];
    $id++;
  }
}
close $fh_log;
 
# Affichage des informations mises en mémoire
foreach my $id ( sort { $informations{$a}->[1] <=> $informations{$b}->[1] } keys %informations ) {
  my $pid   = $informations{$id}->[0];
  my $sec   = $informations{$id}->[1];
  my $login = $informations{$id}->[2];
  print "PID : $pid Temps: $sec Login $login\n";
}

Meric pour vos réponses,
J'ai essayé d'ingurgité vos conseilles.
Estofilo est plus proche de mon objectif mais j'ai essayé d'appliquer un haschage sans succès.:cry:
Est ce que positionner la variable comme ceci :
Code:

1 2 my %informations; my %maxtemps;
implique obligatoirement que l'on va faire du hash ???

Par contre le script Djibril m'affiche toutes les lignes triées ( pour moi même effet que la fonction sort ) alors que j'aimerais avoir apparaître seulement la ligne avec la valeur maximalle de "$sec"
Qu'est ce l'indentation dans perl ?:calim2:

J'ai essayé de faire comme ceci en laissant la hashage commenté, mais je perd les valeurs de $sec; $pid :
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 #!/usr/bin/perl use strict; use warnings; my %informations; my $id = 1; # my %maxtemps; # Lecture de mon fichier log my $fichier_log = 'MATLAB_2011_04_v2.log'; open my $fh_log, '<', $fichier_log or die "Impossible de lire le fichier : $fichier_log\n"; while ( my $ligne = <$fh_log> ) { chomp $ligne; # Si la ligne contient Flag time :, on mémorise les informations nécessaires et supprime le flag if ( $ligne =~ s{^Flag time\s+:\s+}{}i ) { my ( $pid, $temps, $login, $data2, $pourcentage ) = split /\s+/, $ligne; my ( $heure, $minute, $seconde ) = split /:/, $temps; my $time = ( $heure * 3600 ) + ( $minute * 60 ) + $seconde; $informations{$id} = [ $pid, $time, $login, $data2, $pourcentage ]; $id++; } } close $fh_log; # Affichage des informations mises en mémoire foreach my $id ( sort { $informations{$a}->[1] <=> $informations{$b}->[1] } keys %informations ) { if ($informations{$id-1}->[1] < $informations{$id}->[1] { my $pid = $informations{$id}->[0]; my $sec = $informations{$id}->[1]; my $login = $informations{$id}->[2]; print "PID : $pid Temps: $sec Login $login\n"; } # if (!exists $maxtemps{$pid} || $maxtemps{$pid} < $sec) { # $maxtemps{$pid} = $sec; # } }
:aie:
Encore merci ... .

Tu voulais juste une ligne contenant la max ? Bah c'est simple alors.

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
#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw( max );
my %informations;
my $id      = 1;
my $max_sec = 0;
 
# Lecture de mon fichier log
my $fichier_log = 'MATLAB_2011_04_v2.log';
open my $fh_log, '<', $fichier_log or die "Impossible de lire le fichier : $fichier_log\n";
while ( my $ligne = <$fh_log> ) {
  chomp $ligne;
 
  # Si la ligne contient Flag time :, on mémorise les informations nécessaires et supprime le flag
  if ( $ligne =~ s{^Flag time\s+:\s+}{}i ) {
    my ( $pid, $temps, $login, $data2, $pourcentage ) = split /\s+/, $ligne;
    my ( $heure, $minute, $seconde ) = split /:/, $temps;
    my $time = ( $heure * 3600 ) + ( $minute * 60 ) + $seconde;
    $informations{$id} = [ $pid, $time, $login, $data2, $pourcentage ];
    $max_sec = max($max_sec, $time);
    $id++;
  }
}
close $fh_log;
 
# Affichage des informations mises en mémoire 
foreach my $id ( sort { $informations{$a}->[1] <=> $informations{$b}->[1] } keys %informations ) {
  my $pid   = $informations{$id}->[0];
  my $sec   = $informations{$id}->[1];
  my $login = $informations{$id}->[2];
  if ( $sec == $max_sec ) {
    print "PID : $pid Temps: $sec Login $login\n";
    last;
  }
 
}

Résultat : PID : 11365 Temps: 2658 Login user1

19/01/2012, 11h45
dubis
Non pas si simple .... En tout cas pour moi :mrgreen:
Déjà merci pour la routine List::Util que je ne connaissais pas et qui est très interressante.

En fait , Je cherche le max temps de chaque PID.....
C'est pour cela que j'avais essayé de comparer le temps de la ligne id -1 avec la ligne id en considérant quelles étaient dans l'ordre, pour traiter complètement l'information ....

Cela devrait donner ceci :
Code:

1 2 3 4 5 6 PID: 4097 Temps: 23 Login: user2 PID: 11365 Temps: 42 Login: user1 PID: 18715 Temps: 56 Login: user2 PID: 11365 Temps: 2658 Login: user1 PID: 10346 Temps: 2601 Login: user3
J'ai essayé d'imprimer "$informations{$id}" cela m'adonné :
Code:

1 2 3 4 5 6 7 ARRAY(0x1743098) ARRAY(0x1738f50) ARRAY(0x1738ff8) ARRAY(0x179cda0) ARRAY(0x179ce48) .../..
Barman! Encore un doliprane s'il vous plait ?

Citation:

Envoyé par dubis

En fait , Je cherche le max temps de chaque PID.....

Il faut apprendre à être clair dès le début, ça nous évite de perdre du temps à coder inutilement :? !

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
#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw( max );
 
my %informations;
my $max_sec = 0;
 
# Lecture de mon fichier log
my $fichier_log = 'MATLAB_2011_04_v2.log';
open my $fh_log, '<', $fichier_log or die "Impossible de lire le fichier : $fichier_log\n";
while ( my $ligne = <$fh_log> ) {
  chomp $ligne;
 
  # Si la ligne contient Flag time :, on mémorise les informations nécessaires et supprime le flag
  if ( $ligne =~ s{^Flag time\s+:\s+}{}i ) {
    my ( $pid, $temps, $login, $data2, $pourcentage ) = split /\s+/, $ligne;
    my ( $heure, $minute, $seconde ) = split /:/, $temps;
    my $time = ( $heure * 3600 ) + ( $minute * 60 ) + $seconde;
 
    if ( ! $informations{$pid} ) { $max_sec = 0; }
    $max_sec                   = max($max_sec, $time);
    $informations{$pid}{temps} = $max_sec;
    $informations{$pid}{login} = $login; 
  }
}
close $fh_log;
 
# Affichage des informations mises en mémoire 
foreach my $unpid ( sort { $informations{$a}{temps} <=> $informations{$b}{temps} } keys %informations ) {
  my $sec   = $informations{$unpid}{temps};
  my $login = $informations{$unpid}{login};
  print "PID : $unpid Temps: $sec Login $login\n";
}

Résultat :

Citation:

PID : 4097 Temps: 23 Login user2
PID : 18715 Temps: 56 Login user2
PID : 10346 Temps: 2601 Login user3
PID : 11365 Temps: 2658 Login user1

19/01/2012, 15h33
dubis

Citation:

Envoyé par djibril

Il faut apprendre à être clair dès le début, ça nous évite de perdre du temps à coder inutilement :? !

Djibril,

Je suis désolé des inconvénients sur mon manque d'expression mais suivant la réponse d'estofilo je pensais être clair :oops:...
Mon but n'est pas que vous codiez à ma place, mais de devenir autonome, avec un auto formation par l’expérience. C'est pour cela que je suis plus friant d'explication que du résultat et souvent je reviens sur mes poste pour revenir sur la reflexion. Cependant je pense que j'ai passé une étape par mes recherches et vos réponses.....

Encore merci ...
19/01/2012, 16h33
estofilo
Citation:
Envoyé par dubis

Est ce que positionner la variable comme ceci :

Code:

1 2 my %informations; my %maxtemps;

implique obligatoirement que l'on va faire du hash ???
Oui.
20/01/2012, 09h57
dubis

Maintenant je comprend mieux cette doc...
http://www.dil.univ-mrs.fr/~chris/Perl/Hash.htm

:merci: :ccool: :merci: