- 論壇徽章:
- 3
|
而且給你一個(gè)我以前寫的例子,你研究下是不是哪寫錯(cuò)了?- #!/usr/bin/perl
- #set module
- use DBI;
- #scanf the mysqluser
- print "請(qǐng)輸入mysql帳號(hào):\n";
- chomp($mysql_n=<STDIN>);
- print "請(qǐng)輸入mysql密碼:\n";
- chomp($mysql_p=<STDIN>);
- print "請(qǐng)輸入需要連接的數(shù)據(jù)庫:\n";
- chomp($mysql_d=<STDIN>);
- print "請(qǐng)輸入需要插入的用戶數(shù)據(jù):\n";
- chomp($user_n=<STDIN>);
- print "請(qǐng)輸入需要插入的密碼數(shù)據(jù):\n";
- chomp($user_p=<STDIN>);
- print "請(qǐng)輸入需要插入的電話數(shù)據(jù):\n";
- chomp($user_t=<STDIN>);
- print "請(qǐng)輸入需要插入的工齡數(shù)據(jù):\n";
- chomp($user_y=<STDIN>);
- #connect mysql
- my $in=DBI->connect("DBI:mysql:database=$mysql_d;host=localhost","$mysql_n","$mysql_p") or die "FUCK no do it!!!\n";
- #insert tables
- my $insert=$in->do("insert into people(username,password,number,year)values('$user_n','$user_p',$user_t,$user_y)");
- #select databases;
- my $select=$in->prepare("select username,password from people");
- $select->execute();
- #print the list
- while(my $list=$select->fetchrow_hashref()){
- print "$list->{'username'}\t";
- print "$list->{'password'}\t";
- print "$list->{'number'}\t";
- print "$list->{'year'}\t";
- }
- print "\n";
- #close mysql
- $in->disconnect();
復(fù)制代碼 |
|