『AskWan』

Pages: 26/61

21 22 23 24 25 26 27 28 29 30

[ View by Articles | List ]

向mysql中插入千万行数据测试脚本

[

2008/10/31 10:57 | by askwan ]

#!/usr/bin/perl -w
use DBD::mysql
$user="askwan";
$password="123456";
$hostname="192.168.0.251";
$database="test";
$dsn = "DBI:mysql:database=$database;host=$hostname";
$dbh=DBI->connect($dsn,$user,$password);
eval { $dbh->do("DROP TABLE T_askwan") };
      print "Dropping T_askwan failed: $@\n" if $@;
$dbh->do("CREATE TABLE T_askwan (id INTEGER, name VARCHAR(20),email VARCHAR(30))");
for(my $i=1;$i<10000001;$i++){
   $dbh->do("INSERT INTO T_askwan VALUES ($i, " . $dbh->quote("$i-Tim") . "," . $dbh->quote("$i-askwan\@yahoo.cn") .")");
   if(!($i%1000)){
   print "$i rows has insert!\n";
   }
}
print "sucessfully insert into 10000000 rows data !\n";
$dbh->disconnect();

程序每插入1000 Rows 就会向你报告一次，剩下的，你就可以去看看报纸，喝点茶，！@#￥%……&
，总之，干什么都可以

只要是等待时间总是漫长的

Scripts | Comments(0) | Trackbacks(0) | Reads(1283)

perl 几个常用程序模板

[

2008/10/18 21:32 | by askwan ]

1.Get form data

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
  $buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
  ($name, $value) = split(/=/, $pair);
  $name =~ tr/+/ /;
  $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $FORM{$name} = $value;
}

2.sendmail

open (MAIL,"|/usr/lib/sendmail");
print MAIL "To: to\@e.mail\n";
print MAIL "From: from\@e.mail\n";
print MAIL "Subject: Subject\n\n";
print MAIL "Body\n";
close MAIL;

3.Get host name by IP address

$ip = $ENV{'REMOTE_ADDR'};
@digits = split (/\./, $ip);
$address = pack ("C4", @digits);
$host = gethostbyaddr ($address, 2);