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

不需要 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;