diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-05 15:45:37 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-05 15:45:37 +0000 |
commit | e0801e6bd6cc1241afafea33ba8ef701fec2e5c5 (patch) | |
tree | b5cf84f45181b3dbc14d58833d88683fb7f3465e /make_nic_handles.pl | |
parent | Initial commit. (diff) | |
download | whois-e0801e6bd6cc1241afafea33ba8ef701fec2e5c5.tar.xz whois-e0801e6bd6cc1241afafea33ba8ef701fec2e5c5.zip |
Adding upstream version 5.5.17.upstream/5.5.17upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'make_nic_handles.pl')
-rwxr-xr-x | make_nic_handles.pl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/make_nic_handles.pl b/make_nic_handles.pl new file mode 100755 index 0000000..6b031c2 --- /dev/null +++ b/make_nic_handles.pl @@ -0,0 +1,17 @@ +#!/usr/bin/perl + +use warnings; +use strict; + +while (<>) { + chomp; + s/#.*$//; + s/^\s+//; s/\s+$//; + next if /^$/; + + die "format error: $_" if not + (my ($a, $b) = /^(-\w+)\s+([\w\d\.:-]+)$/); + + print qq| "$a",\t"$b",\n|; +} + |