salut a tous
j'ai écrit un script en perl qui lit un fichier ligne par ligne , et a chaque fois qu'il trouve le caractére " f0 " il ecrit toute la ligne sur un autre fichier à créer .
est ce que quelqu'un peut corriger mon script
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 #!/usr/bin/perl -w use strict; open(INPUT, '<', '/secure/work/segment.lst') or die "open : $!"; open(OUTPUT, '>', '/secure/work/telephone_seg') or die "open : $!"; while (my $ligne = <INPUT>) { $_=grep(/f0/, $ligne); chomp; print OUTPUT "$1" , "\n"; } close(INPUT); close(OUTPUT);
merci
Partager