我是相當新的編碼，我需要一個失敗聲明打印出來，就好像它是一個或死亡。作爲例子來我的代碼 部分： 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