Select Code to Download

Mon Oct  1 17:09:23 2001 0 127.0.0.1 2611 1774034 a _ o r tmbranno ftp
+ 0 * c
Mon Oct  1 17:09:27 2001 0 127.0.0.1 22 1774034 a _ o r tmbranno ftp 0
+ * c
Mon Oct  1 17:09:27 2001 0 127.0.0.1 22 file with spaces in it.zip a _
+ o r tmbranno ftp 0 * c
Mon Oct  1 17:09:31 2001 0 127.0.0.1 7276 p1774034_11i_zhs.zip a _ o r
+ tmbranno ftp 0 * c

    our @field = qw(day_name month day current_time  year  transfer_ti
+me
       remote_host     file_size filename   transfer_type   special_ac
+tion_flag    
...
       authenticated_user_id completion_status);
    my %field;
    @field{@field} = split /\s+/, $line;

sub parse_line {
    my $self = shift;   my $line = shift or die "must supply xferlog l
+ine";
...
}