Moving Data from one table to another table
From: Chris Lyon (cslyon_at_netsvcs.com)
Date: 12/28/04
- Previous message: Siegfried Heintze: "How to throw exceptions for perl cgi program?"
- Next in thread: Chris Devers: "Re: Moving Data from one table to another table"
- Reply: Chris Devers: "Re: Moving Data from one table to another table"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
To: <beginners@perl.org> Date: Tue, 28 Dec 2004 10:11:35 -0800
Maybe this is a little OT but since I am a beginner @ perl, I thought that I
would post it!
So, I am trying to move data from one sql table to another table called
logs_archive. It seems that I am running into some problems with memory as I
am moving this much data from one table to another. This is just syslog data
but we need to archive it in some way. Can anybody give any advice? Code is
below.
$sth = $dbh->prepare( "select * from logs where ( timestamp <=
'$start_date$start_time' )" );
$sth->execute();
while ( my $ref = $sth->fetchrow_hashref() ) {
$msg_field = $ref->{'msg'};
if ( $msg_field =~ /\'/ ) {
$msg_field =~ s/\'/\\'/g;
}
$string = "INSERT INTO logs_archive ( timestamp, host, facility,
priority, level, tag, date, time, program, msg ) VALUES (
'$ref->{'timestamp'}', '$ref->{'host'}', '$ref->{'facility'}',
'$ref->{'priority'}', '$ref->{'level'}', '$ref->{'tag'}', '$ref->{'date'}',
'$ref->{'time'}', '$ref->{'program'}', '$msg_field' )";
$dbh->do( $string );
}
$string_delete = "delete from logs where ( timestamp <=
'$start_date$start_time' )";
- Previous message: Siegfried Heintze: "How to throw exceptions for perl cgi program?"
- Next in thread: Chris Devers: "Re: Moving Data from one table to another table"
- Reply: Chris Devers: "Re: Moving Data from one table to another table"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
|
