Perlを勉強し始めてます Perl日記 | 13:22 | id:onishiからの宿題 キーに姓、バリューに名を格納したハッシュに yasuhiro と引数を渡すことで onishi と返すスクリプト (今月始めに作成) #!/usr/bin/perl use strict; my $hatena = $ARGV[0]; my %staff = ( kondo => "junya", ito => "naoya", onishi => "yasuhiro", danjou => "nobuo", minowa => "higepon", ); for my $key (keys%staff){ if ($hatena eq $staff{$key}){ print $key."\n"; }; }; 普段は専ら秀丸なのですが、Perlを書くときはmeadowを使ってます。指が攣りそう。