Changeset acce401 in lab.git


Ignore:
Timestamp:
May 19, 2012 10:16:33 AM (12 years ago)
Author:
mitty <mitty@…>
Branches:
master, trunk
Children:
ce3a7e2
Parents:
30965f7
Message:
  • replace outdated coding style
-> or
  • open with bare word file handle

git-svn-id: https://lab.mitty.jp/svn/lab/trunk@144 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

File:
1 edited

Legend:

Unmodified
Added
Removed
  • misc/dnsbench.pl

    rdff3e87 racce401  
    66use Net::DNS; 
    77 
    8 my $hostlist = shift @ARGV || die "usage: $0 list_of_hosts [nameserver]"; 
     8my $hostlist = shift @ARGV or die "usage: $0 list_of_hosts [nameserver]"; 
    99if (! -r $hostlist) { 
    1010    die "$0: cannot read $hostlist"; 
     
    2525 
    2626 
    27 open LIST, "<$hostlist"; 
    28 while (my $host = <LIST>) { 
     27open my $list, '<', $hostlist or die "$0: filename: $!"; 
     28while (my $host = <$list>) { 
    2929    chomp $host; 
    3030    my $query = $res->send($host); 
Note: See TracChangeset for help on using the changeset viewer.