製作人: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 );
請輸入資料數: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 );
來源:奇科電腦Ben老師 http://www.geego.com.tw
全站熱搜
留言列表