他鐃祝わ申弔辰鐃緒申澆匹鐃緒申鐃緒申呂鐃緒申鐃塾でわ申鐃緒申鐃緒申鐃緒申蓮鐃�loop control鐃緒申的鐃緒申覆辰董鐃�

asin:0596001738
Perl Best Practices
Damian Conway
[邦鐃緒申:Perl鐃駿ワ申鐃夙プラク鐃銃ワ申鐃緒申]

[H.I鐃緒申鐃緒申離鐃緒申鐃緒申箸鐃緒申鐃緒申鐃緒申筆鐃緒申鐃緒申鐃緒申鐃緒申]

鐃殉わ申鐃熟￥申DCONWAY鐃緒申鐃緒申鐃塾逸申鐃緒申鐃緒申蕁�Loop鐃祝関わ申鐃暑黄鐃緒申則鐃叔わ申鐃緒申Perl鐃淑鰹申鐃叔わ申有鐃緒申鐃緒申

Reject As many iterations as possible, as early as possible. 鐃緒申鐃緒申鐃瞬わ申鐃緒申鐃俊緒申鐃緒申鐃処、鐃緒申鐃緒申鐃淑わ申戮鐃緒申瓩わ申奮鐃緒申鐃�

鐃淑駕申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申

jnaoya鐃塾はてわ申鐃緒申鐃緒申 - 添鐃緒そ鐃緒申2 
while (my $log = $logs->readline()) {
    if ($log->{ua}) {
        my @jitensha = $log->{ua} =~ $reg;
        next unless @jitensha;
        my $pattern;
        for my $i (0 .. $#jitensha) {
            if (defined $jitensha[$i]) {
                $pattern = $analyzeval[$i];
                last;
            }
        }
        # Do hoge hoge for $pattern
    }
}

無鐃縮にワ申鐃緒申妊鐃夙わ申鐃緒申鐃緒申鐃叔わ申鐃粛￥申鐃殉わ申鐃叔緒申鐃�if鐃熟￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃純い鐃殉わ申鐃順う鐃緒申

next unless $log->{ua};

DCONWAY流鐃祝￥申unless鐃緒申鐃俊緒申鐃緒申鐃緒申鐃緒申鐃緒申弌鐃�

next if not $log->{ua};

鐃叔わ申鐃緒申鐃緒申鐃緒申鐃�unless鐃緒申鐃緒申鐃緒申鐃淑ので常申鐃緒申鐃緒申任鐃緒申諭鐃�

my @jitensha = $log->{ua} =~ $reg;
next unless @jitensha;

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申調鐃述￥申鐃叔わ申鐃緒申鐃緒申鐃緒申鐃緒申造呂鐃緒申鐃緒申鐃緒申鐃殉わ申鐃緒申 

my (@jitensha) = ($log->{ua} =~ $reg) or next;

for my $i (0 .. $#jitensha) {
  if (defined $jitensha[$i]) {
     $pattern = $analyzeval[$i];
     last;
   }
}

鐃夙りあ鐃緒申鐃緒申鐃緒申鐃緒申的鐃緒申Loop鐃緒申鐃緒申鐃緒申鐃緒申

for my $i (0 .. $#jitensha) {
  next unless defined $jitensha[$i];
  $pattern = $analyzeval[$i];
  last;
}

鐃夙なわ申泙鐃緒申鐃緒申鐃緒申造鐃�Loop鐃緒申鐃塾わ申里鐃緒申鐃緒申廚如鐃�

