改进：

1. 车长较之前的巴士长了至少两三米。空间理论上更大了。
2. 车门由2个变为3个，理论上乘客上下门会快一些。
3. 前部车座变窄了，走道变宽了，走道可以容纳更多的乘客，而且上下车相对容易一些。

但是感觉也有不少问题：
主要集中在中门和后门之间的空间的设计上

1. 后头的座位不同于前头的座位设计，要宽很多，导致走道异常狭窄，大致看了下，后半的走道要比前半的走到窄至少30多公分
2. 而且后头部分的座位设计的都要比走道高很多。。这样当走道站满乘客的时候，座位上的乘客要起身，并进入走道，无疑增加了难度。。。
3. 走道太狭窄了，站一个基本就没有什么空间了。。2个人来回就十分困难了。。
4. 另外车子的最后很大一块空间没有使用，不知道是为什么。大概1米多长的车身。。真够浪费空间的。。。
5. 另外运行还不到一个月时间，车子轰隆隆直响。。。这么快就有质量问题了？

建议：
首先保证运力，后半部分甚至可以不设置座位。。。
后半的设计实在蹩脚，虽然多了一个门，结果乘客上下车速度反倒较之前慢了很多。。无疑增加了车辆进站、出站的时间耗费，一定程度也阻碍了交通。。

热评日志

• 2010年01月25日 -- Perl文档(perldoc)翻译计划 (1)
• 2010年01月25日 -- Perl学习资料打包(搜集整理By mwm5) (1)
• 2010年01月30日 -- Firefox插件-Autopager-网页/论坛自动翻页插件 (1)
• 2010年01月28日 -- Perl常用模块使用例子(转载)3 (1)
• 2010年01月27日 -- 留言 (1)

以下用“x”代表对应的字符集编码，如：gbk，gb2312，utf8，latin等，请按照需要进行修改

1、mysql连接服务器后，set names x;

2、mysql连接服务器后，set character set x ;

3、用带参数的mysql命令连接
mysql –default-character-set=x

4、编辑/etc/my.cnf,添加如下内容：
[mysql]
default-character-set=x

5、编辑/etc/bashrc，添加如下内容：
alias mysql=’mysql –default-character-set=x’

热评日志

• 2010年01月25日 -- Perl文档(perldoc)翻译计划 (1)
• 2010年01月25日 -- Perl学习资料打包(搜集整理By mwm5) (1)
• 2010年01月30日 -- Firefox插件-Autopager-网页/论坛自动翻页插件 (1)
• 2010年01月28日 -- Perl常用模块使用例子(转载)3 (1)
• 2010年01月27日 -- 留言 (1)

这个插件功能非常强大，内置了丰富的站点列表，并且站点列表可以自动定期进行更新
即便是遇到了不在站点列表中的网站，也可以借助向导实现自己需要的自动翻页功能

相关日志

• 2010年01月27日 -- Firebug 1.5导致Firefox崩溃的解决办法 (0)

热评日志

• 2010年01月25日 -- Perl文档(perldoc)翻译计划 (1)
• 2010年01月25日 -- Perl学习资料打包(搜集整理By mwm5) (1)
• 2010年01月30日 -- Firefox插件-Autopager-网页/论坛自动翻页插件 (1)
• 2010年01月28日 -- Perl常用模块使用例子(转载)3 (1)
• 2010年01月27日 -- 留言 (1)

(31) Text::CSV_XS, parse(), fields(), error_input()

如果field里面也包含分隔符(比如”tom,jack,jeff”,”rose mike”,O’neil,”kurt,korn”)，那么我们
解析起来确实有点麻烦，
Text::CSV_XS挺方便。

#!/usr/bin/perl

use strict;
use Text::CSV_XS;

my @columns;
my $csv = Text::CSV_XS->new({
‘binary’ => 1,
‘quote_char’ => ‘”‘,
’sep_char’ => ‘,’
});

foreach my $line(<DATA>)
{
chomp $line;
if($csv->parse($line))
{
@columns = $csv->fields();
}
else
{
print “[error line : ", $csv->error_input, "]\n”;
}

map {printf(“%-14s\t”, $_)} @columns;
print “\n”;
}
exit 0;

__DATA__
id,compact_sn,name,type,count,price
37,”ITO-2003-011″,”台式机,compaq”,”128M”,”290″,”1,2900″
35,I-BJ-2003-010,”显示器,硬盘,内存”,’三星’,480,”1,4800″
55,”C2003-104″,笔记本,”Dell,Latitude,X200″,13900,”1,13900″

——————————————————————————–
(32) Benchmark

#!/usr/bin/perl

use Benchmark;

timethese(100,
{
‘local’=>q
{
for(1..10000)
{
local $a=$_;
$a *= 2;
}
},

‘my’=>q
{
for(1..10000)
{
my $a=$_;
$a *= 2;
}
}
});

可以拿来计算algorithm耗费多少时间.

timethese(做几次iteration,{
‘Algorithm名稱’=>q{ 要计算时间的algorithm },
‘Algorithm名稱’=>q{ 要计算时间的algorithm }
});

——————————————————————————–
(33) HTTP::Daemon, accept(), get_request(), send_file_response()

一个简单的，只能处理单一请求的Web服务器模型。
send_file_response()方法能把Client请求的文件传送过去。

#!/usr/bin/perl

use HTTP:: Daemon;

$| = 1;
my $wwwroot = “/home/doc/”;
my $d = HTTP:: Daemon->new || die;
print “Perl Web-Server is running at: “, $d->url, ” …\n”;

while (my $c = $d->accept)
{
print $c “Welcome to Perl Web-Server<br>”;

if(my $r = $c->get_request)
{
print “Received : “, $r->url->path, “\n”;
$c->send_file_response($wwwroot.$r->url->path);
}

$c->close;
}

——————————————————————————–
(34) Array::Compare, compare(), full_compare()

用于数组比较。本例实现类似shell command – diff的功能。
如果我们要比较的不是文件，而是比如系统信息，远程文件列表，数据库内容变化等，这个模块会给我们提供方便灵活的操作。

#!/usr/bin/perl

use Array::Compare;

$comp = Array::Compare->new(WhiteSpace => 1);
$cmd = “top -n1 | head -4″;
@a1 = `$cmd`;
@a2 = `$cmd`;

@result = $comp->full_compare(@a1, @a2);

foreach(@result)
{
print $_ + 1, “th line:\n”;
print “> $a1[$_]> $a2[$_]“;
print “—–\n”;
}
exit 0;

——————————————————————————–

(35) Algorithm::Diff, diff()

用于文件比较。实现类似unix command diff的功能。

#!/usr/bin/perl

use Algorithm::Diff qw(diff);

die(“Usage: $0 file1 file2\n”) if @ARGV != 2;

my ($file1, $file2) = @ARGV;
-T $file1 or die(“$file1: binary\n”);
-T $file2 or die(“$file2: binary\n”);

@f1 = `cat $file1 `;
@f2 = `cat $file2 `;

$diffs = diff(@f1, @f2);

