Jenda Krynicky wrote:
>
> From: "Jackson, Harry" <[EMAIL PROTECTED]>
> > Can anyone make this a bit faster for me. I am loading a database from
> > Oracle into mysql (dont ask). These conversions are taking a long time
> > and are making the browser time out. The $table_name[7] is a worklog
> > that can be 2000 characters long and $table_name[2] is an epoch date.
> >
> > while (@table_name = $sth->fetchrow_array()) {
> >
> > #Change to proper date.
> > $table_name[2] = localtime($table_name[2]);
> >
> > while($table_name[7] =~ /([0-9]{10})/g) {
> >
> > my $epoch = $1;
> > my $t = localtime($epoch);
> > $table_name[7] =~ s/[0-9]{10}/\n\n$t/g;
>
> [snip]
>
> So at last the whole code may be stripped down to:
>
> while (@table_name = $sth->fetchrow_array()) {
> #Change to proper date.
> $table_name[2] = localtime($table_name[2]);
> $table_name[7] =~ s/([0-9]{9,10})/localtime($1)/ge;
The OP also wants newlines in there.
$table_name[7] =~ s/(\d{9,10})/"\n\n".localtime($1)/ge;
> $table_name[7] =~ s/\cd|\cc/. /g;
> # done with fixing data.
> ...
> }
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
