Perlの宿題。

Perlの宿題が出たのでしぶしぶやってみた。
問1.ユーザが入力した文字列に数字が含まれている場合はdigit、アルファベットが含まれている場合はalphabet、どちらも含まれている場合はdigit and alphabetを出力せよ。

#!/usr/bin/perl
chomp($_ = <STDIN>);
print /\d/? "digit". (/[a-zA-Z]/? " and ": ""): "",
	/[a-zA-Z]/? "alphabet": "", "\n";

いたって普通ですよね。

問2.連想配列を値で昇順にソートし結果を出力せよ。

#!/usr/bin/perl
%price = (
	"apple" => 100,
	"orange" => 50,
	"melon" => 1000,
	"banana" => 200,
	"grape" => 300,
	"pear" => 250,
	"lemon" => 120,
	"strawberry" => 500,
	"grapefruit" => 150
);
foreach (sort {$price{$a} <=> $price{$b}} keys %price)
	{ print "$_ => $price{$_}\n"; }

どうみても普通すぎますよね。

問4まであるけど3番以降は長いので割愛。