我怎么能存储在Perl中的文本文件中的用户输入？

Question

我试图创建一个将用户输入存储诸如它们的缩写的文本文件。此代码将提示用户输入信息并创建一个文本文件，但文本文件保持空白。我如何获取信息以将其存储在文本文件中？我试过使用变种$首字母，但它不存储信息。我似乎无法弄清楚我做错了什么。

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

这将缩写追加文本从$到文件末尾。

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;