my @indice = grep { $jitensha[$_] } (0 .. $#jitensha);
$pattern = $analyzeval[$indice[0]];

鐃緒申鐃緒申鐃�

$pattern = $analyzeval[(grep { $jitensha[$_] } (0 .. $#jitensha))[0]];

鐃夙緒申鐃緒申泙鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申任發鰹申鐃熟わ申蠅刻申鐃緒申鐃緒申任鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申標鐃緒申皀醐申紂種申鐃緒申List::Util鐃緒申first鐃緒申箸鐃緒申弌鐃�

$pattern = $analyzeval[ first { $jitensha[$_] } (0 .. $#jitensha) ];

鐃夙￥申鐃緒申味的鐃祝もス鐃獣ワ申鐃所し鐃殉わ申鐃緒申鐃緒申鐃緒申法鐃�H.I鐃緒申鐃緒申鐃�comment鐃宿わ申鐃緒申

$pattern = $analyzeval[ firstidx { $_ } @jitensha ];

鐃夙わ申鐃緒申个鐃緒申鐃祝ワ申鐃獣ワ申鐃所。鐃叔わ申鐃緒申firstidx鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申討鐃緒申鐃�List::MoreUtils鐃緒申標鐃緒申鐃緒申鐃緒申鐃叔はなわ申鐃塾でわ申鐃粛￥申CPAN鐃緒申鐃緒申鐃獣てわ申鐃緒申必鐃竣わ申鐃緒申鐃緒申泙鐃緒申鐃�

標鐃緒申皀醐申紂種申鐃緒申鐃藷供わ申鐃緒申討鐃緒申鐃緒申鐃緒申鐃獣ワ申鐃緒申箸鐃緒申鐃緒申箸鐃緒申鐃緒申鐃緒申箸蓮鐃�DCONWAY鐃緒申鐃緒申鐃緒申

Use the "non-builtin builtins"
鐃瞬ビワ申肇鐃緒申鐃叔なわ申鐃俊ワ申肇鐃緒申鐃竣関随申鐃緒申箸鐃�

鐃夙わ申鐃獣わ申鐃緒申辰討鐃緒申泙鐃緒申鐃緒申鐃緒申弖鐃緒申鐃緒申鐃緒申鐃緒申鐃所ス鐃緒申鐃緒申虜能鐃緒申鐃緒申鐃叔」とわ申鐃緒申鐃塾は￥申鐃殉わ申鐃緒申List::Util::first()鐃塾仕誌申鐃叔￥申鐃緒申鐃緒申砲鐃緒申鐃緒申鐃緒申澆鐃緒申鐃緒申里蓮鐃緒申弖鐃緒申鐃緒申鐃緒申鐃緒申鐃所ス鐃緒申鐃緒申虜能鐃緒申鐃緒申鐃叔のワ申鐃緒申妊奪鐃緒申鐃緒申廚覆里鐃�List::Util::firstidx()鐃緒申鐃宿ワ申團鐃緒申鐃緒申任鐃緒申鐃�

鐃緒申鐃緒申鐃殉でわ申泙箸鐃緒申醗焚鐃緒申里茲�鐃祝なわ申泙鐃緒申鐃�

use List::Util qw/first/;
while (my $log = $logs->readline()) {
    my $ua         = $log->{ua} or next;
    my ($jitensha) = ($ua =~ $reg) or next;
鐃緒申鐃緒申$pattern = $analyzeval[ first { $jitensha[$_] } (0 .. $#jitensha) ];
鐃緒申  # or 
    # use List::Util qw/firstidx/;
    # my $pattern    = $analyzeval[ firstidx { $_ } @jitensha ];

    # Do hoge hoge for $pattern
}

鐃緒申鐃淑みに￥申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申: 鐃渋易なルー鐃竣は随申鐃緒申戮鐃緒申任鐃緒申鐃� 
    while (my $log = $logs->readline()) {
        foreach my $reg (keys %analyze) {
            if (($log->{ua}) && ($log->{ua} =~ /$reg/)) {
                my $pattern = $analyze{$reg};
                # Do hoge hoge for $pattern
                goto OUT;
            }
    OUT:
        }
    }

鐃緒申鐃緒申鐃緒申鐃緒申goto OUT鐃緒申C鐃叔はとにわ申鐃緒申perl鐃叔は使ってはわ申鐃緒申鐃淑わ申鐃緒申鐃緒申鐃竣わ申goto鐃緒申last鐃塾逸申鐃緒申任鐃緒申鐃緒申里任鐃緒申鐃緒申蕁�

Dan the Loop Controller