Re^2: Creating Table and Inserting Data from CSV

I know this may seem trivial for my app, but using the "get_fields" method returns the fields in random order, is there another similar module that will return them in order? I read Text::xSV on CPAN and I didn't see that it could do that, or from at least what I understood.

Comment on Re^2: Creating Table and Inserting Data from CSV

Replies are listed 'Best First'.
Re^3: Creating Table and Inserting Data from CSV by sk (Curate) on Oct 04, 2005 at 20:06 UTC
will regular split not work for this file? If it will then you can try something like this - `#!/usr/bin/perl -w use strict; use DBI; my $line = "var1, var2, var3"; my $dbh = DBI->connect('DBI:mysql:test') or die "Couldn't connect to d +atabase: " . DBI->errstr; my $create = "create table dummy3 (" . join (',', map { $_ . ' varchar +(255) ' } split /,/, $line) . ");"; my $sth = $dbh->prepare($create) or die "Couldn't prepare statement: " + . $dbh->errstr; $sth->execute or die "Couldn't execute statement: " . $sth->errstr;;` [download] `mysql> desc dummy3 -> ; +-------+--------------+------+-----+---------+-------+ \| Field \| Type \| Null \| Key \| Default \| Extra \| +-------+--------------+------+-----+---------+-------+ \| var1 \| varchar(255) \| YES \| \| NULL \| \| \| var2 \| varchar(255) \| YES \| \| NULL \| \| \| var3 \| varchar(255) \| YES \| \| NULL \| \| +-------+--------------+------+-----+---------+-------+ 3 rows in set (0.00 sec)` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: Creating Table and Inserting Data from CSV
by sk (Curate) on Oct 04, 2005 at 20:06 UTC

split

#!/usr/bin/perl -w

use strict;

use DBI;

my $line = "var1, var2, var3";

my $dbh = DBI->connect('DBI:mysql:test') or die "Couldn't connect to d
+atabase: " . DBI->errstr;
my $create = "create table dummy3 (" . join (',', map { $_ . ' varchar
+(255) ' } split /,/, $line) . ");";

my $sth = $dbh->prepare($create) or die "Couldn't prepare statement: "
+ . $dbh->errstr;
$sth->execute or die "Couldn't execute statement: " . $sth->errstr;;
[download]

mysql> desc dummy3
    -> ;
+-------+--------------+------+-----+---------+-------+
| Field | Type         | Null | Key | Default | Extra |
+-------+--------------+------+-----+---------+-------+
| var1  | varchar(255) | YES  |     | NULL    |       |
| var2  | varchar(255) | YES  |     | NULL    |       |
| var3  | varchar(255) | YES  |     | NULL    |       |
+-------+--------------+------+-----+---------+-------+
3 rows in set (0.00 sec)
[download]

[reply]
[d/l]
[select]