Perl

parcourir un dossier (je le relance)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : parcourir un dossier (je le relance)

Lanfeust42

Bonjour, c'est encor moi désoler.

Voila je dois parcourir un dossier et rechercher tous les fichier .pdf et les convertir en txt, pour la conversion j'ai trouver pdftotext pour convertir les fichiers ca me semble bien et je voulais savoir si il existait une commande pour trouver tous les fichier pdf??

Merci de votre attention.

Message édité par Lanfeust42 le 07-06-2006 à 09:26:50

Publicité

Lanfeust42

Hum j'ai trouver ceci il parais que ce programme compte les fichier et dossier d'un repertoire pour moi il affiche toujours 0 fichiers et 2 répertoire

my $nbrep = 0;
my$nbfic = 0;
my $dossier = "c:\\Documents and Settings\\toto" );
opendir DIR, $dossier or die "$dossier n'existe pas !";
my @files = readdir DIR;
foreach my $fichier (@files) {
if (-f $fichier) { $nbfic++; }
elsif (-d $fichier) { $nbrep++; }
}
close DIR;
print "Il y a $nbfic fichier(s) et $nbrep répertoire(s) dans $dossier.\n";

J'ai aussi trouver la fonction glob:

my @fichiers_pdf = glob("c:\\Documents and Settings\\toto*.pdf" );

foreach my $scalar(@fichiers_pdf) {
print "$scalar\n";
}

Mais la non plus rien de concluant

alors je le dit ... à l'aide

Message édité par Lanfeust42 le 05-06-2006 à 15:28:06

pospos

achete toi le perl cookbook

Lanfeust42

quelqu'un a une autre solution svp

pospos

http://search.cpan.org/~nwclark/pe [...] ob/Glob.pm

Lanfeust42

Merci Pospos tu va me trouver un peu chiant pi être ou un peu c.. sur les bords mais j'ai toujours pas compris la fonction glob :sweat:

pospos

la fonction glob emule le glob du shel: il te sort tous les fichiers qui matchent le pattern que tu lui donne (un peu comme une regexp)

genre a*.pdf va matcher a1.pdf, a2.pdf, etc...

Lanfeust42

Bon c'est bien ce que j'avais compris, merci mais cette fonction ne fonctionne que sous Unix je crois? Non? Et le problème c'est que mon entreprise est sous Windows (y on pas encor compris pourquoi linux c'est bien) et donc dans mes pérégrination j'ai trouver DosGlob que je n'arrive pas du tout à faire marcher sur cpan on trouve ceci:

Code :

