Création script pour l'ouverture/modification d'un fichier

Version imprimable

28/07/2009, 15h41
PuMa|Yas

Création script pour l'ouverture/modification d'un fichier

Bonjour,

Croyiez le ou pas mais j'ai vraiment cherché avent de venir posté ce message.

Le problème c'est que je n'ai vraiment aucune expérience/connaissance avec le perl

Donc ce que je souhaiterais faire c'est modifiez une script perl pour qu'il puisse modifiez un fichier...

voila ce que j'ai jusqu'a présent (lol)

open(FILE, "+< /Template.html") or warn "can't open file /Template.html: $!\n";
while( defined( $l = FILE ) )

Et enfaite après je sais pas trop ce que je dois faire...

Par exemple je voudrais que les valeur $lool$ sont remplacer par les valeur $lool3$

et les valeur $lol2$ par $loool$

Et je ne sais pas ou je dois mèttre les valeur...

Pouvez-vous m'aider svp

Merci

Il faudrait un script de ce genre

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
use strict;
use warnings;
 
 
 
 
 
# ouverture du fichier d'entrée
open my $fh, '<', "input_file.txt" or die $!;
 
# ouverture du fichier de sortie (fichier d'entrée modifié)
open my $fh_new, '>', "output_file.txt" or die $!;
 
 
# analyse ligne par ligne
while (my $line = <$fh>){
 
	# recherche et modification via des expressions régulières
	if( $line =~ m/.../){
 
		# écriture de la ligne modifiée dans le fichier de sortie
		print $fh_new ...;
	}
 
	elsif ..
	elsif ..
 
	else{
		# écriture de la ligne NON modifiée dans le fichier de sortie
		print $fh_new $line;		
	}
 
}
close $fh;
close $fh_new;

ou utiliser des substitutions

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
use strict;
use warnings;
 
use FileHandle;
 
 
 
# ouverture du fichier d'entrée
open my $fh, '<', "input_file.txt" or die $!;
 
# ouverture du fichier de sortie
open my $fh_new, '>', "output_file.txt" or die $!;
 
 
# analyse ligne par ligne
while (my $line = <$fh>){
 
	# recherche et modification via des expressions régulières
	$line =~ s/...//g;
	$line =~ s/...//g;
	$line =~ s/...//g;
	$line =~ s/...//g;
	$line =~ s/...//g;
 
	# écriture de la ligne (modifiée ou non)
	print $fh_new $line;		
 
}
close $fh;
close $fh_new;

Regarde dans la FAQ perl la documentation sur les fichiers et les regexp.

28/07/2009, 16h05
PuMa|Yas

Salut

merci pour le coup de main

j'ai cherché regexp dans la faq et documentation de perl (sur developpez)

et je ne trouve rien...

Sinon pour ce qui concerne ton script... je vois pas trop ou je dois mèttre mes valeur

si je modifie $line =~ s/...//g;
par $line =~ s/$lol$/lol2/g;

ca va remplacer lol en lol2?
28/07/2009, 16h10
Jasmine80
Citation:

Envoyé par PuMa|Yas

j'ai cherché regexp dans la faq et documentation de perl (sur developpez)
et je ne trouve rien...

FAQ
FAQ substitutions

Citation:

Envoyé par PuMa|Yas

Sinon pour ce qui concerne ton script... je vois pas trop ou je dois mèttre mes valeur

si je modifie $line =~ s/...//g;
par $line =~ s/$lol$/lol2/g;

ca va remplacer lol en lol2?

Que vaut $lol$ ? Est-ce la variable $lol? Si tu dois remplacer le signe $ tu dois l'échapper avec un backslah $line =~ s/\$lol\$/lol2/g remplacera les caractères $lol$ par lol2.
Code:

1 2 3 $line =~ s/\$lol\$/lol2/g # ce qui équivaut à $line =~ s{\$lol\$}{lol2}g
28/07/2009, 16h19
PuMa|Yas

la valeur $lol$ est dans le fichier juste pour dir qu'il dois etre remplacer par $lol2

mais la valeur $lol2 lui veu dir quel que chose d'autres

Host: $lol2

Donc esceque je dois mèttre un "\" devant le $ de lol2 ?
28/07/2009, 16h25
Jasmine80

Citation:

Envoyé par PuMa|Yas

la valeur $lol$ est dans le fichier juste pour dir qu'il dois etre remplacer par $lol2

mais la valeur $lol2 lui veu dir quel que chose d'autres

Host: $lol2

Donc esceque je dois mèttre un "\" devant le $ de lol2 ?

donc $lol2 est une variable :

Code:

$line =~ s{\$lol\$}{$lol2}g

sinon

Code:

$line =~ s{\$lol\$}{\$lol2}g
28/07/2009, 16h28
PuMa|Yas

OK Merci!!!

Je test ça
29/07/2009, 16h13
PuMa|Yas

Salut,

Alors voila après plusieurs tentative ben.... ca fonctionne pas...

Ce qui est peu être le problème c'est que je suis sous debian...???

Sous ma machine, j'ai perl 5 installer...? est-ce que c'est le bon langage ??
29/07/2009, 16h34
Jedai

Tu pourrais peut-être nous montrer le code que tu as essayé d'utiliser et le fichier sur lequel tu l'appliques, parce que "... ça fonctionne pas..." manque un peu d'information utile pour t'aider.

--
Jedaï