最近 Perl の勉強をしているものです。
Perl は同じことが出来るコードでも、幾通りも書き方があるところが凄く気に入っています。もっともっといろんな書き方を試してみたくてしょうがありません！
そこで、 Perl のトリッキーなワンライナーを教えてください。意味のないプログラムでオッケーです。へー！こんなことできるんだ！っていう感動を味わいたいんです。
以下、回答条件です。
-プログラムは 1行 200文字以内でお願いします。
-何が出来るプログラムでどういう仕組みかも教えていただけると嬉しいです。
-いろいろな人の回答を見たいので回答は一人ひとつまでとさせてください。
おもしろいプログラムほど、ポイントを弾みます。
それでは、よろしくお願いいたします。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
ootatmt
満足100pt
定番ですけど。
@data = map {$_->[0]} sort {$a->[1] cmp $b->[1] or $b->[2] <=> $a->[2]} map {[$_, split /,/]} @data;
@data の中身を、第1項でソートし、さらに第2項で降順ソートする というプログラムです。
解説はこちらで。
-
amachang
-
amachangその他の回答
-
dropdb
満足1pt
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head><title>love</title></head>\n";
print "<body>amachang カッコイイ</body>\n";
print "</html>\n";
exit;
ポイントは要りません。
-
amachang
-
- その他の回答を読む
この質問へのコメント
質問の情報
- 登録日時
- 2006-10-16 15:19:44
- 終了日時
- 2006-10-21 06:42:07
- 回答条件
- 1人1回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
経団連が夫婦別姓（選択的）を提言しました。政府は、配偶者控除の廃止を志向しているようです。結婚制度を…
匿名質問者
4
2
-
０５７０ で始まる電話番号は、キャリアなどとの間でカケ放題などの契約をしていても、そのサービスは受け…匿名質問者1
-
オススメのシェイバー教えてください！ 以下の条件に近いシェイバーはあるのでしょうか。 1.髭が濃いため深…
Ryoya392
1
-
友人の解答と自身の解答で異なります。教えて頂けないでしょうか。 C社株式は，３年後に平均で1,000円にな…匿名質問者3
-
消費税制における輸出還付金が一部の輸出系大企業ばかりに有利に作用しているという内容の批判や解説のコラ…
minminjp20011
http://www-06.ibm.com/jp/developerworks/linux/030523/j_l-p102.html
http://www.hyuki.com/pq/
今休刊しているメルマガですが、面白かったですよ～
書籍も出ているのでもしよろしければ。