Retourner au contenu associé (entrée de forum : Éliminer des lignes dans un fichier à ski...)
Posté par omnikron le 06 juillet 2006 à 11:49. En réponse au message Éliminer des lignes dans un fichier à ski.... Évalué à 3.
AltStyle によって変換されたページ (->オリジナル) / アドレス: モード: デフォルト 音声ブラウザ ルビ付き 配色反転 文字拡大 モバイル
# Ca doit être bon
Posté par omnikron . En réponse au message Éliminer des lignes dans un fichier à ski.... Évalué à 3.
#!/usr/bin/perl
my $orig_file = "mon_fichier";
my $new_file = "mon_nouveau_fichier";
my @all_lines = `cat $orig_file`;
my $first_skip = 57;
my $n_skip = 3;
my $i = 1;
chomp(@all_lines);
for(my $j=0; $j<scalar(@all_lines); $j++) {
if($i == $first_skip) {
$i = 1;
$j += $n_skip-1;
next;
}
`echo $all_lines[$j] >> $new_file`;
$i++;
}
Sur le principe ça semble bon... par contre en ce qui concerne l'écriture du nouveau fichier... Si tu as des caractères non alpha (apostrophe, quote, etc) je te conseille d'utiliser les mécanismes perl pour écrire la ligne (open, close, etc).