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; $table_name[7] =~ s/\cd|\cc/. /g; } while($table_name[7] =~ /([0-9]{9})/g) { my $epoch = $1; my $t = localtime($epoch); $table_name[7] =~ s/[0-9]{9}/\n\n$t/g; $table_name[7] =~ s/\cd|\cc/. /g; } } Cheers Harry ************************************************************************************* COLT Telecommunications Registered in England No. 2452736 Registered Office: Bishopsgate Court, 4 Norton Folgate, London E1 6DQ Tel. +44 20 7390 3900 This message is subject to and does not create or vary any contractual relationship between COLT Telecommunications, its subsidiaries or affiliates ("COLT") and you. Internet communications are not secure and therefore COLT does not accept legal responsibility for the contents of this message. Any view or opinions expressed are those of the author. The message is intended for the addressee only and its contents and any attached files are strictly confidential. If you have received it in error, please telephone the number above. Thank you. ************************************************************************************* -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]