sowraaj has asked for the wisdom of the Perl Monks concerning the following question:
Hi Perlmonks,
i need to modify this code to enhance it speed by using bulk insertion concept, i can't able to understand that concept at the same time i got an error message that shows @INC error while using use DBIx::BulkLoader::MySql, Pls help myself to enhance the speed of this code
#!/usr/bin/perl use strict; use warnings; use DBI; my %info; my $dbh = DBI-> connect('dbi:mysql:raj','root', '12345', {PrintError = +> 0, RaiseError =>0}); my $sth1 =$dbh->prepare("Truncate TABLE SOWND1"); $sth1->execute(); my $sth2 = $dbh->prepare("insert into SOWND1 values(?,?,?)"); my @files = <~/Desktop/Log_data/SCHOOL/DATA/*>; for my $filee (@files) { local $/ =''; open my $fh,'<', $filee or die "$!\n"; while(my $record = <$fh>) { $record =~ s/^=++ SCHOOL \(B\): MUMBAI =++/Type : BOYS/ig; $record =~ s/^=++ SCHOOL \(G\): MUMBAI =++/Type : GIRLS/ig; map { my($keys,$value)=split /\s*:\s*/,$_; $keys=~ s/\s//g; $info{$keys} = $value; }split /\n/, $record; $sth2->execute($info{Type},$info{School},$info{Name}); } }
Thanks in advance
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Bulk data insertion into MySql
by CountZero (Bishop) on Sep 02, 2011 at 16:25 UTC | |
by sowraaj (Novice) on Sep 03, 2011 at 12:38 UTC | |
by CountZero (Bishop) on Sep 03, 2011 at 19:57 UTC | |
|
Re: Bulk data insertion into MySql
by Marshall (Canon) on Sep 03, 2011 at 00:02 UTC | |
by sowraaj (Novice) on Sep 03, 2011 at 12:31 UTC | |
by Anonymous Monk on Sep 03, 2011 at 19:45 UTC | |
|
Re: Bulk data insertion into MySql
by Anonymous Monk on Sep 02, 2011 at 13:30 UTC | |
|
Re: Bulk data insertion into MySql
by locked_user sundialsvc4 (Abbot) on Sep 02, 2011 at 14:54 UTC | |
by JavaFan (Canon) on Sep 03, 2011 at 22:18 UTC | |
|
Re: Bulk data insertion into MySql
by Anonymous Monk on Sep 03, 2011 at 11:27 UTC | |
by sowraaj (Novice) on Sep 03, 2011 at 12:21 UTC |