perl - perlのテキストファイル内にユーザー入力を保存するにはどうすればよいですか?

Question

イニシャルなどのユーザー入力を保存するテキスト ファイルを作成しようとしています。このコードは、ユーザーに情報の入力を求め、テキスト ファイルを作成しますが、テキスト ファイルは空のままです。情報をテキスト ファイル内に保存するにはどうすればよいですか? バリアント $initials を使用してみましたが、情報が保存されていません。私は自分が間違っていることを理解できないようです。

use strict;
use warnings;

print "Enter users initials: ";
my $initials = <STDIN>;    # prompts user for input

open( MYFILE, '>>initials.txt' );    #creates file initials.txt
while (<MYFILE>) {
    chomp;
    print MYFILE $initials;
}
close(MYFILE);

Answer 1

chompwhile ループや:は必要ありません。

use strict;
use warnings;

print "Enter users initials: ";
my $initials = <STDIN>;    # prompts user for input

open( MYFILE, '>>initials.txt' );    #creates file initials.txt
print MYFILE $initials;
close(MYFILE);

Answer 2

これにより、$initials からファイルの末尾までテキストが追加されます。

use strict;
use warnings;

print "Enter users initials: ";
my $initials = <STDIN>; # prompts user for input 

open my $fh, '>>', 'initials.txt' or die $!; #creates file initials.txt
print $fh $initials;
close $fh;