Whois.pl - Versijų istorija

\dev\null 12:28, 25 vasario 2025

2025-02-25T12:28:32Z

\dev\null 11:33, 25 vasario 2025

2025-02-25T11:33:06Z

\dev\null 11:32, 25 vasario 2025

2025-02-25T11:32:47Z

\dev\null: Naujas puslapis: Daro whois surašytiems į '''ips.txt''' ip adresams ir subnetams, rezultatus surašo į '''whois_results.csv''' #!/usr/bin/perl # sudo apt install...

2025-02-25T10:01:40Z

Naujas puslapis: Daro whois surašytiems į '''ips.txt''' ip adresams ir subnetams, rezultatus surašo į '''whois_results.csv''' <syntaxhighlight lang="perl"> #!/usr/bin/perl # sudo apt install...

Naujas puslapis

Daro whois surašytiems į '''ips.txt''' ip adresams ir subnetams, rezultatus surašo į '''whois_results.csv'''

<syntaxhighlight lang="perl">
#!/usr/bin/perl
# sudo apt install libnet-whois-ip-perl libtext-csv-perl

use strict;
use warnings;
use Net::Whois::IP qw(whoisip_query);
use Text::CSV;
use Data::Dumper;

# Input and output files
my $input_file = "ips.txt";
my $output_file = "whois_results.csv";

# Open input file
open(my $fh, '<', $input_file) or die "Cannot open $input_file: $!";

# Open output CSV file
my $csv = Text::CSV->new({ binary => 1, eol => "\n" });
open(my $out_fh, '>', $output_file) or die "Cannot open $output_file: $!";
$csv->print($out_fh, ["IP", "Country", "Org-Name"]);

# Process each line
while (my $line = <$fh>) {
chomp $line;

# Extract IP address from CIDR notation if present
if ($line =~ m{^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)}) {
my $ip = $1;
print "Processing: $ip\n";

# Perform whois lookup
my $whois = whoisip_query($ip);
print Dumper($whois);
my $country = $whois->{Country} // "Unknown";
my $org_name = $whois->{Organization} // $whois->{org} // "Unknown";
my $person = $whois->{Person};

# Write to CSV
$csv->print($out_fh, [$line, $country, $org_name, $person]);
}
}

# Close files
close $fh;
close $out_fh;

print "Whois lookup completed. Results saved to $output_file\n";
</syntaxhighlight>

[[Category:Scripts]]

@@ 51 eilutė: / 51 eilutė: @@
 </syntaxhighlight>
-V2 traukia tiktai organiacijas.
+V2 traukia tiktai organizacijas.
 <syntaxhighlight lang="perl">

@@ 117 eilutė: / 117 eilutė: @@
 print "Whois lookup completed. Results saved to $output_file\n";
 </syntaxhighlight>
 [[Category:Scripts]]

@@ 41 eilutė: / 41 eilutė: @@
          # Write to CSV
          $csv->print($out_fh, [$line, $country, $org_name, $person]);
+     }
+}