Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use strict;
    ...
    16/Jan/2005:00:00:40 -0500 "GET /ge/ige/1/1/4/common/cms_portletview2.
    +html HTTP/1.1" 200 1702 0 "http://marketing.ge.com/portal/site/insura
    +nce/" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" "-" "marke
    +ting.ge.com"
    16/Jan/2005:00:00:40 -0500 "GET /portal/site/transportation/menuitem.8
    +c65c5d7b286411eb198ed10b424aa30/ HTTP/1.1" 200 7596 0 "http://geae.ho
    +me.ge.com/portal/site/transportation/" "Mozilla/4.0 (compatible; MSIE
    + 5.5; Windows NT 5.0)" "-" "geae.home.ge.com"
    16/Jan/2005:00:00:41 -0500 "GET /ge/ige/26/83/409/common/cms_portletvi
    +ew.html HTTP/1.1" 200 7240 0 "http://marketing.ge.com/portal/site/ins
    +urance/" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" "-" "ma
    +rketing.ge.com"
    
  2. or download this
        print $businesses{$1} $_;
    
        #yields: 
        #Scalar found where operator expected at C:\t.pl line 36, near "} 
    +$_"
        #(Missing operator before  $_?)