Discussion :

[mariafan]

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

[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.

[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 :

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

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.

[Jasmine80]

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

Code :

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

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 :

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
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,

[mariafan]

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

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
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 :

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

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

merci de votre aide

[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 :

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

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

Par

Code :

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

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