WhatTheMike/scripts
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Semicolons...

Browse Source
This commit is contained in:
Some guy named Michael 2022-08-16 00:03:40 +00:00
parent 18f34bf954
commit f95c07c0a4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
perl/vping
View File

@ -11,13 +11,13 @@ $dns=$ARGV[0];
if ($^O == "linux") {
$regex=qr/(?<bytes>[0-9]+ bytes) from (?<rhost>[a-z\.-]+) \((?<rip>[0-9\.]+)\).*seq=(?<rseq>[0-9]+).*time=(?<rms>[0-9\.]+) ms/;
$dedjex=qr/no answer yet for icmp_seq=(?<rseq>[0-9]+)/
$pingcmd="ping -O"
$dedjex=qr/no answer yet for icmp_seq=(?<rseq>[0-9]+)/;
$pingcmd="ping -O";
} elsif ($^O == "MSWin32") {
# untested lol
$regex=qr/Reply from (?<rip>[0-9\.]+).*bytes time=(?<rms>[0-9\.]+)ms.*/;
$dedjex=qr/Request timed out|Destination host unreachable/
$pingcmd="ping -t"
$dedjex=qr/Request timed out|Destination host unreachable/;
$pingcmd="ping -t";
} else {
print "IDK WHAT OS YOU ARE :(";
exit 1;