Help for this page

Select Code to Download


  1. or download this
        my($ip,$name,$proto,$email) =~ /^(\S*) (\S*) (\S*) (\S*)$/;
  2. or download this
        $userdata{$name}{$ip}{$proto}{$email}++;
  3. or download this
        @order = qw(ip name email proto)
  4. or download this
        $userdata{$order[0]}{$order[1]}{$order[2]}{$[order[3]}++;
    # which I want to result in ...
    $userdata{$ip}{$name}{$email}{$proto}++;