我怎麼能存儲在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;