foreach $chunk (@$diffs)
{
foreach $line (@$chunk)
{
my ($sign, $lineno, $text) = @$line;
printf “$sign%d %s”, $lineno+1, $text;
}

print “——–\n”;
}

——————————————————————————–
(36) List::Util, max(), min(), sum(), maxstr(), minstr()…

列表实用工具集。

#!/usr/bin/perl

use List::Util qw/max min sum maxstr minstr shuffle/;

@s = (‘hello’, ‘ok’, ‘china’, ‘unix’);

print max 1..10; #10
print min 1..10; #1
print sum 1..10; #55
print maxstr @s; #unix
print minstr @s; #china
print shuffle 1..10; #radom order

——————————————————————————–
(37) HTML::Parser

解析HTML。本例为找出一个html文本中的所有图片的地址。（即IMG标签中的src）

子程序start中的”$tag =~ /^img$/”为过滤出img标签。
如果换为”$tag =~ /^a$/”，即是找出所有的链接地址。

详细的方法介绍，请见`perldoc HTML::Parser`

#!/usr/bin/perl

use LWP::Simple;
use HTML::Parser;

my $url = shift || “http://www.chinaunix.net”;
my $content = LWP::Simple::get($url) or die(“unknown url\n”);

my $parser = HTML::Parser->new(
start_h => [&start, "tagname, attr"],
);

$parser->parse($content);
exit 0;

sub start
{
my ($tag, $attr, $dtext, $origtext) = @_;
if($tag =~ /^img$/)
{
if (defined $attr->{’src’} )
{
print “$attr->{’src’}\n”;
}
}
}

——————————————————————————–
(38) Mail::Sender

1)发送附件

#!/usr/bin/perl

use Mail::Sender;

$sender = new Mail::Sender{
smtp => ‘localhost’,
from => ‘xxx@localhost’
};
$sender->MailFile({
to => ‘xxx@xxx.com’,
subject => ‘hello’,
file => ‘Attach.txt’
});
$sender->Close();

print $Mail::Sender::Error eq “” ? “send ok!\n” : $Mail::Sender::Error;

2)发送html内容

#!/usr/bin/perl

use Mail::Sender;

open(IN, “< ./index.html”) or die(“”);

$sender = new Mail::Sender{
smtp => ‘localhost’,
from => ‘xxx@localhost’
};

$sender->Open({
to => ‘xxx@xxx.com’,
subject => ‘xxx’,
msg => “hello!”,
ctype => “text/html”,
encoding => “7bit”,
});

while(<IN>)
{
$sender->SendEx($_);
}
close IN;
$sender->Close();

print $Mail::Sender::Error eq “” ? “send ok!\n” : $Mail::Sender::Error;

发送带有图片或其他信息的html邮件，请看`perldoc Mail::Sender`
中的”Sending HTML messages with inline images”及相关部分。

——————————————————————————–
(40) Image::Magick

http://www.imagemagick.org/www/perl.html

#!/usr/local/bin/perl
use Image::Magick;

my($image, $x);

$image = Image::Magick-&amp;gt;new;
$x = $image-&amp;gt;Read(‘girl.png’, ‘logo.png’, ‘rose.png’);
warn “$x” if “$x”;

$x = $image-&amp;gt;Crop(geometry=&amp;gt;’100×100″+100″+100′);
warn “$x” if “$x”;

$x = $image-&amp;gt;Write(‘x.png’);
warn “$x” if “$x”;

The script reads three images, crops them, and writes a single image as a GIF animation
sequence. In many cases you may want to access individual images of a sequence. The next
example illustrates how this is done:
#!/usr/local/bin/perl
use Image::Magick;

my($image, $p, $q);

