Re^2: output the read result into a log file

Replies are listed 'Best First'.
Re^3: output the read result into a log file by stiller (Friar) on Mar 04, 2008 at 08:17 UTC
Better. Now it is evident that `if (m/^(.) UTC.refs = (\d+)$/) { ^^^^` [download] does not match `2007-Jan-07 00:00:01 UTC (GMT +0000) - Poll: channel = two, ref = com, + id = 133714761` [download] Try `# slightly altered--v if (m/^(.) UTC.ref .*? = (\d+)$/) { my $t = $1; $refs = $2; $dt = $Strp->parse_datetime($t); $timestamp = $dt->epoch(); warn "found: $. $timestamp\t$refs\n"; }` [download] That seems to mach, and will tell you about it. Now, if that does not go to your file, it will have to do with later steps.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: output the read result into a log file
by stiller (Friar) on Mar 04, 2008 at 08:17 UTC

    if (m/^(.*) UTC.*refs = (\d+)$/) {
                        ^^^^
[download]

2007-Jan-07 00:00:01 UTC (GMT +0000) - Poll: channel = two, ref = com,
+ id = 133714761
[download]

    # slightly altered--v
    if (m/^(.*) UTC.*ref .*? = (\d+)$/) {
        my $t = $1;
        $refs      = $2;
        $dt        = $Strp->parse_datetime($t);
        $timestamp = $dt->epoch();
        warn "found: $. $timestamp\t$refs\n";
    }
[download]

[reply]
[d/l]
[select]