appliquer un scripte sur pls fichiers

Version imprimable

27/06/2007, 12h28
mariafan

appliquer un scripte sur pls fichiers

Bonjour,
j'ai développer un script en perle pour traiter des fichiers texte dans un premier temps, et a marche.
le pbm mnt est que je dois appliquer ce script sur plusieurs fichiers tarré zippé dans un dossier.
pouvez vous me donner une piste comment puis-je faire??
merci d'aance de votre aide
27/06/2007, 12h41
Arioch

C'est assez vague, ce que tu nous dit.

Tes fichiers targézippés sur lesquels doit intervenir ton script, tu compte faire quoi dessus ? De la lecture ? De la mise à jour de fichiers ?

Il te faudra je pense dézipper, puis détarer tes archives dans un dossier temporaire pour pouvoir travailler ensuite sur ce qu'elles contiennent.
27/06/2007, 15h38
mariafan
ce que je voudrais faire.
avec mes scripts je recupère des données a partir d'un fichier source et j'envoie ces données à une base de données Mysql.
ce que je voudrais faire c'est automatiser le processus en l'appliquant sur tous les fichiers (qui sont 25)
sachant que je connais pas tout le temps le nom de mes fichiers , voila mon code pour l'ouverture du fichier
Code:

1 2 3 my $basedir = 'C:/Program Files/EasyPHP1-8/www/traitement'; open my ($src), '<', "$basedir/ctrlsys_6hCB01_14.txt" or die "E/S : $!\n";
merci de votre aide.

Je suppose que ce sont 25 fichiers .txt
Tu peux récupérer tes noms de fichier grâce à la fonction Glob:

Code:

1
2
3
4
5
6
7
#--------------------------------------------------------------------------------------------------------
# fonction glob  : glob prend en argument une expression et renvoie une liste de noms de fichiers.
#--------------------------------------------------------------------------------------------------------
 
 
my @liste = glob('C:/Program Files/EasyPHP1-8/www/traitement/*.txt');
foreach my $l (@liste){...}

Y'a aussi en version plus longue

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my $pDirectory;
my $path =  "'C:/Program Files/EasyPHP1-8/www/traitement";
 
 
opendir ($pDirectory,$path)
or die ("Directory ".$path." can't be open!\n");
 
my @Directory_list = readdir($pDirectory);	
closedir ($pDirectory);
 
foreach my $File (@Directory_list)
{
    if( $File =~ m/\.txt$/ )
    {
         ...
    }
}

Jasmine,

Bonjour,
merci pour votre réponse voila ce que j'ai fais(j'ai ajouté le code de traitement)

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
my $pDirectory;
my $path =  "C:/Program Files/EasyPHP1-8/www/traitement/sources";
 
 
opendir ($pDirectory,$path)
or die ("Directory ".$path." can't be open!\n");
 
my @Directory_list = readdir($pDirectory);	
closedir ($pDirectory);
 
foreach my $File (@Directory_list)
{
    if( $File =~ m/\.txt$/ )
    {
        #.....VOILA MON CODE POUR TRAITER TOUS LES FICHIERS DE LA LISTE.............................
		open my ($src), '<', "$File" or die "E/S : $!\n";
		# Connect to the database.
		my $dbh = DBI->connect( "DBI:mysql:database=tdm;host=localhost","chakri", "farid", { 'RaiseError' => 1 } );
 
		my $sth =
		$dbh->prepare(
        "INSERT INTO srfil ( id_srfil, ct, date_srfil, heure_s, evt, am, etat_am, af, msg)". " VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" );
 
 
		# variable d'état pour savoir si l'on se trouve dans ule paragraphe qu'on veut imprimer ($in == 2), après une commande ($in == 1),
		# ou en dehors de tout cela ($in == 0)
		my $in = 0;
		my ( $id_srfil, $ct, $date, $heure, $evt, $am, $etat, $af, $msg );
 
		while (<$src>) {
			if ( not $in and m/^====([\w\d]+)/ ) {
			$ct = $1;
			print 'ct: '.$ct."\n"; 
			}
			elsif ( not $in and my ($cmd) = (m/\s*SRFIL/) ) {
			$in = 1;
			}
			elsif ( $in == 1 and m/^\s*TRAITEMENT ...... ACC/ ) {
			$in = 2;
			}
			# dans le cas ou command == SRFIl
			elsif ($in == 2	and m{^\s+(\d{2}\-\d{2}\-\d{2})/(\d{2})\s+\w{1}\s+(\d{2})\s+\w{2}\s+(\d{2})\s+EVT=(.*) $}x)
			{
				if ( defined $date ) {
				$sth->execute( $id_srfil, $ct, $date, $heure, $evt, $am, $etat, $af, $msg )
				or die "pb de requete : $DBI::errstr";
				}
			( $date, $heure, $evt, $am, $etat, $af, $msg ) = (undef) x 7;
	        $date  = $1;
			$heure = $2.':'.$3.':'.$4;
			$evt   = $5;
			}
			elsif ($in == 2 and m{^\s*/AM\s*=\s*([\w\d]+)\s*ETAT=(\w+)$}x
			or 	m{^\s*      /AM\s*=\s*([\w\d]+)\s*     ETAT=(\w+)\s*AF\s*=\s*(.*)    $}x )
			{
			$am   = $1;
			$etat = $2;
			$af   = $3;
			$id_srfil = $am.'_'.$date.'_'.$heure;
			}
			elsif ( $in == 2 and /\/\s*(.*)$/ ) {  #[\s\d]+
			$msg .= $1;
			}
			elsif ( $in == 2 and m/^\s*TRAITEMENT ...... EXC/ ) {
			$in = 1;
				if ( defined $date ) {
				$sth->execute( $id_srfil, $ct, $date, $heure, $evt, $am, $etat, $af, $msg )
				or die "pb de requete : $DBI::errstr";
				}
			( $date, $heure, $evt, $am, $etat, $af, $msg ) = (undef) x 7;		
			}
			elsif ( $in == 1 and m/^\s*EXC\s*$/ ) {
			$in = 0;
			}
		}
		close $src;
		$dbh->disconnect;
        #.....VOILA LA FIN DE MON CODE POUR TRAITER TOUS LES FICHIERS DE LA LISTE.............................
    }
}

mais j'ai une faute que je ne sais pas comment debuguer

Code:

1
2
C:\Program Files\EasyPHP1-8\www\traitement>trtsrfil.pl
E/S : No such file or directory

merci de votre aide

28/06/2007, 16h38
Woufeil

Le problème vient du chemin vers le fichier que tu veux ouvrir, il est incorrect...
En fait, quand tu utilises la commande opendir, le répertoire est ouvert, mais ne devient pas le répertoire courant ! Donc dans ton open, perl va chercher un fichier dans une liste de répertoire n'incluant pas le répertoire que tu viens d'ouvrir, il ne le trouve donc pas. La solution est de passer par le chemin absolu de ton fichier.
Il faut donc remplacer

Code:

open my ($src), '<', "$File" or die "E/S : $!\n";

Par

Code:

open my ($src), '<', "$path/$File" or die "E/S : $!\n";
28/06/2007, 18h03
mariafan

merci ça marche.
mais j'ai tjs un autre pbm. je l'ai poster sous le nom de"pbm perl sans piste pour débeguer"
merci d'avance de m'aider à resoudre ce pbm.