$image = new Image::Magick;
$image-&gt;Read(‘x1.png’);
$image-&gt;Read(‘j*.jpg’);
$image-&gt;Read(‘k.miff[1, 5, 3]‘);
$image-&gt;Contrast();
for ($x = 0; $image-&gt;[x]; $x++)
{
$image-&gt;[x]-&gt;Frame(‘100×200′) if $image-&gt;[x]-&gt;Get(‘magick’) eq ‘GIF’;
undef $image-&gt;[x] if $image-&gt;[x]-&gt;Get(‘columns’) &lt; 100;
}
$p = $image-&gt;[1];
$p-&gt;Draw(stroke=&gt;’red’, primitive

Suppose you want to start out with a 100 by 100 pixel white canvas with a red pixel in the
center. Try

$image = Image::Magick->new;
$image->Set(size=>’100×100′);
$image->ReadImage(‘xc:white’);
$image->Set(‘pixel[49,49]‘=>’red’);

Or suppose you want to convert your color image to grayscale:

$image->Quantize(colorspace=>’gray’);

Here we annotate an image with a Taipai TrueType font:

$text = ‘Works like magick!’;
$image->Annotate(font=>’kai.ttf’, pointsize=>40, fill=>’green’, text=>$text);

Other clever things you can do with a PerlMagick objects include

$i = $#$p”+1″; # return the number of images associated with object p
push(@$q, @$p); # push the images from object p onto object q
@$p = (); # delete the images but not the object p
$p->Convolve([1, 2, 1, 2, 4, 2, 1, 2, 1]); # 3×3 Gaussian kernel

——————————————————————————————-
(41)Data::SearchReplace

#!/user/bin/perl
use Data::SearchReplace (’sr’);
sr({ SEARCH => ’searching’, REPLACE => ‘replacing’}, \$complex_var);

# or OO

use Data::SearchReplace;
$sr = Data::SearchReplace->new({ SEARCH => ’search for this’,
REPLACE => ‘replace with this’ });

$sr->sr(\$complex_var);
$sr->sr(\$new_complex_var);

# if you want more control over your search/replace pattern you
# can pass an entire regex instead complete with attributes

sr({ REGEX => ’s/nice/great/gi’ }, \$complex_var);

# you can even use a subroutine if you’d like
# the input variable is the value and the return sets the new
# value.

sr({ CODE => sub { uc($_[0]) } }, \$complex_var);

use Data::SearchReplace qw(sr);
sr({SEARCH => ‘find’, REPLACE => ‘replace’}, \@data);
sr({REGEX => ’s/find/replace/g’}, \%data);
sr({CODE => sub {uc($_[0])} }, \@data);

——————————————————————————–

相关日志

• 2010年01月28日 -- Perl常用模块使用例子(转载)4 (0)
• 2010年01月28日 -- Perl常用模块使用例子(转载)3 (1)
• 2010年01月28日 -- Perl常用模块使用例子(转载)2 (0)
• 2010年01月28日 -- Perl常用模块使用例子(转载)1 (0)
• 2010年01月25日 -- Perl学习资料打包(搜集整理By mwm5) (1)

(21) Term::ANSIColor 例子

#!/usr/bin/perl
use strict;
use Term::ANSIColor qw(:constants);

$Term::ANSIColor::AUTORESET = 1;

$| = 1;
my $str = “Welcome to chinaunix ^_^!\n”;

for my $i(0..length($str)-1)
{
print BOLD RED substr($str, $i, 1);
select(undef, undef, undef, 0.3);
}
exit 0;

查看ANSIColor.pm可以得知作者是利用ANSI转义序列，改变终端字符颜色的。
print “\e[34m\n";
即是改变前景色为blue;

shell命令为echo -e "\033[31m";#改变前景色为红色。
(freeBSD，Solaris下此命令测试OK)

--------------------------------------------------------------------------------
(21) Term::ANSIColor 例子二

#!/usr/bin/perl
use strict;
use Term::ANSIColor qw(:constants);

$Term::ANSIColor::AUTORESET = 1;

$| = 1;

print "\e[20;40H";
my $str = "Welcome to chinaunix ^_^!\n";

print BOLD BLINK $str;
exit 0;

转义序列echo -e "\033[20;40H";可以改变光标位置。
perl中就可以：print "\e[20;40H";

--------------------------------------------------------------------------------
(22) Date::Calc Calendar(), Today()

#!/usr/bin/perl
use strict;
use Date::Calc qw(Calendar Today);

my $year = "2003";
my $month = "6";
my $day;

my $cal = Calendar($year, $month);
(undef, undef, $day) = Today();

$cal =~ s/$day/e[5me[31m$daye[0m/;

print $cal;
exit 0;

本例子打印出一个2003年6月份的日历，当天日期用红色的闪烁数字表示。

Date::Calc提供了时间日期计算的另一种方式（一种是Date::Manip），
大量简单方便的方法（函数）供使用者调用。

在例子中的年和月我是自己指定的，也可以
($year, $month, $day) = Today();

颜色和闪烁是用ANSI escape sequences。
详细说明尽在ANSIColor.pm source和perldoc Term::ANSIColor里。
（perldoc Term::ANSIColor其实也在ANSIColor.pm source里） ：）

--------------------------------------------------------------------------------
(23) Term::Cap, Tgetend(), Tgoto, Tputs()

#!/usr/bin/perl
use strict;
use Term::Cap;

$| = 1;
my $i = 1;
my $flag = 0;

my $tcap = Term::Cap->Tgetent({TERM => undef, OSPEED => 1});
$tcap->Tputs('cl', 1, *STDOUT);#clear screen

while($i)
{
if($i > 50 || $flag == 1)
{
$i --;
$flag = 1;
$flag = 0 if($i == 1);
}
else
{
$i ++;
$flag = 0;
}

$tcap->Tgoto('cm', $i, 15, *STDOUT);#move cursor
print " welcome to chinaunix! ";
select(undef, undef, undef, 0.02);
}
exit 0;

Term::Cap 终端控制模块。
代码效果：一个左右移动的字串 "welcome to chinaunix! " ：）

--------------------------------------------------------------------------------
(24) HTTPD::Log::Filter

#!/usr/bin/perl
use strict;
use HTTPD::Log::Filter;

my $filter = HTTPD::Log::Filter->new(format => "CLF",
capture => ['request', 'host']);

foreach(`cat access_log`)
{
chomp;
unless( $filter->filter($_) )
{
print “[$_]\n”;
next;
}
print $filter->request, “\n”;
}
exit 0;

如果我们工作中经常需要分析Apache日志，这个模块可以提供一些方便。
创建对象实例以后，用filter方法来过滤，没有正确匹配的行将返回false,
然后用相应的方法print出我们需要的数据。(host,request,date…等等方法，
由capture选项以参数引入)
可以用re方法打印出作者所使用的匹配模式：

use HTTPD::Log::Filter;
print HTTPD::Log::Filter->new(format=>”CLF”,capture=>['request'])->re;

详见perldoc HTTPD::Log::Filter. enjoy it

——————————————————————————–
(25) Net::LDAP

#!/usr/bin/perl
use Net::LDAP;

## get a object of ldap
$ldap = Net::LDAP->new(“1.1.1.1″, port =>”389″, version => 3) or die “$@”;
# object of Net::LDAP::Message
$mesg = $ldap->bind($_cer_id, password => $_cer_pw); # 查詢用的ID/PASSWD
if($mesg->is_error) {die $mesg->error;}
$mesg = $ldap->search(
base => “o=abc,c=tt”, # 起始點
scope => “sub”, # 範圍
filter => “(uid=apile)”, # 條件
attrs => ["cn"], # 要取得的attribute
typesonly => 0 );

my $max_len = $mesg->count; ## get number of entry

#–取得中文姓名，可能不只一筆
for($i=0;$i<$max_len;$i++){
$entry = $mesg->entry($i);
$cname = $entry->get_value(“cn”); # get chinese name
}

#–作密碼認證
$mesg = $ldap->bind($entry->dn, password => “abc”, version => 3)
||die “can’t connect to ldap”;
if($mesg->code) { print “verification is failed”}
else{ print “success”}

LDAP version 3..可以用于查询基本资料、验证密码之用..

——————————————————————————–
(26) Net::SMTP mail(), to(), data(), datasend(), auth()

#!/usr/bin/perl

use strict;
use Net::SMTP;

my $smtp = Net::SMTP->new(’smtp.sohu.com’, Timeout => 10, Debug => 0)
or die “new error\n”;
#$smtp->auth(“user”, “passwd”) or die “auth error\n”;
$smtp->mail(’some’);
$smtp->to(’some@some.com’);
$smtp->data(“chinaunix,哈楼你好啊!\n:)”);
$smtp->quit;

exit 0;

有的SMPT Server需要Authentication，那么就使用auth()方法进行验证。
Debug模式打开，可以看到详细的SMTP命令代码。也有助于我们排错。

——————————————————————————–
(27) MIME::Base64, encode_base64(), decode_base64()

#!/usr/bin/perl -w

use strict;
use MIME::Base64;

foreach(<DATA>)
{
print decode_base64($_);
}
exit 0;

__DATA__
xOO6w6Osu7bTrcC0tb1jaGluYXVuaXguY29tIFtwZXJsXbDmIQo=
1eLKx2Jhc2U2NLHgwuu1xMD919OjrNPJTUlNRTo6QmFzZTY0xKO/6cC0veLC66GjCg==
cGVybGRvYyBNSU1FOjpCYXNlNjQgZm9yIGRldGFpbHMsIGVuam95IGl0IDopCg==

用来处理MIME/BASE64编码。

——————————————————————————–
(28) Net::IMAP::Simple, login(), mailboxes(), select(), get()…

#!/usr/bin/perl

use strict;
use Net::IMAP::Simple;

my $server = new Net::IMAP::Simple( ‘imap.0451.com’ );
$server->login( ‘user_name’, ‘passwd’);

#show the mailboxs
#map {print “$_\n”;} $server->mailboxes();

#show mail’s content
my $n = $server->select( ‘inbox’ ) or die “no this folder\n”;
foreach my $msg ( 1..$n )
{
my $lines = $server->get( $msg );
print @$lines;
print “_________________ Press enter key to view another! …… __________________\n”;
read STDIN, my $key, 1;
}

exit 0;

在取得中文的Folder时，会出现乱码的情况，
这个问题现在没有解决。英文的Folder则没问题。

IMAP协议，默认端口为143，可以用telnet登录。

telnet imap.xxx.com 143
2 login user pass
2 list “” *
2 select inbox
……

————————————————————————-
(29) Bio::DB::GenBank, Bio::SeqIO

bioperl(http://bioperl.org/)模块使用–生物信息学中用的模块
功能：根据核酸的gi号自动从GenBank中提取FASTA格式的序列，可以多序列提取。

#!/usr/bin/perl -w

use Bio::DB::GenBank;
use Bio::SeqIO;
my $gb = new Bio::DB::GenBank;

my $seqout = new Bio::SeqIO(-fh => *STDOUT, -format => ‘fasta’);

# if you want to get a bunch of sequences use the batch method
my $seqio = $gb->get_Stream_by_id([ qw(27501445 2981014)]);

while( defined ($seq = $seqio->next_seq )) {
$seqout->write_seq($seq);
}

————————————————————————-
(30) Spreadsheet::ParseExcel

perl解析Excel文件的例子。

#!/usr/bin/perl -w

use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtUnicode; #gb support

my $oExcel = new Spreadsheet::ParseExcel;

die “You must provide a filename to $0 to be parsed as an Excel file” unless @ARGV;
my $code = $ARGV[1] || “CP936″; #gb support
my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map => $code); #gb support
my $oBook = $oExcel->Parse($ARGV[0], $oFmtJ);
my($iR, $iC, $oWkS, $oWkC);
print “FILE :”, $oBook->{File} , “\n”;
print “COUNT :”, $oBook->{SheetCount} , “\n”;

print “AUTHOR:”, $oBook->{Author} , “\n”
if defined $oBook->{Author};

for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++)
{
$oWkS = $oBook->{Worksheet}[$iSheet];
print “——— SHEET:”, $oWkS->{Name}, “\n”;
for(my $iR = $oWkS->{MinRow} ;
defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ;
$iR++)
{
for(my $iC = $oWkS->{MinCol} ;
defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ;
$iC++)
{
$oWkC = $oWkS->{Cells}[$iR][$iC];
print “( $iR , $iC ) =>”, $oWkC->Value, “\n” if($oWkC);
}
}
}

——————————————————————————–

相关日志

• 2010年01月28日 -- Perl常用模块使用例子(转载)5 (0)
• 2010年01月28日 -- Perl常用模块使用例子(转载)3 (1)
• 2010年01月28日 -- Perl常用模块使用例子(转载)2 (0)
• 2010年01月28日 -- Perl常用模块使用例子(转载)1 (0)
• 2010年01月25日 -- Perl学习资料打包(搜集整理By mwm5) (1)

(11)ExtUtils::Installed, new(), modules(), version()

#查看已经安装的模块的相应信息。

#!/usr/bin/perl
use strict;
use ExtUtils::Installed;

my $inst= ExtUtils::Installed->new();
my @modules = $inst->modules();

foreach(@modules)
{
my $ver = $inst->version($_) || “???”;
printf(“%-12s — %s\n”, $_, $ver);
}
exit 0;

——————————————————————–
(12) DBI, connect(), prepare(), execute(),fetchrow_array()

#!/usr/bin/perl
use strict;
use DBI;

my $dbh = DBI->connect(“dbi:mysql:dbname”, ‘user’,'passwd’, ”)
or die “can’t connect!\n”;
my $sql = qq/show variables/;
my $sth = $dbh->prepare($sql);
$sth->execute();

while(my @array=$sth->fetchrow_array())
{
printf(“%-35s”, $_) foreach(@array);
print “\n”;
}
$dbh -> disconnect();
exit 0;

————————————————————————
(13) Getopt::Std

#命令行参数解析。

#!/usr/bin/perl
use strict;
use Getopt::Std;

my %opts;
getopts(“c:hv”, %opts);

foreach(keys %opts)
{
/c/ && print “welcome to “, $opts{$_} ||
“ChinaUnix”, “!\n”;
/h/ && print “Usage : $0 -[hv] -[c msg] \n”;
/v/ && print “This is demo, version 0.001.001 built for
$^O\n”;
}
exit 0;

————————————————————————
(14) Proc::ProcessTable

#直接访问Unix进程表，类似ps command。

#!/usr/bin/perl
use strict;
use Proc::ProcessTable;

my $pt = new Proc::ProcessTable;

foreach(reverse sort @{$pt->table})
{
print $_->pid, ” => “;
print $_->cmndline, “\n”;
}
exit 0;

——————————————————————–
(15) Shell

#!/usr/bin/perl
use strict;
use Shell;

print “now is : “, date();
print “current time is : “, date(“+%T”);

my @dirs = ls(“-laF”);
foreach(@dirs)
{
print if(//$/);#print directory
}
exit 0;

#Shell命令直接做为函数，在Perl中调用。

———————————————————————

(16) Time::HiRes, sleep(), time()

#!/usr/bin/perl
#Another use of Time::HiRes Module.

use strict;
use Time::HiRes qw(sleep time);

$| = 1;
my $before = time;
for my $i (1..100)
{
print “$i\n”;
sleep(0.01);
}
printf(“time used : %.5f seconds\n”, time – $before);
exit 0;

use Time::HiRes后，此模块提供sleep(),
alarm(), time()的增强版以
取代perl内置的相应函数。
其中sleep()和alarm()的参数可以是小数。比如sleep(0.1)表示休眠0.1秒，
time()可以返回浮点数。

———————————————————————-
(17) HTML::LinkExtor, links(), parse_file()

#!/usr/bin/perl
use strict;
use HTML::LinkExtor;

my $p = new HTML::LinkExtor;
$p->parse_file(*DATA);

foreach my $links ($p->links())
{
map {print “$_ “} @{$links};
print “\n”;
}
exit 0;

__DATA__

<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.1 Strict//EN”
“http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd”>
<html xmlns=”http://www.w3.org/1999/xhtml”
xml:lang=”en-US”>
<head>
<meta http-equiv=”Content-Type” content=”text/html”/>
<title>CPAN</title>
<!– Copyright Jarkko Hietaniemi <jhi@iki.fi> 1998-2002
All Rights Reserved.
The CPAN Logo provided by J.C. Thorpe.
You may distribute this document either under the Artistic License
(comes with Perl) or the GNU Public License, whichever suits you.

You are not allowed to remove or alter these comments. –>
<!– $Id: cpan-index.html,v 1.7 2003/02/17 10:23:46 jhi Exp $ –>
<link rev=”made”
href=”mailto:cpan@perl.org”></link>
<style type=”text/css”>
<!–

body{
color:black;
background:white;
margin-left:2%;
margin-right:2%;
}

h1{
text-align:center;
}

img {
vertical-align: 50%;
border: 0;
}

.left{
text-align:left;
float:none;
}

.center{
text-align:center;
float:none;
}

.right{
text-align:right;
float:none;
}

–>
</style>
</head>
<body>

<table width=”100%”>
<tr>
<td rowspan=”2″>
<div class=”left”>
<img src=”misc/jpg/cpan.jpg”
alt=”[CPAN Logo]” height=”121″ width=”250″/>
</div>
</td>
<td>
<div class=”right”>
<h1><a id=”top”>Comprehensive Perl Archive
Network</a></h1>
</div>
</td>
</tr>
<tr>
<td>
<div class=”center”>
2003-06-10 online since 1995-10-26<br/>1662 MB 246 mirrors<br/>2903
authors 4767 modules
</div>
</td>
</tr>
<tr>
<td colspan=”2″>
<p class=”left”>
Welcome to CPAN! Here you will find All Things Perl.
</p>
</td>
<td>
</td>
</tr>
</table>

<hr/>

<table width=”100%”>

<tr>

<td>

<h1>Browsing</h1>
<ul>
<li><a href=”modules/index.html”>Perl
modules</a></li>
<li><a href=”scripts/index.html”>Perl
scripts</a></li>
<li><a href=”ports/index.html”>Perl binary distributions
(“ports”)</a></li>
<li><a href=”src/README.html”>Perl source
code</a></li>
<li><a href=”RECENT.html”>Perl recent
arrivals</a></li>
<li><a
href=”http://search.cpan.org/recent”>recent</a> Perl
modules</li>
<li><a href=”SITES.html”>CPAN
_fcksavedurl=”"SITES.html”>CPAN” sites</a>
list</li>
<li><a href=”http://mirrors.cpan.org/”>CPAN
sites</a> map</li>
</ul>

</td>

<td>

<h1>Searching</h1>

<ul>
<li><a href=”http://kobesearch.cpan.org/”>Perl core and
CPAN modules documentation </a> (Randy Kobes)</li>
<li><a href=”http://www.perldoc.com/”>Perl core
documentation</a> (Carlos Ramirez)</li>
<li><a href=”http://search.cpan.org/”>CPAN modules,
distributions, and authors</a> (search.cpan.org)</li>
<li><a href=”http://wait.cpan.org/”>CPAN modules
documentation</a> (Ulrich Pfeifer)</li>
</ul>

<h1>FAQ etc</h1>

<ul>
<li><a href=”misc/cpan-faq.html”>CPAN Frequently Asked
Questions</a></li>
<li><a href=”http://lists.cpan.org/”>Perl Mailing
Lists</a></li>
<li><a href=”http://bookmarks.cpan.org/”>Perl
Bookmarks</a></li>
</ul>

<p><small>
Yours Eclectically, The Self-Appointed Master Librarian (OOK!) of the
CPAN<br/>
<i>Jarkko Hietaniemi</i>
<a href=”mailto:cpan@perl.org”>cpan@perl.org</a>
<a href=”disclaimer.html”>[Disclaimer]</a>
_fcksavedurl=”"disclaimer.html”>[Disclaimer]</a>”
</small>
</p>

</td>

</tr>

</table>

<hr/>

<table width=”100%”>
<tr>

<td>
<div class=”left”>
<a
href=”http://validator.w3.org/check?uri=http%3A%2F%2Fwww.cpan.org%2Findex.html”>
<img src=”misc/gif/valid-xhtml10.gif” alt=”Valid XHTML
1.0!” height=”31″ width=”88″/></a>
<a
href=”http://jigsaw.w3.org/css-validator/validator?uri=http%3A%2F%2Fwww.cpan.org%2Findex.html”>
<img src=”misc/gif/vcss.gif” alt=”[Valid CSS]”
height=”31″ width=”88″/></a>
</div>
</td>
<td>
<div class=”right”>

<table width=”100%”>

<tr>
<td class=”right”>
<small>
CPAN master site hosted by
</small>
</td>
</tr>
<tr>
<td class=”right”>
<a href=”http://www.csc.fi/suomi/funet/verkko.html.en/”><img
src=”misc/gif/funet.gif” alt=”FUNET” height=”25″
width=”88″/></a>
</td>
</tr>
</table>

</div>
</td>

</tr>
</table>

</body>
</html>

——————————————————————————–
(18) Net::Telnet, open(), print(), getline()

#!/usr/bin/perl
use strict;
use Net::Telnet;

my $p = Net::Telnet->new();
my $h = shift || “www.chinaunix.net”;

$p->open(Host => $h, Port => 80);
$p->print(“GET /\n”);
while(my $line = $p->getline())
{
print $line;
}
exit 0;

——————————————————————————–
(19) Compress::Zlib, gzopen(), gzreadline(),gzclose()

#!/usr/bin/perl
use strict;
use Compress::Zlib;

my $gz = gzopen(“a.gz”, “rb”);

while( $gz->gzreadline(my $line) > 0 )
{
chomp $line;
print “$line\n”;
}

$gz->gzclose();
exit 0;

#直接使用shell的zmore,
zless, zcat打开文件也不错，但是如果gz文件很大，还是应该选择zlib。

——————————————————————————–
(20) Net::POP3, login(), list(), get()

#!/usr/bin/perl
use strict;
use Net::POP3;
use Data::Dumper;

my $user = “user”;
my $pass = shift or die “Usage : $0 passwd\n”;
my $host = “pop3.web.com”;#pop3 address

my $p = Net::POP3->new($host) or die “Can’t connect $host!\n”;
$p->login($user, $pass) or die “user or passwd error!\n”;
my $title = $p->list or die “No mail for $user\n”;

foreach my $h(keys %$title)
{
my $msg = $p->get($h);
print @$msg;
}
$p->quit;
exit 0;

telnet pop3.web.com 110 也可以直接连到pop3 server上，然后通过pop3命令与邮件服务器交互，

简单的命令有：

USER name
PASS string
STAT
LIST [n]
RETR msg
DELE msg
NOOP
RSET
QUIT

有兴趣的朋友可以试一试。
这样，也就可以利用Net::Telnet来做一个收信件的简单程序。

——————————————————————————–

相关日志

• 2010年01月28日 -- Perl常用模块使用例子(转载)5 (0)
• 2010年01月28日 -- Perl常用模块使用例子(转载)4 (0)
• 2010年01月28日 -- Perl常用模块使用例子(转载)2 (0)
• 2010年01月28日 -- Perl常用模块使用例子(转载)1 (0)
• 2010年01月25日 -- Perl学习资料打包(搜集整理By mwm5) (1)

(1)Net::FTP

#!/usr/bin/perl -w
# file: ftp_recent.pl
# Figure 6.1: Downloading a single file with Net::FTP
use Net::FTP;

use constant HOST => ‘ftp.perl.org’;
use constant DIR => ‘/pub/CPAN’;
use constant FILE => ‘RECENT’;

my $ftp = Net::FTP->new(HOST) or die “Couldn’t connect: $@\n”;
$ftp->login(‘anonymous’) or die $ftp->message;
$ftp->cwd(DIR) or die $ftp->message;
$ftp->get(FILE) or die $ftp->message;
$ftp->quit;

warn “File retrieved successfully.\n”;

———————————————————–
(2)Net::Telnet

#!/usr/bin/perl -w
# file:remoteps.pl

use strict;
use Net::Telnet;
use constant HOST => ‘phage.cshl.org’;
use constant USER => ‘lstein’;
use constant PASS => ‘xyzzy’;

my $telnet=Net::Telnet->new(HOST);
$telnet->login(USER,PASS);
my @lines=$telnet->cmd(‘ps -ef’);
print @lines;

————————————————————–
(3)LWP::Simple, get()

#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);

my $url = shift || “http://www.chinaunix.net”;
my $content = get($url);

print $content;

exit 0;
#最简单方便的get网页的方法。

————————————————————-
(4) Expect

#!/usr/bin/perl
use strict;
use Expect;

my $timeout = 2;
my $delay = 1;
my $cmd = “ssh”;
my @params = qw/202.108.xx.xx -lusername -p22/;
my $pass = “passwd”;

my $exp = Expect->spawn($cmd, @params) or die “Can’t spawn $cmd\n”;
$exp->expect($timeout, -re=>’[Pp]assword:’);
$exp->send_slow($delay, “$pass\r\n”);

$exp->interact();
$exp->hard_close();

exit 0;

—————————————————————–
(5) XML::Simple, XMLin()

#!/usr/bin/perl -w
use strict;
use XML::Simple;
my $text = <<xml;
< ?xml version=”1.0″? >
<web-app>
<servlet>
<servlet-name>php</servlet-name>
<servlet-class>net.php.servlet</servlet-class>
</servlet>
<servlet-mapping>
<servlet-name>php</servlet-name>
<url-pattern>*.php</url-pattern>
</servlet-mapping>
</web-app>
xml
my $x = XMLin($text);
foreach my $tag(keys %$x)
{
my %h = %{$$x{$tag}};
foreach(keys %h)
{
print “$tag => “;
print “$_ => $h{$_}\n”;
}
}
exit 0;

—————————————————————-
(6) Data::Dumper, Dumper()

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

print Dumper(@INC);
print Dumper(%ENV);
exit 0;

————————————-
(7) IO::Socket

#!/usr/bin/perl -w
use strict;
use IO::Socket;

my $host = “www.chinaunix.net”;
my $port = “80″;
my $http_head = “GET / HTTP/1.0\nHost: $host:$port\n\n”;
my $sock = IO::Socket::INET->new(“$host:$port”)
or die “Socket() error, Reason : $! \n”;

print $sock $http_head;
print <$sock>;

exit 0;

—————————————————————
(8) Date::Manip, DateCalc(), UnixDate()

#!/usr/bin/perl
use strict;
use Date::Manip;
my $date1 = “Fri Jun 6 18:31:42 GMT 2003″;
my $date2 = “2003/05/06″;
my $flag=&Date_Cmp($date1,$date2);

if($flag<0)
{
print “date1 is earlier!\n”;
}
elsif($flag==0)
{
print “the two dates are identical!\n”;
}
else
{
print “date2 is earlier!\n”;
}
exit 0;

——————————————————————–
(10) File::Find, find()

#!/usr/bin/perl -w
use strict;
use File::Find;

my $file = “access.log”;
my $path = “/”;

find(&process, $path);

sub process{ print $File::Find::dir, “$_\n” if(/$file/); }

exit 0;

#用于在unix文件树结构中查找对象。

—————————————————————

相关日志

• 2010年01月28日 -- Perl常用模块使用例子(转载)5 (0)
• 2010年01月28日 -- Perl常用模块使用例子(转载)4 (0)
• 2010年01月28日 -- Perl常用模块使用例子(转载)3 (1)
• 2010年01月28日 -- Perl常用模块使用例子(转载)1 (0)
• 2010年01月25日 -- Perl学习资料打包(搜集整理By mwm5) (1)

Linuxsir原文链接：http://www.linuxsir.org/bbs/thread77473.html

Chinaunix原文链接：Perl模块使用 => 简短例子代码集合！

一些常用模块的简单描述 perldoc.perl.org/perlmodlib.html" target="_blank">http://perldoc.perl.org/perlmodlib.htmlperldoc.perl.org/perlmodlib.html" target="_blank">

———————————————————-
在perl 中使用模块：
模块的下载地址：http://www.cpan.org/modules/01modules.index.html
安装模块：

1. perl Makefile.PL
2. make
3. make test
4. make install

也可以用如下命令安装模块(已知的适用的系统redhat 9.0，其他的我不知道，请大家试试看 。

perl -MCPAN -e shell>
接着输入：
install MODEL_NAME

查看模块的帮助：

perldoc MODEL_NAME
例如：
perldoc Net::FTP

———————————————————-

已有模块：(以下的内容转自CU，谢谢CU的朋友)
说明：
以下例子代码的测试是在FreeBSD & Solaris下进行的，Perl版本为5.005_03。

(1) Net::FTP
(2) Net::Telnet
(3) LWP::Simple, get()
(4) Expect
(5) XML::Simple, XMLin()
(6) Data::Dumper, Dumper()
(7) IO::Socket
(8) Date::Manip, DateCalc(), UnixDate()
(9) Date::Manip, Date_Cmp()
(10) File::Find, find()
(11) ExtUtils::Installed, new(), modules(), version()
(12) DBI, connect(), prepare(), execute(), fetchrow_array()
(13) Getopt::Std
(14) Proc::ProcessTable
(15) Shell
(16) Time::HiRes, sleep(), time()
(17) HTML::LinkExtor, links(), parse_file()
(18) Net::Telnet, open(), print(), getline()
(19) Compress::Zlib, gzopen(), gzreadline(), gzclose()
(20) Net::POP3, login(), list(), get()
(21) Term::ANSIColor
(22) Date::Calc Calendar(), Today()
(23) Term::Cap, Tgetend(), Tgoto, Tputs()
(24) HTTPD::Log::Filter
(25) Net::LDAP
(26) Net::SMTP mail(), to(), data(), datasend(), auth()
(27) MIME::Base64, encode_base64(), decode_base64()
(28) Net::IMAP::Simple, login(), mailboxes(), select(), get()…
(29) Bio::DB::GenBank, Bio::SeqIO
(30) Spreadsheet::ParseExcel
(31) Text::CSV_XS, parse(), fields(), error_input()
(32) Benchmark

说明：
以下例子代码的测试是在RH Linux7.2下进行的，Perl版本为5.6.0。

(33) HTTP:: Daemon, accept(), get_request()…
(34) Array::Compare, compare(), full_compare()…
(35) Algorithm::Diff, diff()
(36) List::Util, max(), min(), sum(), maxstr(), minstr()…
(37) HTML::Parser
(38) Mail::Sender
(39) Time::HiRes, gettimeofday(), usleep()
(40) Image::Magick

以下模块在RedHat 9.0 ,perl version v5.8.0 built 通过。

(41) Data::SearchReplace

———————————————————-

相关日志

• 2010年01月28日 -- Perl常用模块使用例子(转载)5 (0)
• 2010年01月28日 -- Perl常用模块使用例子(转载)4 (0)
• 2010年01月28日 -- Perl常用模块使用例子(转载)3 (1)
• 2010年01月28日 -- Perl常用模块使用例子(转载)2 (0)
• 2010年01月25日 -- Perl学习资料打包(搜集整理By mwm5) (1)

解决办法是卸载“新版本”的MSNShell，并安装4.2.28.32版本的MSNShell（直接覆盖安装亦可）

MSNShell的官方网站上只提供了最新版本的MSNShell，老版本的可以从这里下载

MSNShell 4.2.28.32下载地址

为了避免MSNShell自动更新到最新版本，导致问题，可以通过打开MSNShell的“设置”对话框，之后去掉“自动更新”选项。

热评日志

• 2010年01月25日 -- Perl文档(perldoc)翻译计划 (1)
• 2010年01月25日 -- Perl学习资料打包(搜集整理By mwm5) (1)
• 2010年01月30日 -- Firefox插件-Autopager-网页/论坛自动翻页插件 (1)
• 2010年01月28日 -- Perl常用模块使用例子(转载)3 (1)
• 2010年01月27日 -- 留言 (1)

解决的办法是将Firefox更新到3.6版本，
点击 帮助-检查更新，进行升级，或从官方下载安装http://www.mozillaonline.com/

但是Firefox3.6出来时间还比较短，将Firefox更新到3.6版本之后，在3.5.7下可以使用的一些插件会无法正常使用，比如迅雷下载插件等

所以如果使用情况正常，建议暂时不要将firebug 更新到最新版本，并使用3.5.7版本的firefox

注：如果已经不小心将firebug更新到1.5版本，导致firefox不断自动关闭，可以将firefox更新到3.6版本，之后再覆盖安装firefox 3.5.7版本。这样firebug 1.5可以正常使用，firefox 3.5.7上之前可以用的插件也都可以正常使用，呵呵。此法在Windows xp sp3上测试成功！

firefox 3.5.7下载地址：http://www.mozilla.com/en-US/firefox/all-older.html

相关日志

• 2010年01月30日 -- Firefox插件-Autopager-网页/论坛自动翻页插件 (1)

谷歌黑板报上的消息：
谷歌译者工具包新增对 285 种语言的支持

近日，我们为谷歌译者工具包进行了大规模的升级，一口气新增了包括大量小语种在内的 285 种语言，从而使支持的语言总数达到了 345 种。现在，谷歌译者工具包的用户可以随心所欲地在 10664 个语言对之间进行互译。同时，我们还把界面语言推广到 35 种，从而使更多的用户可以在自己母语界面上使用译者工具包。

视频介绍

相关日志

• 2010年01月25日 -- Perl文档(perldoc)翻译计划 (1)

An error occurred while attempting to change the state of the virtual machine vmname .
‘ vmname ’ failed to initialize.
Failed to read or update VM configuration.

An error occurred while attempting to change the state of virtual machine vmname .
” VMName ” failed to initialize
An attempt to read or update the virtual machine configuration failed.
” VMName ” failed to read or update the virtual machine configuration: Unspecified error (0×80040005).

The virtual machine could not be started because the hypervisor is not running

Unsupported Guest OS

An error has occurred:  The specified program requires a newer version of Windows.

· The requested operation cannot be performed on a file with a user-mapped section open. ( 0×800704C8 )

· ‘VMName’ Microsoft Synthetic Ethernet Port (Instance ID

{7E0DA81A-A7B4-4DFD-869F-37002C36D816}): Failed to Power On with Error ‘The specified network resource or device is no longer available.’ (0×80070037).

· The I/O operation has been aborted because of either a thread exit or an application request. (0×800703E3)

‘General access denied error’ (0×80070005).

Log Name: Microsoft-Windows-Hyper-V-VMMS-Admin

Source: Microsoft-Windows-Hyper-V-VMMS

Event ID: 10104

Level: Error

Description:

Failed to revert to VSS snapshot on one or more virtual hard disks of the virtual machine ‘%1′. (Virtual machine ID %2)

A Server error occurred while attempting to import the virtual machine. Failed to import the virtual machine from import directory <Directory Path>. Error: One or more arguments are invalid (0×80070057).

·An Event ID 1054 is logged to the Application Event log:

Event ID: 1054
Source: Userenv
Type: Error
Description:
Windows cannot obtain the domain controller name for your computer network. (The specified domain either does not exist or could not be contacted). Group Policy processing aborted.

附件下载：
本文的Word版本
英文原文

相关日志

• 2010年01月25日 -- 百度”被黑”后的临时解决办法 (0)
• 2010年01月25日 -- 借助Fastcopy删除特殊名称的顽固文件和文件夹 (0)

perlfaq             Perl frequently asked questions
perlfaq1          General Questions About Perl
perlfaq2          Obtaining and Learning about Perl
perlfaq3          Programming Tools
perlfaq4          Data Manipulation
perlfaq5          Files and Formats
perlfaq6          Regexes
perlfaq7          Perl Language Issues
perlfaq8          System Interaction
perlfaq9          Networking

Reference Manual
perlsyn             Perl syntax
*perldata            Perl data structures
perlop              Perl operators and precedence
*perlsub             Perl subroutines
perlfunc            Perl built-in functions
#perlopentut       Perl open() tutorial
perlpacktut       Perl pack() and unpack() tutorial
perlpod             Perl plain old documentation
perlpodspec         Perl plain old documentation format specification
perlrun             Perl execution and options
perldiag            Perl diagnostic messages
perllexwarn         Perl warnings and their control
perldebug           Perl debugging
#perlvar             Perl predefined variables
perlre              Perl regular expressions, the rest of the story
perlrebackslash     Perl regular expression backslash sequences
perlrecharclass     Perl regular expression character classes
perlreref           Perl regular expressions quick reference
perlref             Perl references, the rest of the story
perlform            Perl formats
#perlobj             Perl objects
perltie             Perl objects hidden behind simple variables
perldbmfilter     Perl DBM filters

perlipc             Perl interprocess communication
perlfork            Perl fork() information
perlnumber          Perl number semantics
perlthrtut          Perl threads tutorial
perlothrtut       Old Perl threads tutorial
perlport            Perl portability guide
perllocale          Perl locale support
perluniintro        Perl Unicode introduction
perlunicode         Perl Unicode support
perlunifaq          Perl Unicode FAQ
perlunitut          Perl Unicode tutorial
perlebcdic          Considerations for running Perl on EBCDIC platforms
perlsec             Perl security
perlmod             Perl modules: how they work
perlmodlib          Perl modules: how to write and use
perlmodstyle        Perl modules: how to write modules with style
perlmodinstall      Perl modules: how to install from CPAN
perlnewmod          Perl modules: preparing a new module for distribution
perlpragma          Perl modules: writing a user pragma
perlutil            utilities packaged with the Perl distribution
perlcompile         Perl compiler suite intro
perlfilter          Perl source filters
*perlglossary        Perl Glossary
Internals and C Language Interface
perlhack            Perl hackers guide
perlrepository      Perl source repository
Miscellaneous
perlbook            Perl book information
perlcommunity       Perl community information
perltodo            Perl things to do
perldoc             Look up Perl documentation in Pod format
Platform-Specific
perlwin32           Perl notes for Windows

相关日志

• 2010年01月26日 -- 谷歌译者工具包-Google Translator Toolkit (0)

其中主要有几个文件：

1、Global.ini 全局配置（所有的配置项目都可以在这里头找到，甚至是菜单里头没看到的）

2、Color Schemes.ini
定义颜色方案

3、SSH2.ini SSH2登录的一些配置选项

4、最近文件列表 SecureCRT.ini
顾名思义，SecureCRT为每个连接建立一个相应的配置文件，所有的连接配置文件都列在 SecureCRT.ini里头，可以理解成索引或者地址簿 ^_^

5、Sessions
目录下每项对应一个连接的配置文件

6、KnownHosts
这个文件夹里头是存放密钥的，玩*nix用过ssh登录的应该都知道用户目录下会有一个.ssh文件用来存放密钥，这个文件夹和.ssh功能类似

介绍完各个目录和文件了，剩下就是怎么利用好他们了。。
里头的选项都比较的容易看懂，不一一罗列了。。

如果遇到比较棘手的问题，比如菜单没有了（其实可以右键任务栏窗口图标-切换菜单栏）、或者是标题栏都没有了（这个功能菜单来里头没有）等等，都可以通过关闭SecureCRt软件，直接删除Global.ini 的方法来解决 ^_^

下次再打开软件的时候，会自动生成这个配置文件，所以不必担心软件会出错什么的！

相关日志

• 2010年01月25日 -- 借助Fastcopy删除特殊名称的顽固文件和文件夹 (0)

之后在最后添加以下几行保存、退出即可

220.181.43.129 news.baidu.com
121.14.88.76 www.baidu.com
220.181.43.128 zhidao.baidu.com
220.181.43.121 mp3.baidu.com
220.181.50.118 image.baidu.com
220.181.43.131 vedio.baidu.com
220.181.37.151 hi.baidu.com

相关日志

• 2010年01月25日 -- [译]Windows Server 2008 Hyper-V的热点问题（Q3） (0)

相对于直接复制或者剪切文件来说，这个软件最大的优点就是直观，而且安全
不用担心拷贝的时候离开了，然后某个文件出错，拷贝停在提示框那。。。回来之后文件还没有拷贝完。。

也不用担心网络拷贝的时候网络不稳定，造成数据同步失败。。

fastcopy的每次操作都会有相近的记录或者错误报告。。。

另外就是这个软件可以集成在资源管理器右键菜单下，可以完全取代系统自带的复制和粘贴甚至删除命令。。

这个工具的操作比系统自带的命令强大的地方不止以上说的日志和安全性方面

还体现在“免疫”特殊名称的文件或文件夹（比如点结尾的名称或者结尾是空格或其他字符的名称。。。如果名称末尾是点，最好用传统dos中的那种缩写的文件名。。比如argh~1这样）

如果你遇到有文件或者文件夹名称怪异，不能进行删除，拷贝，或者复制的时候，可以试一下这个软件！

相关日志

• 2010年01月25日 -- [译]Windows Server 2008 Hyper-V的热点问题（Q3） (0)
• 2010年01月25日 -- SecureCRT配置详解及使用技巧 (0)

Bringing up interface eth0: Device eth0 does not seem to be present, delaying initialization. [FAILED]

service network start的时候也是一样的提示。。。

lspci的时候可以看到

02：00.0 Ethernet controller: Advanced Micro Devices [AMD] 79c970 [PCnet32 LANCE](rev 10)

lsmod的时候可以看到

pcnet32 31476 0

这样看来的话，驱动程序应该没有什么问题

查了很多的资料，没有找到解决办法
后来找到这个帖子http://ephemeralvalue.com/?p=23

删除/etc/udev/rules.d/70-persistent-net.rules 后，重启机器后就ok了！

这个问题应该多见于Vmware中，猜想造成这个问题的原因应该是由于虚拟机是从另一个机器拷过来的，一个网卡被认作2个网卡了，70-persistent-net.rules中出现了2个mac地址的情况

原文内容如下：

Cloning Ubuntu Server 7.10 on VMware ESX
February 18, 2008, 2:49 pm

After cloning a virtual machine running Ubuntu Server 7.10 I found that it didn’t have any network available. Restarting networking gave:

sudo /etc/init.d/networking restart

* Reconfiguring network interfaces…
eth0: ERROR while getting interface flags: No such device
SIOCSIFADDR: No such device
eth0: ERROR while getting interface flags: No such device
SIOCSIFNETMASK: No such device
SIOCSIFBRDADDR: No such device
eth0: ERROR while getting interface flags: No such device
eth0: ERROR while getting interface flags: No such device
Failed to bring up eth0.

The problem lies in the fact that ethernet MAC addresses are cached. You need to remove a file to clear the cached value:

sudo rm /etc/udev/rules.d/70-persistent-net.rules

After a restart of your server you should have networking back again.

I also had to edit the following files to change the static ip addresses and hostname:

* /etc/hosts – change ip address and hostnames
* /etc/hostname – change hostname
* /etc/network/interfaces – change ip address

热评日志

• 2010年01月25日 -- Perl文档(perldoc)翻译计划 (1)
• 2010年01月25日 -- Perl学习资料打包(搜集整理By mwm5) (1)
• 2010年01月30日 -- Firefox插件-Autopager-网页/论坛自动翻页插件 (1)
• 2010年01月28日 -- Perl常用模块使用例子(转载)3 (1)
• 2010年01月27日 -- 留言 (1)

可以根据自己需要对目录等进行修改，改成带参数的批处理或者对特定目录操作的批处理

::将这个批处理放在目录下运行，将解压缩该目录及其子目录下的所有压缩files
::Written by mwm5 2009-11-03
::http://nkmis02.blog.51cto.com@echo off
::假定winrar软件安装于c盘默认目录下，如自定义目录安装，请修改该行
set rar="c:\Program Files\Winrar\rar.exe"
 
::默认对当前批处理文件所在文件夹及子文件夹操作，也可以自定义文件夹根目录
set srcdir="."
::set srcdir="E:\Perl学习资料打包(搜集整理By mwm5)"
 
::winrar命令行只支持对.rar操作，无奈ing~~
for /r %srcdir% %%i in (*.rar) do %rar% x -y "%%i" "%%~dpi" && del "%%i">nul

相关日志

• 2010年01月25日 -- 远程桌面连接日志脚本bat&vbs~3389也安全 (0)

热评日志

• 2010年01月25日 -- Perl文档(perldoc)翻译计划 (1)
• 2010年01月25日 -- Perl学习资料打包(搜集整理By mwm5) (1)
• 2010年01月30日 -- Firefox插件-Autopager-网页/论坛自动翻页插件 (1)
• 2010年01月28日 -- Perl常用模块使用例子(转载)3 (1)
• 2010年01月27日 -- 留言 (1)