Perl 語法應用

ssaa

製作人:XXXXXXX 王小名
請輸入資料數:3
第一筆資料:5
第二筆資料:6
第三筆資料:7
輸入的原始資料：5 6 7
由小依序排列：5 6 7
請按Enter鍵後結束

#!c:/perl/bin/perl.exe

my $loop = 0;

print "製作人:XXXXXXX 王小名\n";

print "請輸入資料數:";
$data_num = <STDIN>;

while ( $data_num > 0 )
{
print"第",$loop += 1,"筆資料:";
$data =<STDIN>;
chomp $data;
push ( @data, $data );
$data_num -= 1;
}

print "輸入的原始資料:\n","@data\n";

print "\n由小依序排列:\n",join(" ", sort { $a <=> $b } @data );