我是相当新的编码，我需要一个失败声明打印出来，就好像它是一个或死亡。作为例子来我的代码 部分： print "Please enter the name of the file to search:";
chomp (my $filename=<STDIN>) or die "No such file exists. Exiting program. Please try again."
我完全新的编程和IM遇到麻烦弄清楚为什么林键入以下时得到一个错误： puts "What is your favorite number?"
number = gets.chomp
number = number.to_i + 1
puts "I suggest " + number.to_s + " as a bigger and better number"
当我在终端运行出现以下错
我看到了两种方式来使用gets，一个简单的形式： print 'Insert your name: '
name = gets()
puts "Your name is #{name}"
，并且把我的注意力的一种形式： print 'Insert your name: '
STDOUT.flush
name = gets.chomp
puts "Your name is #{name
因此，我目前正在尝试编写一个perl脚本，该脚本读取到一个文件并写入另一个脚本。目前，我一直有这个问题是在这样的 BetteDavisFilms.txt
1.
Wicked Stepmother (1989) as Miranda
A couple comes home from vacation to find that their grandfather has …
2.
Direc
的Perl格格功能我有一个包含这样的事情 name: A id: B cl: C
name: D id: E cl: F
name: I id: G cl: K
我正在用grep内容CL后一个文件并将其存储在一个阵列 #!/usr/bin/perl
@success=qw(C J K L);
@arr=qw(P M C);
my $patter