1. [10]寫乙個程式,讀入一串數字,將它們按照數字排序,將結果按右對齊的列列印出來。使用下面的資料進行檢測:
17 000 04 1.50 3.14159 -10 1.5 4 2001 90210 666
2. [15]寫乙個程式,將下例hash 資料根據姓(last name)按照大小寫無關的字母順序進行排序,並把結果列印出來。當
last name 相同時,再按照名(first name)排序(不用關心大小寫)。因此,第乙個輸出的的名字是fred』s,最後乙個是
betty』s。具有相同family name 名字在一起。不要改變資料。輸出名字的大小寫應當和這裡的一樣。
my %last_name = qw;
3. [15]寫乙個程式,查詢給定子串在給定字串中出現的每乙個位置,輸出子串出現的位置。例如,給定字串為「this is
a test.」給定子串為「is」,它應當輸出2 和5。如果子串是「a」,它應當輸出8。如果子串為「t」呢?
1、#! /usr/bin/env perl -w
use strict;
@_=(17,000,04,1.50,3.14159,-10,1.5,4,2001,90210,666);
@_=sort @_;
for (@_)
2、#! /usr/bin/env perl -w
use strict;
my @keys = sort " cmp "/l$last_name" # by last name
or"/l$a" cmp "/l$b" # by first name
} keys %last_name;
foreach (@keys) , $_/n"; # rubble,bamm-bamm}3、
#! /usr/bin/env perl -w
use strict;
my $a="this is a test";
my $b="a";
my $c=-2;
while ($c+1)
《Perl語言入門》第四版習題(7)
1.10 寫乙個程式,輸出所有提到fred 的行 不要輸出其它行 如果輸入字串fred,fredrick,alfred,能匹配上嗎?準 備乙個小的文字檔案,其中包含如 fred lintsotne 以及類似的資訊。使用這個文字檔案作為此程式的輸入,以及本節 下面練習的輸入。2.6 修改上面的程式,允...
《Perl語言入門》第四版習題(12)
1 usr bin perl w use strict if argv else foreach 2 usr bin perl w use strict if argv else foreach 3 usr bin perl w use strict print which directory?de...
C primer 第四版部分習題的解答
1.16 include include using namespace std int main 1.17 include using namespace std int main system pause return amount 這裡有乙個需要注意的地方是檔案結束符的使用。即cin在什麼時候...