用perl操作mysql数据库的脚本

发布时间：2020-12-16 00:24:53 所属栏目：大数据来源：网络整理

导读：自己的记录努力学perl中 #!/usr/bin/perl?-w? use?strict;? use?DBI;? my?$ dbh = DBI - connect("DBI:mysql:hlgmall","root","123456");? print?"create?table?xx?select?*?from?es_user_role";? my?$ sth =$dbh- prepare("create?table?ll?select?*?from?

自己的记录努力学perl中

 
 
#!/usr/bin/perl?-w?
  
  use?strict;?
  
  use?DBI;?
  
  my?$dbh=DBI->connect("DBI:mysql:hlgmall","root","123456");?
  
  print?"create?table?xx?select?*?from?es_user_role";?
  
  my?$sth=$dbh->prepare("create?table?ll?select?*?from?es_user_role");?
  
  $sth->execute();?
  
  $sth->finish;?
  
  my?$sth1=$dbh->prepare("create?table?hh?select?*?from?es_user_role");?
  
  $sth1->execute();?
  
  $sth1->finish;?
  
  $dbh->disconnect();?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!