perl连接mysql的例子

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

导读：? #!/bin/perl? ? #? load ?module? use?DBI;? ? #? connect ? my?$dbh?=?DBI- connect ( "DBI:mysql:database=db2;host=localhost" ,? "joe" ,? "guessme" ,?{ 'RaiseError' ?=?1});? ? #? execute ? INSERT ?query? my?$ rows ?=?$dbh-do( "INSERT?INTO?us

 
 
#!/bin/perl?
  
  ?
  
  #?load?module?
  
  use?DBI;?
  
  ?
  
  #?connect?
  
  my?$dbh?=?DBI->connect("DBI:mysql:database=db2;host=localhost",?"joe",?"guessme",?{'RaiseError'?=>?1});?
  
  ?
  
  #?execute?INSERT?query?
  
  my?$rows?=?$dbh->do("INSERT?INTO?users?(id,?username,?country)?VALUES?(4,?'jay',?'CZ')");?
  
  print?"$rows?row(s)?affected?";?
  
  ?
  
  #?execute?SELECT?query?
  
  my?$sth?=?$dbh->prepare("SELECT?username,?country?FROM?users");?
  
  $sth->execute();?
  
  ?
  
  #?iterate?through?resultset?
  
  #?print?values?
  
  while(my?$ref?=?$sth->fetchrow_hashref())?{?
  
  ????print?"User:?$ref->?";?
  
  ????print?"Country:?$ref->?";?
  
  ????print?"----------?";?
  
  }?
  
  ?
  
  #?clean?up?
  
  $dbh->disconnect();?

（编辑：李大同）

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