Thanks for that.
Maybe not "sneaky" but definitely very clever!
That solved my problem a lot easier than I thought
it could be.
Again, Thanks!
Dennis
Chas. Owens wrote the following on 03/25/2008 08:50 PM:
On Tue, Mar 25, 2008 at 9:22 PM, Dennis G. Wicks <[EMAIL PROTECTED]> wrote:
Greetings,
I get data in CSV files from several different sites
and I can't get the date/time formats to be consistent,
let alone have the fields arranged in the same order.
I can put in the field/column names by hand in a first
record but I can't find hoe to go about using them to
change my split operation to get the info from the
right place depending on the first record that I will
add to the file.
eg. one file will have columns name,title,phone,
snail-mail-addr,email while another file will have
name,email,phone,title. I can certainly change the perl
program, but as often as I would have to change it the
failure rate woould be pretty high!
I am certain there is some sneaky perl trick that will
accomplish this, but I haven't been able to find it!
snip
I wouldn't call it sneaky, but you could use a hash to store your
records and use a hash slice to load the data into the hash:
#!/usr/bin/perl
use strict;
use warnings;
chomp(my $header = <DATA>);
my @fields = split /,/, $header;
while (<DATA>) {
my %rec;
@[EMAIL PROTECTED] = split /,/;
print "name is $rec{name}, date is $rec{date}, status is
$rec{status}\n";
}
__DATA__
name,date,status
foo,2007-01-01,Done
bar,2007-01-02,Working
baz,2007-01-03,Invalid
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
