Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ronan Le Hy
cyrille a écrit:
Je cherche à extraire les infos fichiers depuis la sortie d'une commande ls.
Tu peux probablement te passer d'utiliser ls, si c'est juste pour avoir des infos sur des fichiers. perldoc -f -X perldoc -f glob
lehy ~/tmp> l
total 12K drwxr-xr-x 2 lehy sharp 512 Nov 4 11:28 ./ drwxr-xr-x 82 lehy sharp 7.0K Nov 4 11:28 ../ -rw-r--r-- 1 lehy sharp 13 Nov 4 11:28 bah -rw-r--r-- 1 lehy sharp 9 Nov 4 11:28 bih -rw-r--r-- 1 lehy sharp 0 Nov 4 11:28 boh -rw-r--r-- 1 lehy sharp 17 Nov 4 11:28 bouh -rw-r--r-- 1 lehy sharp 5 Nov 4 11:28 buh
lehy ~/tmp> perl -lwe 'print "fichier: $_->[0], taille: $_->[1] o" for map {[$_, -s]} glob "*"' fichier: bah, taille: 13 o fichier: bih, taille: 9 o fichier: boh, taille: 0 o fichier: bouh, taille: 17 o fichier: buh, taille: 5 o
HTH
-- Ronan
You can write obscure code in any language, and significant programs in a language you have only superficial knowledge about are always unreadable - especially if prejudice prevent you from actually trying to overcome notational barriers. A major part of readability is simply familiarity and experience. Bjarne Stroustrup
cyrille a écrit:
Je cherche à extraire les infos fichiers depuis la sortie d'une commande
ls.
Tu peux probablement te passer d'utiliser ls, si c'est juste pour avoir
des infos sur des fichiers.
perldoc -f -X
perldoc -f glob
lehy ~/tmp> l
total 12K
drwxr-xr-x 2 lehy sharp 512 Nov 4 11:28 ./
drwxr-xr-x 82 lehy sharp 7.0K Nov 4 11:28 ../
-rw-r--r-- 1 lehy sharp 13 Nov 4 11:28 bah
-rw-r--r-- 1 lehy sharp 9 Nov 4 11:28 bih
-rw-r--r-- 1 lehy sharp 0 Nov 4 11:28 boh
-rw-r--r-- 1 lehy sharp 17 Nov 4 11:28 bouh
-rw-r--r-- 1 lehy sharp 5 Nov 4 11:28 buh
lehy ~/tmp> perl -lwe 'print "fichier: $_->[0], taille: $_->[1] o" for
map {[$_, -s]} glob "*"'
fichier: bah, taille: 13 o
fichier: bih, taille: 9 o
fichier: boh, taille: 0 o
fichier: bouh, taille: 17 o
fichier: buh, taille: 5 o
HTH
--
Ronan
You can write obscure code in any language, and significant programs in
a language you have only superficial knowledge about are always
unreadable - especially if prejudice prevent you from actually trying to
overcome notational barriers. A major part of readability is simply
familiarity and experience.
Bjarne Stroustrup
Je cherche à extraire les infos fichiers depuis la sortie d'une commande ls.
Tu peux probablement te passer d'utiliser ls, si c'est juste pour avoir des infos sur des fichiers. perldoc -f -X perldoc -f glob
lehy ~/tmp> l
total 12K drwxr-xr-x 2 lehy sharp 512 Nov 4 11:28 ./ drwxr-xr-x 82 lehy sharp 7.0K Nov 4 11:28 ../ -rw-r--r-- 1 lehy sharp 13 Nov 4 11:28 bah -rw-r--r-- 1 lehy sharp 9 Nov 4 11:28 bih -rw-r--r-- 1 lehy sharp 0 Nov 4 11:28 boh -rw-r--r-- 1 lehy sharp 17 Nov 4 11:28 bouh -rw-r--r-- 1 lehy sharp 5 Nov 4 11:28 buh
lehy ~/tmp> perl -lwe 'print "fichier: $_->[0], taille: $_->[1] o" for map {[$_, -s]} glob "*"' fichier: bah, taille: 13 o fichier: bih, taille: 9 o fichier: boh, taille: 0 o fichier: bouh, taille: 17 o fichier: buh, taille: 5 o
HTH
-- Ronan
You can write obscure code in any language, and significant programs in a language you have only superficial knowledge about are always unreadable - especially if prejudice prevent you from actually trying to overcome notational barriers. A major part of readability is simply familiarity and experience. Bjarne Stroustrup
root
On Tue, 04 Nov 2003 11:26:16 +0100, cyrille wrote:
Bonjour,
avant de re-inventer la roue, ce qui est très mal. Je cherche à extraire les infos fichiers depuis la sortie d'une commande ls.
genre : $listing = `ls -l` ; puis extraire les noms et la taille des fichiers.
Connaissez vous un package qui fait ça ? Avez vous ça dans vos tiroirs ?
Une version avec opendir() + readdir() + stat() :
#!/usr/bin/perl use strict; use warnings;
my $dir = shift; opendir(DIR, $dir) or die "Oops $!n";
my %fsize = map { $_ => (stat("$dir/$_"))[7] # on crée un élément (fichier => taille) } grep { -f "$dir/$_" # on ne conserve que les fichiers } readdir(DIR);
On Tue, 04 Nov 2003 11:26:16 +0100, cyrille wrote:
Bonjour,
avant de re-inventer la roue, ce qui est très mal.
Je cherche à extraire les infos fichiers depuis la sortie d'une commande ls.
genre :
$listing = `ls -l` ;
puis extraire les noms et la taille des fichiers.
Connaissez vous un package qui fait ça ?
Avez vous ça dans vos tiroirs ?
Une version avec opendir() + readdir() + stat() :
#!/usr/bin/perl
use strict;
use warnings;
my $dir = shift;
opendir(DIR, $dir) or die "Oops $!n";
my %fsize = map {
$_ => (stat("$dir/$_"))[7] # on crée un élément (fichier => taille)
} grep {
-f "$dir/$_" # on ne conserve que les fichiers
} readdir(DIR);
On Tue, 04 Nov 2003 11:26:16 +0100, cyrille wrote:
Bonjour,
avant de re-inventer la roue, ce qui est très mal. Je cherche à extraire les infos fichiers depuis la sortie d'une commande ls.
genre : $listing = `ls -l` ; puis extraire les noms et la taille des fichiers.
Connaissez vous un package qui fait ça ? Avez vous ça dans vos tiroirs ?
Une version avec opendir() + readdir() + stat() :
#!/usr/bin/perl use strict; use warnings;
my $dir = shift; opendir(DIR, $dir) or die "Oops $!n";
my %fsize = map { $_ => (stat("$dir/$_"))[7] # on crée un élément (fichier => taille) } grep { -f "$dir/$_" # on ne conserve que les fichiers } readdir(DIR);
