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 .
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);
est ce que quelqu'un peut corriger mon script
merci