如何在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

不需要while循环或chomp ：

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;