Changeset 12870

Timestamp:

05/31/08 02:22:46 (6 months ago)

Author:

yusukebe

Message:

if ... elsif ... やめて ハッシュテーブル使った thanks:otsune

Files:

• lang/perl/WWW-CDTV/trunk/lib/WWW/CDTV.pm (modified) (2 diffs)

lang/perl/WWW-CDTV/trunk/lib/WWW/CDTV.pm

@@ -44 +44 @@
 EOF
     my @tracks;
+    my %move_table = ( '新' => 'new', '↑' => 'up', '↓' => 'down', );
     foreach my $entry_html (@match) {
         $entry_html =~ m/$entry_regex/gs;
@@ -51 +52 @@
             artist => decode_entities($4),
         };
-        if ( $2 =~ /新/ ) {
-            $entry->{move} = "new";
-        }
-        elsif ( $2 =~ /↑/ ) {
-            $entry->{move} = "up";
-        }
-        elsif ( $2 =~ /↓/ ) {
-            $entry->{move} = "down";
-        }
+        $entry->{move} = $move_table{$2};
         $tracks[ $entry->{no} ] = WWW::CDTV::Track->new($entry);
     }