>my $sth=$dbh->prepare(" LOAD DATA LOCAL INFILE
"/home/roime/MYSQL_PERL/IN_NETWORK/packet.txt" INTO TABLE flow FIELDS
TERMINATED BY ',' ");
here you had forgot escape the double quotes,should be escaped quotes:
\"/home/roime/MYSQL_PERL/IN_NETWORK/packet.txt\"
my $sth=$dbh->prepare(" LOAD DATA LOCAL INFILE
\"/home/roime/MYSQL_PERL/IN_NETWORK/packet.txt\" INTO TABLE flow FIELDS
TERMINATED BY ',' ");
-----Original Message-----
From: Roime bin Puniran [mailto:[EMAIL PROTECTED]
Sent: Friday, September 24, 2004 8:57 AM
To: Perl Beginners List
Subject: RE: import from text file to mysql
I am sorry that not showing u a detail at least, about my text file...Here
is te sample of my text file...
===========================================================================
"1.200.200.202.157 2.200.200.250.7 3.0 4.255 5.8 6.1109 7.0 8.0
9.1095648052.771 10.1095648052.979 11.1417 12.445 13.27 14.6 15.0 16.0
17.0 18.0 19. 20.0 21.0 22.0 23.119000 24.0 25.0 26.0 27.32"
"1.200.200.202.157 2.200.200.250.7 3.0 4.255 5.2 6.92 7.0 8.0
9.1095648052.770 10.1095648052.771 11.1413 12.445 13.17 14.6 15.0 16.0
17.0 18.0 19. 20.0 21.0 22.0 23.0 24.0 25.0 26.0 27.0"
"1.200.200.245.239 2.200.200.255.255 3.0 4.255 5.6 6.468 7.0 8.0
9.1095648052.402 10.1095648052.847 11.137 12.137 13.0 14.17 15.0 16.0
17.0 18.0 19. 20.0 21.0 22.0 23.0 24.0 25.0 26.0 27.32"
"1.200.200.101.1 2.200.200.255.255 3.0 4.255 5.1 6.243 7.0 8.0
9.1095648061.059 10.1095648061.059 11.138 12.138 13.0 14.17 15.0 16.0
17.0 18.0 19. 20.0 21.0 22.0 23.0 24.0 25.0 26.0 27.32"
"1.200.200.100.97 2.200.200.255.255 3.0 4.255 5.3 6.234 7.0 8.0
9.1095648053.622 10.1095648055.122 11.137 12.137 13.0 14.17 15.0 16.0
17.0 18.0 19. 20.0 21.0 22.0 23.0 24.0 25.0 26.0 27.32"
==================================================================
But there is no problem about the data i think..And sorry because i am not
customize it first...:)....The big matter is how can i import a text file
into mysql...I just wrote some code ...Here is my code...
========================================================
#!/usr/bin/perl
use DBI;
use IO::Socket;
###########################
#import.pl
#Roime Bin Puniran
#Telekom RnD
###########################
$local = IO::Socket::INET->new(
Proto => 'tcp',
LocalAddr => '*******************',
Reuse => 1
) or die "$!";
$local->listen();
$local->autoflush(1);
print "......Testing.......\n";
#my $addr;
while($addr=$local->accept())
{
print"Connect From : ", $addr->peerhost();
#Display Message
print "Port : ", $addr->peerport(), "\n";
my $dbh=DBI->connect('dbi:mysql:test', 'root','')||
die "Error opening database: $DBI::errstr\n";
print "I think it's connect !.........";
my $sth=$dbh->prepare(" LOAD DATA LOCAL INFILE
"/home/roime/MYSQL_PERL/IN_NETWORK/packet.txt" INTO TABLE flow FIELDS
TERMINATED BY ',' ");
$sth->execute();
$set->finish();
$dbh->disconnect ||
die "Failed to connect..........";
$dbh->disconnect ||
die "Error opening database: $DBI::errstr\n";
my $result;
while(<$addr>)
{
last if m/^end/gi;
print "Received : $_";
print $addr $_;
$result += $_;
}
chomp;
if(m/^end/gi)
{
my $send = "result";
print $addr "$send\n";
print "Result: $send\n";
}
print "Closed connection\n";
close $addr;
print "At your service....Waiting Please !!......\n";
}
==============================================================
i just used this below method to import it into mysql, instead of
mysqlimport...
my $sth=$dbh->prepare(" LOAD DATA LOCAL INFILE
"/home/roime/MYSQL_PERL/IN_NETWORK/packet.txt" INTO TABLE flow FIELDS
TERMINATED BY ',' ");
But i receive this message when i compiled it..............
"String found where operator expected at import.pl line 34, near "TERMINATED
BY ','""
(Might be a runaway multi-line "" string starting on line 33)
(Missing semicolon on previous line?)
syntax error at import.pl line 34, near "TERMINATED BY ','""
Execution of import.pl aborted due to compilation errors. "
Do you have any suggestion ?...
This e-mail and any attachments may contain confidential and
privileged information. If you are not the intended recipient,
please notify the sender immediately by return e-mail, delete this
e-mail and destroy any copies. Any dissemination or use of this
information by a person other than the intended recipient is
unauthorized and may be illegal.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
