correction de script

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:

---

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

Salut,

je pense que tu dois lire un peu plus la documentation concernant l'opérateur diamant <> et l'utilisation de la variable $_.
Aussi l'utilisation des modificateurs d'expressions pour les cas simples.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#!/usr/bin/perl use warnings;use strict;   open INPUT, '<', '/secure/work/segment.lst' or die "open : $!"; open OUTPUT, '>', '/secure/work/telephone_seg' or die "open : $!";   while (<INPUT>){ print OUTPUT if /f0/; } close(INPUT); close(OUTPUT);

---

lami20j

P.S. Ce n'est pas du tout didactic ce que j'ai écrit (dirait Jedai et il a raison) mais je n'ai pas assez de temps pour t'expliquer(je suis au boulot).
En revanche la documentation que tu trouves sur ce site c'est assez suffisante pour comprendre certaines choses.