sdstrowes · November 28, 2024 21:21
diff --git a/print-ipv6-all-octets.pl b/print-ipv6-all-octets.pl
 #!/usr/bin/perl -w

 use diagnostics;
 use strict;
 use warnings;

 use Net::CIDR;

 while (<>) {
 	print join("\n", Net::CIDR::cidr2octets($_."/128")) . "\n";
 }
	#!/usr/bin/perl -w

	use diagnostics;
	use strict;
	use warnings;

	use Net::CIDR;

	while (<>) {
	print join("\n", Net::CIDR::cidr2octets($_."/128")) . "\n";
	}