Help for this page

Select Code to Download


  1. or download this
    $ perl test
syntax error at test line 15, near "+)"
Execution of test aborted due to compilation errors.
  2. or download this
    use Socket;
use strict;
...
$stat{inet_ntoa(substr(inet_aton($_), 0, 3) . "\0")} ++ foreach (@addr
++);

print "$_ has $stat{$_} nodes\n" foreach (keys %stat);
  3. or download this
    Characteristics of this binary (from libperl):
  Compile-time options: MULTIPLICITY USE_64_BIT_INT USE_LARGE_FILES PE
+RL_IMPLICIT_CONTEXT
...
    /usr/lib/perl5/site_perl/5.8.0
    /usr/lib/perl5/site_perl
    .