From: Ken-ichi Mito Date: Tue, 4 Mar 2014 21:49:04 +0000 (+0900) Subject: print usage if no arguments X-Git-Url: http://lab.mitty.jp/git/?p=lab.git;a=commitdiff_plain;h=00355546c42a724d647f978c4fa7cf04d492679e print usage if no arguments --- diff --git a/misc/httpbench.pl b/misc/httpbench.pl index c36ed64..78191dd 100755 --- a/misc/httpbench.pl +++ b/misc/httpbench.pl @@ -9,6 +9,8 @@ use Parallel::ForkManager; use LWP::Simple; use Time::HiRes qw(sleep); +usage() if (@ARGV == 0); + GetOptions( 'h|help' => \ my $help, 'i|inputfile=s' => \ my $file,