0

テキスト ファイルから取得した一連の数値にプレフィックスとサフィックスを追加する方法。コーディングを書きましたが、いくつかのバグが見られます。

私のテキストファイルには次のような数字が含まれています

1
2
3
4
5
6

出力は次のようになります

                                3r_1.pdb
                                3r_2.pdb
                                .
                                .
                                3r_6.pdb

プログラム：-

open(FILE,"text.txt");
open(OUT,">output.txt");
while($file=<FILE>)
{
$f= "3r_";
$e= ".pdb";
chomp($file);
print OUT "$f$file$e\n";

}

バグが実際にどこにあるのか理解できません。

4

2 に答える 2

2

パターンは同じなので、次のようにします。

use strict;
use warnings;

open(my $in, "<", "text.txt") or die $!;
open(my $out, ">", "output.txt") or die $!;

while (my $line = <$in>)
{
  chomp ($line);
  print $out "3r_" . $line . ".pdb\n";
}

close ($in);
close ($out);

あなたは常にすべきuse strict; use warnings;です。最近の Perl では、ファイルに対しても 3 つの引数の open を使用するのがベスト プラクティスです。より明確になり、プログラムをより効率的にすることができます。

于 2013-04-18T04:09:39.843 に答える