aide demandée sur tri tableau 2D

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

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, 16h55

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, 17h18

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, 11h14

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, 11h31

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, 12h45

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 ?

**estofilo** · 19/01/2012, 17h33

Envoyé par dubis

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

Oui.

**dubis** · 20/01/2012, 10h57

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

aide demandée sur tri tableau 2D

Programmation et administration système Perl

Vue hybride

Discussions similaires

Partager

Partager