traitement de fichier - Perl - Programmation
Marsh Posté le 26-07-2006 à 11:47:15
Bon déjà, je met ton code avec la présentation comme y faut
Code :
|
Et qu'est-ce que c'est que ces lignes bizarres là ? Y a des if ( $line=<PARSE> ) partout dans ton code. Je me demande si tu sais bien à quoi ça sert ?
Marsh Posté le 26-07-2006 à 11:54:02
euh ... franchement t'as absolument besoin d'un script perl pour faire ça??? Surtout que celui-là fait n'importe quoi...
un petit:
Code :
|
et on en parle plus
Marsh Posté le 26-07-2006 à 11:55:28
Tout dépend dans quel cadre il doit bosser ce code.
Si c'est un novice Perl, mieux vaudrait l'aider sur une soluce en Perl que passer par Sed.
Même si comme le dit la pub, "Sed c'est bien"
Marsh Posté le 26-07-2006 à 12:01:16
Aricoh a écrit : Même si comme le dit la pub, "Sed c'est dien" |
Et si salim81 tient réellement à le faire en PERL, un simple :
perl -pi -e 's/text1/text2/g' /tmp/FILETOP |
fera l'affaire.
Marsh Posté le 26-07-2006 à 12:19:50
Aricoh a écrit : Tout dépend dans quel cadre il doit bosser ce code. |
vu le code je ne doute pas qu'il soit novice perl... Mais avant de l'aider sur une solution, il faut a mon avis qu'il relise 2/3 tutorials sur la lecture des fichiers en perl
Elmoricq a écrit : Et si salim81 tient réellement à le faire en PERL, un simple :
|
Marsh Posté le 26-07-2006 à 12:25:36
Elmoricq a écrit : Et si salim81 tient réellement à le faire en PERL, un simple :
|
Ca marche aussi si on le fait comme ça ?
perl -3.14 -e 's/text1/text2/g' /tmp/FILETOP |
Marsh Posté le 18-07-2006 à 17:36:27
bonjour!
j'ai un script perl qui recupere les lignes d'un fichier:
#!/usr/bin/perl -w
open(PARSE,'/tmp/FILETOP') or err_trap(" Files not found" );
while ( $line=<PARSE> ) {
## parse each xml file
print "NE Name :$line";
if ( $line=<PARSE> ) {
#print "NE $line";
}
if ( $line=<PARSE> ) {
# print "NE Type $line";
@champ = split(/#/,$line);
$result = $champ[0];
print "NE Type :$result";
}
if ( $line=<PARSE> ) {
print "\nNE RELEASE :$line";
}
}
close(PARSE);
mon probleme c'est que je veux tester si $result="text1" je veux le remplacer par "texte2" et j'affiche $result.
svp quelqu'un pourra m'aider?
merci