Help for this page

Select Code to Download


  1. or download this
    next unless /(E7F888)\s+.+=([^\s]+)/;
 push @activline, "$1 | $2 | $activ{$1} \n" if $activ{$1};

print @activline;
  2. or download this
    next unless /(E7F888)\s+.+=([^\s]+)/;
say;
exit;
  3. or download this
    /(.{6})\s+.+=([^\s]+)/
  4. or download this
    push @activline, "$1 | $2 | $activ{$1} \n" if $activ{$1};