Zeilen der Größe nach Ausgeben - #180269 (Allgemeines zu Perl)

Raubtier

2015-03-20 20:17

User since
2012-05-04
1054 Artikel
BenutzerIn

user image

Naja, vergleiche doch einfach eine einzelne Zahl - das sind doch nur 4 Bytes:

Code (perl): (dl )

sub ipToInt {
  my $ip = shift;
  my $sum = 0;
  $sum = $sum*256 + $_ for split/\./, $ip;
  return $sum
}