Retourner au contenu associé (entrée de forum : Question: Quel langage?)
Posté par CrEv (site web personnel) le 23 mai 2005 à 22:59. En réponse au message Question: Quel langage?. Évalué à 2.
#!/usr/bin/perl use Getopt::Std; getopt("io"); open(IN, "<$opt_i") or die("open : $!"); open(OUT, ">$opt_o") or die("open : $!"); while(defined($line = <IN>)) { $line =~ s/TOTO/TATA/g; print OUT $line; } close(IN); close(OUT);
AltStyle によって変換されたページ (->オリジナル) / アドレス: モード: デフォルト 音声ブラウザ ルビ付き 配色反転 文字拡大 モバイル
[^] # Re: en java bien sûr !
Posté par CrEv (site web personnel) . En réponse au message Question: Quel langage?. Évalué à 2.
#!/usr/bin/perl use Getopt::Std; getopt("io"); open(IN, "<$opt_i") or die("open : $!"); open(OUT, ">$opt_o") or die("open : $!"); while(defined($line = <IN>)) { $line =~ s/TOTO/TATA/g; print OUT $line; } close(IN); close(OUT);A appeler du genre ./replace -i toto -o tata