daily pastebin goal
23%
SHARE
TWEET

Untitled

a guest Sep 14th, 2018 51 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2.  
  3. while(my $ip = shift(@ARGV)){
  4.   my @parts = split /\./, $ip;
  5.   my $sum = 0;
  6.  
  7.   $sum += $parts[$_] * (1 << 8*(3-$_)) for (0..3);
  8.  
  9.   print "$sum\n";
  10. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top