Help for this page

Select Code to Download


  1. or download this
    s/^\s+\S+\s+//; # remove initial address ind.
    #s/\s{2}.*//;    # remove trailing dump  <-- commented
    s/\s+//;
    
  2. or download this
    if (/^\S/) {
      while ($packet=~/(GET|POST|WWW-Authenticate|Authorization|[a-z]+=[a-
    +z]+).+/g)  {
             ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localti
    +me(time);