Discussion :

[MaitrePylos]

Bonjour,

Voila je récupère dans une liste une série de ligne de type

Code :

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

1
2
3
 
 
 822    1 -rwxrwx---   1 jfhhj    opfddu        719 May  4  2005 /home/toto/fichier.txt

je voudrais créer une table de hachage avec les infos nom de fichier et et dates.

donc faire ceci.

Code :

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

1
2
 
%hach(/home/toto/fichier.txt =>May  4  2005 )

J'arrive à faire un grep sur le nom de fichier mais pas sur la date.

Auriez-vous une idée.

Merci.

MaitrePylos

[MaitrePylos]

Bon,

je vais essayer d'être plus clair(c'est surtout pour moi ).

Je récupère les lignes grâce à un split

Code :

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

1
2
 
my @list = split( /\.txt/, $stdout );

Je me retrouve avec près de 500 lignes.

je voudrais les manipuler par lignes découper.

donc je fais un nouveau split (c'est ici que ça va pas)

Code :

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

1
2
3
4
5
6
 
 
for ($i = 0; $i <@list ; $i++)
{
	$words[$i] = split /\s+/, $list[$i];
}

donc si j'affiche cela ne fonctionne pas

Code :

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

1
2
3
4
 
for ( $i = 0 ; $i < $word[0] ; $i++ ) {
    print $word[0][$i]
}

je pense que je melange les tableau de tableau et les références, mais je débute et patauge un peu.

Merci de votre aide.

[iblis]

Bonjour. Je ferais plutôt comme ça (le détail est adapté à ma sortie de ls).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w
use strict;
 
open FILE, 'ls -l |';
my %files;
 
while (<FILE>) {
    my @field = split (/\s+/);
    next if ($#field < 8);
    $files{$field[8]} = join " ", $field[6], $field [5];
 
}
 
map { print "$_ => $files{$_}\n" } sort keys %files;

On peut certainement faire plus élégant.

[MaitrePylos]

Merci pour ton aide.

Cela m'a permis d'obtenir mon résultat que j'obtient comme ceci :

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
 
for ($i = 0; $i <@list ; $i++)
{
	@words = split /\s+/, $list[$i];
 
	push @TdT, [ @words ];
 
 
 
}
 
#et j'imprime éventuellement comme ceci
print $TdT[1][0]."\n";
print $TdT[1][1]."\n";
print $TdT[1][2]."\n";
print $TdT[1][3]."\n";
print $TdT[1][4]."\n";
print $TdT[1][5]."\n";
print $TdT[1][6]."\n";
print $TdT[1][7]."\n";
print $TdT[1][8]."\n";
print $TdT[1][9]."\n";
print $TdT[1][10]."\n";
print $TdT[1][11]."\n";

[Jedai]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#et j'imprime éventuellement comme ceci
print $TdT[1][0]."\n";
print $TdT[1][1]."\n";
print $TdT[1][2]."\n";
print $TdT[1][3]."\n";
print $TdT[1][4]."\n";
print $TdT[1][5]."\n";
print $TdT[1][6]."\n";
print $TdT[1][7]."\n";
print $TdT[1][8]."\n";
print $TdT[1][9]."\n";
print $TdT[1][10]."\n";
print $TdT[1][11]."\n";

Hum :

Code :

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

1
2
3
for my $i (0..11) {
  print "$TdT[1][$i]\n";
}

--
Jedaï

[MaitrePylos]

oups

Merci