More Record Oriented Reading
Last week, we looked at three common cases for defining the 'record'
that Perl's input operator reads: line oriented records, paragraph
oriented records, and file oriented records. Now we'll look at grabbing
and parsing records in a more custom format.
One common type of multi-line record is the name/value pair format:
name = andrew
age = 37
beer = dark ale
*****
name = john
beer = pale ale
age = 35
*****
In this case, we have records consisting of three named fields
separated by "*****\n". We can simply read this data in and output it
with a different record separator:
$/ = "*****\n";
while(<>){
chomp;
print "$_#####\n";
}
Not very exciting, but it illustrates the concept of the input record
separator. By setting the input record separator to the
string "*****\n", when we read from the file the input operator reads
one multi-line record at a time: everything up to and including the
next record separator string is returned. This also illustrates that
chomp() removes any trailing record separator, not just any trailing
newline character (and not just the last character of the string as
does the chop() function). In the above, we are merely removing the
record separator and producing output with a new separator string.
A slightly less trivial task might be to convert such a file into a csv
style data file. Let's assume we've been asked to read a file such as
the above and produce a csv file with a ':' as the field separator and
ordered fields: name, age, beer.
$/ = "*****\n";
my @fields = qw/name age beer/;
while(){
chomp;
my %hash = split /\s*[\n=]\s*/;
print join(':',@hash{@fields}),"\n";
}
__DATA__
name = andrew
age = 37
beer = dark ale
*****
name = john
beer = pale ale
age = 35
*****
Here we've chomp()'d off the record separator and created a hash by
splitting the record at every '=' and "\n" character. We were careful
to account for possible whitespace around the '=' character in our split
(), but we may need to be a little more careful: What if one of the
field lines is indented? In that case we would have a hash key like "
name" instead of just "name", and our hash slice to produce the output
wouldn't work as we wished.
Sign up for ITworld's Daily newsletter
Follow ITworld on Twitter @IT_world
jfruh
Apple syncing patent can't come soon enough
pasmith
New Twitter features borrow from 3rd party clients
Esther Schindler
Open Source Changes the Software Acquisition Process
mikelgan
How to set up continuous podcast play on the new iTunes
David Strom
Five important Windows 7 mobility features
sjvn
Guard your Wi-Fi for your own sake
Sandra Henry-Stocker
Grepping on Whole Words
Sidekick: The Good News & the Bad News
Either way you look at it Microsoft Data Center management did not follow standards or best practices in this failure. In which case it makes me wonder more about the outsourcing of corporate data much less personal data.
- mburton325
Join the conversation here
Quick, practical advice for IT pros. Made fresh daily.
Want to cash in on your IT savvy? Send your tip to tips@itworld.com. If we post it, we'll send you a $25 Amazon e-gift card.













