Discussion :

[donmamio]

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

[lami20j]

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 :

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

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.