Je cherche a faire une présentation web en perl d'un volume de donnée
sur un intranet.
J'ai donc ecrie un prog qui liste les repertoires (pas les fichiers,
pas les sous-repertoires) presents dans un chemin mis en argument
d'appel du prog.
Voici le prog
sub arbre {
print "<HTML>\n<BODY>\n";
print '<P Class="Type">';
find sub {print '<A HREF="',"$File::Find::name",'">',"$_</A><BR>\n"
if (-d && $File::Find::dir==@ARGV[0])}, @ARGV[0];
print "</P>";
}
PB: il me sort toute l'arborescence (les sous-repertoires y sont et je
les veut pas).
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
lasconic
Je cherche a faire une présentation web en perl d'un volume de donnée sur un intranet.
J'ai donc ecrie un prog qui liste les repertoires (pas les fichiers, pas les sous-repertoires) presents dans un chemin mis en argument d'appel du prog.
Voici le prog
sub arbre { print "<HTML>n<BODY>n"; print '<P Class="Type">'; find sub {print '<A HREF="',"$File::Find::name",'">',"$_</A><BR>n" if (-d && $File::Find::dir==@ARGV[0])}, @ARGV[0]; print "</P>"; }
PB: il me sort toute l'arborescence (les sous-repertoires y sont et je les veut pas).
OU EST-CE QUE JE ME PLANTE???
Merci je crois que oui sinon t'aurais ce que tu demandes ... :-)
sinon je dirais que find doit parcourir toute l'arborescence par defaut et il doit y avoir un parametre depth autant que je me souviennes non ?
Je cherche a faire une présentation web en perl d'un volume de donnée
sur un intranet.
J'ai donc ecrie un prog qui liste les repertoires (pas les fichiers,
pas les sous-repertoires) presents dans un chemin mis en argument
d'appel du prog.
Voici le prog
sub arbre {
print "<HTML>n<BODY>n";
print '<P Class="Type">';
find sub {print '<A HREF="',"$File::Find::name",'">',"$_</A><BR>n"
if (-d && $File::Find::dir==@ARGV[0])}, @ARGV[0];
print "</P>";
}
PB: il me sort toute l'arborescence (les sous-repertoires y sont et je
les veut pas).
OU EST-CE QUE JE ME PLANTE???
Merci
je crois que oui sinon t'aurais ce que tu demandes ... :-)
sinon je dirais que find doit parcourir toute l'arborescence par defaut
et il doit y avoir un parametre depth autant que je me souviennes non ?
Je cherche a faire une présentation web en perl d'un volume de donnée sur un intranet.
J'ai donc ecrie un prog qui liste les repertoires (pas les fichiers, pas les sous-repertoires) presents dans un chemin mis en argument d'appel du prog.
Voici le prog
sub arbre { print "<HTML>n<BODY>n"; print '<P Class="Type">'; find sub {print '<A HREF="',"$File::Find::name",'">',"$_</A><BR>n" if (-d && $File::Find::dir==@ARGV[0])}, @ARGV[0]; print "</P>"; }
PB: il me sort toute l'arborescence (les sous-repertoires y sont et je les veut pas).
OU EST-CE QUE JE ME PLANTE???
Merci je crois que oui sinon t'aurais ce que tu demandes ... :-)
sinon je dirais que find doit parcourir toute l'arborescence par defaut et il doit y avoir un parametre depth autant que je me souviennes non ?
Arno
Un beau jour, lasconic a écrit:
Je cherche a faire une présentation web en perl d'un volume de donnée sur un intranet.
J'ai donc ecrie un prog qui liste les repertoires (pas les fichiers, pas les sous-repertoires) presents dans un chemin mis en argument d'appel du prog.
Voici le prog
sub arbre { print "<HTML>n<BODY>n"; print '<P Class="Type">'; find sub {print '<A HREF="',"$File::Find::name",'">',"$_</A><BR>n" if (-d && $File::Find::dir==@ARGV[0])}, @ARGV[0]; print "</P>"; }
PB: il me sort toute l'arborescence (les sous-repertoires y sont et je les veut pas).
OU EST-CE QUE JE ME PLANTE???
Merci je crois que oui sinon t'aurais ce que tu demandes ... :-)
sinon je dirais que find doit parcourir toute l'arborescence par defaut et il doit y avoir un parametre depth autant que je me souviennes non ?
Exact, en passant l'option "-maxdepth 1" à find on recherche uniquement dans le premier niveau.
-- Arno - Pour le mail : http://cerbermail.com/?P5oJnDlxNt
Un beau jour, lasconic a écrit:
Je cherche a faire une présentation web en perl d'un volume de donnée
sur un intranet.
J'ai donc ecrie un prog qui liste les repertoires (pas les fichiers,
pas les sous-repertoires) presents dans un chemin mis en argument
d'appel du prog.
Voici le prog
sub arbre {
print "<HTML>n<BODY>n";
print '<P Class="Type">';
find sub {print '<A HREF="',"$File::Find::name",'">',"$_</A><BR>n"
if (-d && $File::Find::dir==@ARGV[0])}, @ARGV[0];
print "</P>";
}
PB: il me sort toute l'arborescence (les sous-repertoires y sont et
je les veut pas).
OU EST-CE QUE JE ME PLANTE???
Merci
je crois que oui sinon t'aurais ce que tu demandes ... :-)
sinon je dirais que find doit parcourir toute l'arborescence par
defaut et il doit y avoir un parametre depth autant que je me
souviennes non ?
Exact, en passant l'option "-maxdepth 1" à find on recherche uniquement dans
le premier niveau.
--
Arno - Pour le mail : http://cerbermail.com/?P5oJnDlxNt
Je cherche a faire une présentation web en perl d'un volume de donnée sur un intranet.
J'ai donc ecrie un prog qui liste les repertoires (pas les fichiers, pas les sous-repertoires) presents dans un chemin mis en argument d'appel du prog.
Voici le prog
sub arbre { print "<HTML>n<BODY>n"; print '<P Class="Type">'; find sub {print '<A HREF="',"$File::Find::name",'">',"$_</A><BR>n" if (-d && $File::Find::dir==@ARGV[0])}, @ARGV[0]; print "</P>"; }
PB: il me sort toute l'arborescence (les sous-repertoires y sont et je les veut pas).
OU EST-CE QUE JE ME PLANTE???
Merci je crois que oui sinon t'aurais ce que tu demandes ... :-)
sinon je dirais que find doit parcourir toute l'arborescence par defaut et il doit y avoir un parametre depth autant que je me souviennes non ?
Exact, en passant l'option "-maxdepth 1" à find on recherche uniquement dans le premier niveau.
-- Arno - Pour le mail : http://cerbermail.com/?P5oJnDlxNt
