22 1 月 2013

Perl 語法應用

作者:Ben哥|發布日期:2009/03/27

製作人: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 =; chomp $data;
push ( @data, $data );
$data_num -= 1;
}

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

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