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
--
Chas. Owens
wonkden.net
The most important skill a programmer can have is the ability to read.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
