If these are fixed width records it may be easier to use unpack.
When I downloaded the data I may have lost some of the formating so you may need to tweak the field widths.
This prints one record, one field per line with stars. You can then adjust the field widths to suit.
#!/bin/perl5
use strict;
use warnings;
for (<DATA>){
chomp;
next if /^=/;
next if /^START/;
my @fields = unpack "a31 a31 a17 a12 a9 a10 a14 a*", $_;
for my $field (@fields){
print "*$field*\n";
}
last;
}
__DATA__
========== ========
+======= ==== ====== ====== =======
+===========
START TIME END TIME
+ VERSION USER SOURCE STATUS STATU
+S DESCRIPTION
========== ========
+ ======= ==== ====== ====== ====
+==============
August 26, 2004 1:21:04 AM August 26, 2004 1:22:16 AM 2.
+0 system HA038974 Pending [BATCHMODE]
+ Started installation process
September 5, 2004 2:49:03 AM September 5, 2004 2:49:37 AM 2.0
+ system HA038974 Pending [BATCHMOD
+E] Started installation process
September 16, 2004 12:32:34 PM September 16, 2004 12:33:26 PM 2.1
+ [kotzel_sup] HA038974 Pending Started install
+ation process
September 16, 2004 4:44:28 PM September 16, 2004 4:44:34 PM 2.1
+ [kotzel_sup] HA038974 Finished 23 Successful
+, 8 Failed
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.