与MySQL的Perl，非常慢，如何修复它

Question

I have a very tiny perl script which extract one column from original table to form a new table, and generate the relation table by the way

$sqr->$conn->prepare("select id, authors from paper");
$sqr->execute();
while(@row = $sqr->fetchrow_array()) {
  paper_id = $row[0];
  @author_arr = someExtractFunc($row[1]);
  for (@author_arr) {
    author_id = insertAuthor($_);
    insertAuthorPaper(author_id, paper_id); # this is the relation_table between author and paper
  }
}

I have 80,000papers, about 240,000 authors, and this script runs terribly slow, can any one tell me why and give me some advice?

paper
id authors title

author
id name

author_paper
id author_id paper_id

Answer 1

This can probably be solved entirely in MySQL by running query like

INSERT INTO
  newTable(field1,field2,...)
SELECT 
   field1, field2
FROM
   oldTable;