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;;
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)