# override CORE::glob in current package
use File::DosGlob 'glob';
# override CORE::glob in ALL packages (use with extreme caution!)
use File::DosGlob 'GLOBAL_glob';
@perlfiles = glob "..\\pe?l/*.p?";
print <..\\pe?l/*.p?>;

j'ai remplacer ainsi:

Code :

# override CORE::glob in current package
use File::DosGlob 'glob';
# override CORE::glob in ALL packages (use with extreme caution!)
use File::DosGlob 'GLOBAL_glob';
my @fichiers_pdf = glob("c:\\Documents and Settings\\toto\\*.pdf" );
foreach my $scalar(@fichiers_pdf) {
print "$scalar\n";
}

ca me met une erreur dans le fichier DosGlob, et je ne comprend pas pourquoi.

Merci de ton aide

Message édité par Lanfeust42 le 06-06-2006 à 10:36:26

Aricoh

gentil mais fo po pousser

A tester, autre solution :

Code :

my $rep = "C:\toto\beurk\pouet\pdf";
chdir $rep;
my @ListePDF = <*.pdf>;
foreach(@ListePDF)
{
print "fichier $_ est un PDF\n";
}

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Lanfeust42

youpi ca marche merci bocoup c'est trop bien

euhh juste un petit détail comment faire pour lui dire que le répertoire c'est celui ou je suis??

Message édité par Lanfeust42 le 06-06-2006 à 13:45:29

Publicité

Aricoh

gentil mais fo po pousser

Essaie ceci dans ton script :

Code :

use Cwd; # à mettre au début du script
$dir = cwd;
print "repertoire courant = $dir\n";

Si ton script doit être installé dans le même dossier que tes PDF, tu peux virer le chdir que je fais, tu n'en as pas besoin dans ce cas. Enfin normalement.

Message édité par Aricoh le 06-06-2006 à 13:54:42

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Lanfeust42

merci plein bocoup tu me sort une épine du pied

pospos

File::Glob marche aussi bien sous windows que sous linux, et sert maintenant à implementer le glob du core de perl (le < > )

Lanfeust42

ouai mais j'arrive pas à le faire tourner c'est hyper bizar j'ai la bonne commande je pense, donc je comprend pas

Lanfeust42

oui bon c'"est encore moi, en faite je pensais faire la suite finger in the noz mais ...non

voila mon code :

Code :

use Cwd;
use strict;
use warnings;
my $dir = cwd;
#my $dir = $ARGV[$0];
my $nbrep = 0;
my $nbfic = 0;
my $pdftotxt = "C:\\Perl\\lib\\pdftotext";
opendir DIR, $dir or die "$dir n'existe pas !";
my @files = readdir DIR;
foreach my $fichier (@files) {
if ($fichier =~ /^\./){}
else{
print "$fichier\n";
if (-f $fichier) {
$nbfic++;
if ($fichier !~ /\.pdf/){print "pas pdf\n";}
else{
system($pdftotxt,$fichier);
print "pdf OK\n";
}
}
else{
if (-d $fichier) {
$nbrep++;
print "rep\n";
sleep 10;
}
}}
}
close DIR;
print "Il y a $nbfic fichier(s) et $nbrep répertoire(s) dans $dir.\n";
sleep 50;

Comme vous pouvez le voir je veux maintenant parcourir les sous-répertoire, j'ai penser àdu récursif au début mais en cherchant j'ai trouver un message disant que le récursif en PERL c'est nul:http://forum.hardware.fr/hardwaref [...] 2740-1.htm

donc je me suis dit utilisont une boucle alors mais le problème c'est que j'ai un problème de répertoire:

imaginons, je trouve un nouveau répertoire, je l'ouvre (opendir) mais ensuite comment je fait pour rappeler mon programme dessus?? le chemin est diffférent :pt1cable:

Voila mon drame

Message édité par Lanfeust42 le 07-06-2006 à 09:39:07

Lanfeust42

ahah j'avance un peu(j'aime bien parler tout seul)

Code :

use Cwd;
use strict;
use warnings;
my $dir = cwd;
#my $dir = $ARGV[$0];
TOTO:
print "$dir\n";
sleep 10;
my $nbrep = 0;
my $nbfic = 0;
my $pdftotxt = "C:\\Perl\\lib\\pdftotext";
opendir DIR, $dir or die "$dir n'existe pas !";
my @files = readdir DIR;
foreach my $fichier (@files) {
if ($fichier =~ /^\./){}
else{
print "fichier:$fichier\n";
#if (-f $fichier) {
$nbfic++;
if ($fichier =~ /\.pdf/){
my $traitPDF = $dir . "/". $fichier;
system($pdftotxt,$traitPDF);
print "pdf OK\n";
}
# else{
# system($pdftotxt,$fichier);
# print "pdf OK\n";
# }
#}
else{
if (-d $fichier) {
$nbrep++;
print "rep\n";
$dir .= "/".$fichier;
print "$dir\n";
goto TOTO or die "pas goto n'existe pas !";
sleep 10;
}
}}
}
close DIR;
print "Il y a $nbfic fichier(s) et $nbrep répertoire(s) dans $dir.\n";
sleep 50;

mais la encore ca fait des choses bizar, ca traite pas les PDF du premier dossier normal (les répertoire sont répertorier avant donc le premier fichier traiter est un répertoire)
ca traite les info du second dossier nikel mais ca oublie les répertoire suivant snif.

Lanfeust42

hum bizar j'avance encor mais autre problème, mon code pmarche bien pour le premier répertoire mais ne veut pas descendre dans les sous répertoire, il ne reconnais pas le type de fichier du sous répertoire (-d ou -f)

Code :

use Cwd;
use strict;
use warnings;
my $dir = cwd;
my $nbrep = 0;
my $nbfic = 0;
my $pdftotxt = "C:\\Perl\\lib\\pdftotext";
my @tabldoss;
#my $dir = $ARGV[$0];
TOTO:
my $dirsav=$dir;
print "répertoire:$dir\n\n";
#sleep 10;
opendir DIR, $dir or die "$dir n'existe pas !";
my @files = readdir DIR;
foreach my $fichier (@files) {
print "\nvariable fichiez:$fichier\n";
if ($fichier =~ /^\./){}
else{
if (-f $fichier) {
print "fichier:$fichier\n";
$nbfic++;
if ($fichier =~ /\.pdf/){
my $traitPDF = $dir . "/". $fichier;
system($pdftotxt,$traitPDF);
print "pdf OK\n";
}
}
else{
if (-d $fichier) {
print "dossier:$fichier\n";
$nbrep++;
$dir = $dirsav."/".$fichier;
push(@tabldoss,$dir);
}
}
}
}
close DIR;
foreach my $scalar (@tabldoss) {
last if($tabldoss[0] eq "" );
$dir=$scalar;
print "\ntableau:$tabldoss[0]\n\n";
$tabldoss[0] = $tabldoss[1];
print "dir:$dir\n";
#sleep 10;
print "\n\n Il y a $nbfic fichier(s) et $nbrep répertoire(s) dans $dir\n\n";
goto TOTO or die "pas goto n'existe pas !";
}

Aricoh

gentil mais fo po pousser

Ton label TOTO, je me demande si ça pose pas un problème avec la ligne juste en dessous où tu déclares $dirsav avec my.

A chaque fois que ton programme boucle et revient sur le début de TOTO, il redéclare une variable $dirsav.

M'est avis qu'en compilant ton script avec les options -c -w passées à Perl, il devrait beugler

Message édité par Aricoh le 07-06-2006 à 13:48:21

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

krao

je crois qu'il y a une petite erreur dans une expression reguliere :

Citation :

if ($fichier =~ /^./){}

ce doit etre if ($fichier =~ /^[.]/){}

sinon tu ne rentres jamais dans le else puisqu'il cherche un fichier qui commence par n'importe quel caractere donc tous!

krao

Lanfeust42

Merci de votre aide désoler de pas vous répondre mais mon patron me fait plancher sur un truc autre en ce moment j'ai laisser mon code en vrac

FORUM HardWare.fr

Programmation

Perl

parcourir un dossier (je le relance)

Sujets relatifs
lister et compter les fichiers dans un dossier	Répertoire par defaut avec un champ parcourir
Mapper un lecteur réseau à un dossier local	[ASP.NET 2.0 ] Les dossier "App_*" d'un projet Web??
[Java] Parcourir tous les fichiers d'une URL	relance: mail to
remplacer les fichiers d'un dossier par d'autres	parcourir ligne par ligne une selection
créer un dossier portant la date du jour	boite de dialogue parcourir
Plus de sujets relatifs à : parcourir un dossier (je le relance)

Page générée en 0.090 secondes