使用STDIN

Question

名稱的多個變量我試圖使用用戶輸入如下讀取到的程序：

#!/usr/bin/perl -w 
use strict; 

if ($#ARGV == 0) { 
print "What condition are you sorting?\t"; 
chomp(my $condition = <STDIN>); 

# Use $condition in further blocks of code... 

} 

這是工作。然而，當我不知道如何輸入2個（或更多）值以類似的方式使用。例如

if ($#ARGV == 1) { 
print "What conditions are you comparing?\t"; 
chomp(my $condition1 = <STDIN>); 
chomp(my $condition2 = <STDIN>); 

讓我輸入了兩次，但格式失真：

What conditions are you comparing? <condition1> 
<condition2> 

Answer 1

您可以輸入用逗號或空格分開，以保留格式條件，

chomp(my $input = <STDIN>); 

my ($condition1, $condition2) = split /[\s,]+/, $input;