atomaka/misc-linux-tools
1
0
Fork 0
Code Releases Activity

Use Getopts::Std For Command Option Parsing

Browse source
This commit is contained in:
Andrew Tomaka 2013-02-23 21:33:20 -05:00
parent a88c923a5d
commit dffd9eef2d
1 changed files with 12 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
sbin/pinger
View file

@ -1,39 +1,31 @@
#!/usr/bin/env perl
use strict;
use Getopt::Std;
use Net::Ping;
use POSIX;
use Socket;
use Switch;
use Time::HiRes qw/time/;
if($> != 0) {
die("pinger must be run as root\n");
}
my %switches;
my $alive = 1;
my $time = 0;
my $name = 0;
my($start,$finish);
while($ARGV[0] =~ /\-/) {
my $arg = shift(@ARGV);
$arg =~ s/-//;
my @switches = split('', $arg);
foreach my $switch (@switches) {
if($switch eq "d") {
$alive = 0;
} elsif($switch eq "r") {
$alive = 1;
} elsif($switch eq "n") {
$name = 1;
} elsif($switch eq "t") {
$time = 1;
} elsif($switch eq "h") {
help();
} else {
print "pinger: invalid option -- '$switch'\n";
help();
}
my $status = getopts('drnth', \%switches);
help() if(!$status || $switches{'h'});
for (keys %switches) {
switch($_) {
case 'd' { $alive = 0; }
case 'r' { $alive = 1; }
case 'n' { $name = 1; }
case 't' { $time = 1; }
else {}
}
}