@@ -12,12 +12,14 @@ use Socket qw(AF_INET AF_INET6 inet_pton);
use warnings;
use Text::CSV_XS; # or trade for Text::CSV
use strict;
+$| = 1;
my $csv = Text::CSV_XS->new({
allow_whitespace => 1,
binary => 1,
eol => $/,
}); # or Text::CSV
+my $quiet = 0;
my $source_dir = ".";
my $target_dir = ".";
my $output_txt;
@@ -27,6 +29,7 @@ my $output_txt;
"D=s" => \$target_dir,
"S=s" => \$source_dir,
"O=s" => \$output_txt,
+ "q" => \$quiet,
);
if (!-d $source_dir) {
@@ -85,8 +88,8 @@ sub collect
$asns{$asn}->{pool_v4}->add($cidr);
- if ($. % 4096 == 0) {
- print STDERR "\r\e[2K$. entries";
+ if (!$quiet && $. % 4096 == 0) {
+ print STDOUT "\r\e[2K$. entries";
}
if ($outfile) {
@@ -95,7 +98,7 @@ sub collect
}
}
- print STDERR "\r\e[2K$. entries total\n";
+ print STDOUT "\r\e[2K$. entries total\n" unless ($quiet);
close($fh);
@@ -132,8 +135,8 @@ sub collect
$asns{$asn}->{pool_v6}->add($cidr);
- if ($. % 4096 == 0) {
- print STDERR "\r\e[2K$. entries";
+ if (!$quiet && $. % 4096 == 0) {
+ print STDOUT "\r\e[2K$. entries";
}
if ($outfile) {
@@ -142,7 +145,7 @@ sub collect
}
}
- print STDERR "\r\e[2K$. entries total\n";
+ print STDOUT "\r\e[2K$. entries total\n" unless ($quiet);
close($fh);
@@ -187,7 +190,7 @@ sub writeASN
printf "%5u IPv%s ranges for %s\n",
scalar(@ranges),
($family == AF_INET ? '4' : '6'),
- $asn_number;
+ $asn_number unless ($quiet);
my $file = "$target_dir/".$asn_number.".iv".($family == AF_INET ? '4' : '6');
if (!open($fh, '>', $file)) {