view release on metacpan or  search on metacpan

t/30log_1.t  view on Meta::CPAN

        'timestamp'          => '1039302013.190'
    },
    {
        'c-ip'               => '192.168.71.137',
        'user-agent'         => '-',
        'time-taken'         => '2',
        'cs-uri'             => 'https://econf.qsdf.com/',
        's-hierarchy'        => 'DIRECT',
        'cs-username'        => '-',
        'cs-supplier-name'   => '-',
        's-action'           => 'TCP_NC_MISS',
        'sc-filter-category' => 'content_filter_not_applied',
        'cs-content-type'    => '-',
        'cs-method'          => 'GET',
        'cs-bytes'           => '116',
        'sc-status'          => '200',
        'timestamp'          => '1039302017.034'
    },
    {
        'c-ip'       => '10.0.203.16',
        'user-agent' => 'Totem',
        'time-taken' => '2',
        'cs-uri'     =>
'http://adverts.mp3dancer.com/phps_application/advertisingupdate_7.php3?domain=FavoriteLinksMP3Dancer&localdate=1039301994',
        's-hierarchy'        => 'DIRECT',
        'cs-username'        => '-',
        'cs-supplier-name'   => '-',
        's-action'           => 'TCP_DENIED',
        'sc-filter-category' => 'Mature',
        'cs-content-type'    => '-',
        'cs-method'          => 'GET',
        'cs-bytes'           => '3309',
        'sc-status'          => '407',
        'timestamp'          => '1039302020.911'
    },
    {
        'c-ip'               => '10.0.203.16',
        'user-agent'         => 'Mozilla/4.01 [en] (Win95; I)',
        'time-taken'         => '334',
        'cs-uri'             => 'http://shttp.msg.yahoo.com/notify/',
        's-hierarchy'        => 'DIRECT',
        'cs-username'        => 'CN=Nicolas BOURBAKI,OU=fr,O=company',
        'cs-supplier-name'   => 'shttp.msg.yahoo.com',
        's-action'           => 'TCP_NC_MISS',
        'sc-filter-category' => 'Portal_Sites',
        'cs-content-type'    => 'text/plain',
        'cs-method'          => 'POST',
        'cs-bytes'           => '316',
        'sc-status'          => '200',
        'timestamp'          => '1039302022.732'
    },
    {
        'timestamp'   => '1039424947.214',
        'time-taken'  => '19',
        'c-ip'        => '192.186.203.16',
        's-action'    => 'TCP_ERR_MISS',
        'sc-status'   => '503',
        'cs-bytes'    => '3100',
        'cs-method'   => 'GET',
        'cs-uri'      => 'http:// bug0bus0.free.fr/es_fichiers/tn_ak_01.jpg',
        'cs-username' => 'CN=Tom BOMBADIL,OU=fr,O=tolkien',
        's-hierarchy' => 'DIRECT',
        'cs-supplier-name'   => '-',
        'cs-content-type'    => '-',
        'sc-filter-category' => 'Portal_Sites',
        'user-agent'         =>
          'Mozilla/5.0 (Windows; U; WinNT4.0; en-US; rv:1.2.1) Gecko/20021130',
    }
);

$i = 0;
while (<>) {
    @data{@fields} = /$regexp/;
    is_deeply( \%data, $data[ $i++ ], "bc1.log line " . ( $i + 1 ) );
}