aide demandée sur tri tableau 2D

**dubis** · 18/01/2012, 14h57

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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%

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

Voici mon script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**estofilo** · 18/01/2012, 15h55

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**djibril** · 18/01/2012, 16h18

Il faut apprendre à indenter son code et le commenter.

Voici un programme qui fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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";
}

**dubis** · 19/01/2012, 10h14

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.

Est ce que positionner la variable comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

J'ai essayé de faire comme ceci en laissant la hashage commenté, mais je perd les valeurs de $sec; $pid :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;
# }
}

Encore merci ... .

**djibril** · 19/01/2012, 10h31

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**dubis** · 19/01/2012, 11h45

Non pas si simple .... En tout cas pour moi

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

**djibril** · 19/01/2012, 13h30

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

**dubis** · 19/01/2012, 15h33

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

...
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 ...