Discussion :

[PuMa|Yas]

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

[Jasmine80]

Il faudrait un script de ce genre

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

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

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

[Jasmine80]

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

FAQ
FAQ substitutions

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 :

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

1
2
3
$line =~  s/\$lol\$/lol2/g 
# ce qui équivaut à
$line =~  s{\$lol\$}{lol2}g

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

[Jasmine80]

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 :

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

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

sinon

Code :

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

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

[PuMa|Yas]

OK Merci!!!

Je test ça

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

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