国产精品亚洲专一区二区三区,亚洲伦理一二三四,亚洲一级毛片免费看

�l�计工程的源代码行数

weidagang2046 — Wed, 15 Nov 2006 15:56:00 GMT

$pattern_h = ' D:/work/ChineseChess/*.h ' ;
$pattern_cpp = ' D:/work/chineseChess/*.cpp ' ;

$count = 0 ;

@h = glob ( $pattern_h );
@cpp = glob ( $pattern_cpp );

foreach $file ( @h )
{
     open (FILE , $file );

     while ( $line = < FILE > )
    {
         $count ++ ;
    }
}

foreach $file ( @cpp )
{
     open (FILE , $file );

     while ( $line = < FILE > )
    {
         $count ++ ;
    }
}

print $count , " \n " ;

weidagang2046 2006-11-15 23:56 发表评论

Perl eval函数探讨

weidagang2046 — Sun, 27 Aug 2006 13:03:00 GMT

2006-8-27

Perl 作�ؓ(f��)一�U�脚本语�a�可以实时地生成和执行代码。这�U�特性可以把代码的编译推�q�到�q�行�Ӟ��所以又�U�Cؓ(f��)“动态代码”。另外， Perl 也如 Java �?/span> C++ 一��h��供了异常处理机制。本文将初步探讨 Perl 中实现动态代码和异常处理机制的函敎ͼ�(x��) eval 。如有错误不��I��Ƣ迎讨论和批评指正�?/span>

eval 函数可以看作�?/span> Perl 虚拟机，它的参数��是一�D?/span> Perl 代码。利�?/span> ’perldoc –f eval�?/font> 可以获取 eval 函数使用帮助�Q�其中介�l�了它的两种使用方式�Q?/span>

l eval EXPR

EXPR 是一个的表达式，例如�Q?/span>

eval "print $a" ;

eval 'print $a' . ', $b' ;

eval 1 + 3 ;

eval 'print ' . '$a + $b, "\n"' ;

eval $command;#$command = ‘print “hello Perl”�?/span>

eval $ARGV[0];

在执行时�Q?/span> Perl 解释器会(x��)首先解析表达式的��|��然后��表辑ּ��g��Z��?/span> Perl 语句插入当前执行上下文。所以，新生成的语句�?/span> eval 语句本��n��h��相同的上下文环境。这�U�方式中�Q�每�ơ执�?/span> eval 语句�Q�表辑ּ�都会(x��)被解析。所以，如果 eval EXPR 如果出现在��@环中�Q�表辑ּ�可能�?x��)被解析多次�?/span> eval 的这�U�方式��?/span> Perl 脚本�E�序能实时生成和执行代码�Q�从而实��C��“动态代码”�?/span>

l eval BLOCK

BLOCK 是一个代码块�Q�例如：(x��)

eval {print $a};

eval {$a = 1, $b = 2, $c = $a + $b};

与第一�U�方式不同， BLOCK 只会(x��)被解析一�ơ，然后整个插入当前 eval 函数所在的执行上下文。由于解析上的性能的优势，以及可以在编译时�q�行代码语法��查，�q�种方式通常被作�?/span> Perl 用来��Z��D�代码提供异常捕捉机�Ӟ��虽然前一�U�方式也可以�?/span>

按帮助的名称�Q�称 eval 的参数程序�ؓ(f��)“小�E�序�?/span> (mini-proggram) 。在两种方式中， eval 函数的返回值都是小�E�序的最后一条语句的��|��如果遇到 return 语句�Q�与子例�E�相同�?/span>

Script1:

#!/usr/bin/perl -w

push ( @program,'$i = 1;');

push ( @program,'$i = 3; $j = 2; $k = $i + $j');

push ( @program, '$i = 3; return 24; $k = $i + $j');

foreach $exp (@program)

{

$rtn =eval($exp);

print $rtn,"\n";

}

Output:

如果��程序中有语法错误、运行时错误遇到 die 语句�Q?/span> eval ��返�?/span> undef 。错误码被保存在 $@ 中�?/span>

Script2:

#!/usr/bin/perl -w

push ( @program, '$i = 3; die "error message"; $k = $i + $j');

foreach $exp (@program)

{

$rtn =eval($exp);

if ( ! defined ( $rtn))

{

print "Exception: " , $@,"\n";

}

else

{

print $rtn,"\n";

}

} ;

Output:

Exception: error message at (eval 1) line 1.

Script3:

#!/usr/bin/perl -w

# a run-time error

eval '$answer =' ; # sets $@

warn $@ if$@;

Output:

syntax error at (eval 1) line 2, at EOF

weidagang2046 2006-08-27 21:03 发表评论

如何捕捉CGI�E�序exception

weidagang2046 — Sat, 26 Aug 2006 01:07:00 GMT

用perl写cgi�E�序的时候，如果出现了问题，大多数都必须查看Web server的日志才能知道程序哪里出了错误，��面一般只�q�回500服务器错误，不能立刻获得错误的原因�?/p>

使用php的程序员��没有这个烦��|��因�ؓ(f��)php默认�?x��)将错误都打印到��面上。CGI�E�序里如何才能做到这一点呢�Q?/p>

CGI::Carp�q�个模块支持�q�个功能�Q�以下是例子�Q?/p>

				
						use CGI::Carp qw(fatalsToBrowser);
die "Bad error here";

详细请参�?a >CGI::Crap的在�U�手�?/p>

那如果是自己写的��单CGI�E�序�Q�不使用CGI.pm怎么办？以下是简单的�Ҏ(gu��)��......

原理��q?/h4>Perl 提供�?SIG �q�个�Ҏ(gu��)��的HASH�Q�通过定义信号响应函数�Q�可以捕捉die及一些warning的信息，�q�将�q�些信息打印到web��上。但��Z��可能早的加载这些代码，最好将信号捕捉代码攑ֈ�BEGIN块中�Q�这样就能保证程序一执行��先执行异常捕捉�q�段代码了�?

BEGIN {
     # fatal handler setting.
     $SIG{__DIE__} = $SIG{__WARN__} = \&some_func;
}

代码例子

以下是一个简单的例程�Q�定义了一个叫handler_fatal处理函数来处理意外错误信息�?

#!/usr/bin/perl -wuse strict

BEGIN {
     # fatal handler setting.
     $SIG{__DIE__} = $SIG{__WARN__} = \&handler_fatal;
}
# some perl code goes here
......

sub handler_fatal {
     print "Content-type: text/html\n\n";
     print "@_";
}

上面�q�段perl�E�序中，如果调用一个名�U�Cؓ(f��)abc();的子例程�Q�浏览器��看到如下的错误信息�Q?/p>

Undefined subroutine &main::abc called at /home/hzqbbc/cgi-bin/fatal.cgi line 8.

通过�q�个�Ҏ(gu��)��可以很��便的�q�行�E�序调试了。Extmail中的CGI.pm��是使用�c�M��的方法，可以捕捉die(), warn() �{�函��C�生的错误及系�l�的错误提示�?br />
from: http://www.hzqbbc.com/blog/arch/2005/05/aecgicexception.html

weidagang2046 2006-08-26 09:07 发表评论

weidagang2046 — Wed, 23 Aug 2006 04:50:00 GMT

File::Path module中的�Q?br />
mkpath(['/foo/bar/baz','blurfl/quux'],1,0711);
rmtree(['foo/bar/baz','blurfl/quux'],1,1);

weidagang2046 2006-08-23 12:50 发表评论

Perl Tips 2006/8/19

weidagang2046 — Sat, 19 Aug 2006 11:39:00 GMT

2 Perl language tips are met today.

1. a code snippet is as follows:

$code[$idx] =~ /^\s*(.+?)\s*$/;
$code[$idx] = $1;

Seem it's to extract the content without leading and tailing white space. But the (.+?) is still not understood.

2. a code snippet is as follows:

my $currentframe;
$currentframe = {
_pc_ => 0,
_func_ => 'main'
};

what's the type of $currentframe? handle to a hashtable?

Answer: $currentframe is a reference to an anonymous hash. Usage: $$currentframe{_pc_} or $currentframe->{_pc_}

weidagang2046 2006-08-19 19:39 发表评论

weidagang2046 — Thu, 17 Aug 2006 15:28:00 GMT

unlink 可以用通配�W?br />
       unlink LIST
   unlink  Deletes a list of files.  Returns the number of files success-
            fully deleted.

               $cnt = unlink ’a�? ’b�? ’c�?
               unlink @goners;
               unlink <*.bak>;

            Note: "unlink" will not delete directories unless you are supe-
            ruser and the -U flag is supplied to Perl.  Even if these con-
            ditions are met, be warned that unlinking a directory can
            inflict damage on your filesystem.  Use "rmdir" instead.

            If LIST is omitted, uses $_.

weidagang2046 2006-08-17 23:28 发表评论

weidagang2046 — Mon, 14 Aug 2006 09:36:00 GMT

# !/usr/bin/perl -w

@files = < d :/*> ;

print join ( " \n------\n " , @files );

weidagang2046 2006-08-14 17:36 发表评论

perl自带的介�l�图形界面的例子

weidagang2046 — Fri, 11 Aug 2006 04:21:00 GMT

�q�行widget命��o

weidagang2046 2006-08-11 12:21 发表评论

weidagang2046 — Thu, 10 Aug 2006 15:04:00 GMT

发信�? cm3 (cm3), 信区: Perl
�? �? windows 下的system命��o的后台运行求�?br />发信�? 水木�C�֌� (Thu Aug 10 14:45:04 2006), 站内

在linux下，可以用system("abc.exe -s=com1 &");来让abc.exe后台�q�行�?br />但在windows下，安装了activeperl�Q�怎么来实现类��g��上面的后台运行？谢了�Q�！�Q?br />
--

�?来源:·水木�C�֌� newsmth.net·[FROM: 219.237.6.*]

[本篇全文] [回复文章] [本篇作者：(x��)qcpassed] [回信�l�作�?/font>] [�q�入讨论�?/font>] [�q�回�剙��]

发信�? qcpassed (xiaoqiao), 信区: Perl
�? �? Re: windows 下的system命��o的后台运行求�?br />发信�? 水木�C�֌� (Thu Aug 10 14:57:43 2006), 站内

看看system("start abc.exe -s=com1 ");行么
�?�?cm3 (cm3) 的大作中提到: �?br />: 在linux下，可以用system("abc.exe -s=com1 &");来让abc.exe后台�q�行�?/span>
: 但在windows下，安装了activeperl�Q�怎么来实现类��g��上面的后台运行？谢了�Q�！�Q?/span>

--

�?来源:·水木�C�֌� http://newsmth.net·[FROM: 159.226.43.*]

[本篇全文] [回复文章] [本篇作者：(x��)cm3] [回信�l�作�?/font>] [�q�入讨论�?/font>] [�q�回�剙��]

发信�? cm3 (cm3), 信区: Perl
�? �? Re: windows 下的system命��o的后台运行求�?br />发信�? 水木�C�֌� (Thu Aug 10 16:32:52 2006), 站内

可以�Q�非帔R��常感谢！�Q�！
�?�?qcpassed (xiaoqiao) 的大作中提到: �?br />: 看看system("start abc.exe -s=com1 ");行么

weidagang2046 2006-08-10 23:04 发表评论

Perl处理Unix命��o输出

weidagang2046 — Mon, 07 Aug 2006 13:34:00 GMT

# !/usr/bin/perl -w

open ( FILE , " ls -l | " );

while ( $line = < FILE > )
{
chop ( $line );
print $line , " \n " ;
}

close (FILE);

weidagang2046 2006-08-07 21:34 发表评论

weidagang2046 — Sat, 05 Aug 2006 14:09:00 GMT

大多数程序都不是孤立�?它们与它们的环境�怺�作用。很多的�E�序也需要通过文�g操作实现数据的存贮和交换。文件句�?file handle)是Perl�E�序中�ؓ(f��)�E�序和外部世界提供I/O�q�接的名�U�。徏议全部��用大写字母以�C�Z��变量�{�的区别。特别地�Q�也可以��STDIN/STDOUT/STDERR也认为是Perl的文件句柄，分别代表标准输入/标准输出/标准错误输出。�?

打开及关闭文件�?

　　Perl的文件操作与C语言极�ؓ(f��)�怼�。如�Q��?

open(FILENAME,"abc.txt");

　　该调用�ؓ(f��)��L��件打开�Q�若为写文�g而打开�Q�需在文件名前加上大于号�Q��?

open(FILENAME,">abc.txt");

　　若要�q�加��x��件尾�Q�可在文件名前加上两个大于号�Q��?

open(FILENAME,">>abc.txt");

　　以上三种open()格式在成功时�q�回真，��p�|时返回假。但�E�序中通常没有提示�Q�出错时往往�?x��)被��Z��忽略。通常当需要给出出错提�C�时�Q�可加入die()函数。例�Q��?

open(OUTFILE,">/tmp/outfile")||
die "出错�Q�不能徏�?tmp/outfile\n";

　　当只有open��p�|�Ӟ��才会(x��)执行die�l�出出错提示。�?

　　�Ҏ(gu��)��件句柄的操作完成后，可以用close操作�W�关闭文件。如�Q��?

close(OUTFILE);

-x 文�g��试

　　Perl的文件操作也可以先测试文件是否存在，是否可读写等。如�Q��?

$x="abc.txt";
if(-e $x) { #abc.txt是否存在�Q��?
# 存在操作
} else {
printf "文�g不存在。\n";
}

-e操作�W�测试文件或目录是否存在。�?

　　以下为文件测试清单：(x��)

文�g��试 ��试操作�W�提供的信息
-r 文�g或目录可读�?
-w 文�g或目录可写�?
-x 文�g或目录执行�?
-o 文�g或目录归用户所有�?
-R 文�g或目录对真正用户可读
-W 文�g或目录对真正用户可写
-X 文�g或目录对真正用户执行
-O 文�g或目录归真正用户所有�?
-e 文�g或目录存在�?
-z 文�g存在且大��ؓ(f��)0
-s 文�g或目录存在且不�ؓ(f��)0(�q�回字节�?
-f 文�g为普通文件�?
-d 文�g为目录�?
-l 文�g为符号链接�?
-p 文�g为命名管�?FIFO)
-S 文�g��Z��个套�?socket)
-b 文�g为块�Ҏ(gu��)��文�g
-c 文�g为字�W�特�D�文件�?
-t 打开tty控制台的文�g句柄
-u 文�g或目录是讄��用户ID号�?
-g 文�g或目录是讄��用户�l�ID号�?
-k 文�g或目录的sticky位置位�?
-T 文�g是文本文件�?
-B 文�g是二�q�制文�g
-M 以天为单位的存在旉��
-A 以天为单位访问时闾b?
-C 以天为单位同代码更改旉��

删除文�g

　　Perl的unlink()操作�W�可实现删除文�g。如�Q��?

unlink("abc.txt"); #删除abc.txt

文�g重命名�?

　　Perl的rename()操作�W�可实现文�g重命名。如�Q��?

rename("abc","zmd")||die "出错,不能更名";

　　此时��abc更名为zmd�Q�成功返回真�Q�否则给出出错提�C�。�?

目录操作

　　Perl中处理目录非常类��g��处理文�g。�?

　　打开目录句柄�Q��?

opendir(ETC,"/etc")||die "出错,不能打开目录";

　　关闭目录句柄�Q��?

closedir(ETC);

　　创徏目录�Q��?

mkdir("zmd",0777)||die "不能创徏zmd目录";

　　0777为内部权限格式。�?

　　删除目录�Q��?

rmdir("zmd")||die "不能删除zmd目录"�?/font>

weidagang2046 2006-08-05 22:09 发表评论

��L��Ҏ(gu��)��字符

weidagang2046 — Tue, 23 May 2006 01:09:00 GMT

perl - pi " *.orig " - e " s/[\cM\c@]//g " file

weidagang2046 2006-05-23 09:09 发表评论

30 个子�q�程来�ƈ行下载不同的链接

weidagang2046 — Sun, 21 May 2006 12:37:00 GMT

   use LWP :: Simple;
   use Parallel :: ForkManager;



   @links = (
    [ " http://www.foo.bar/rulez.data " , " rulez_data.txt " ] ,
    [ " http://new.host/more_data.doc " , " more_data.doc " ] ,

  );



   # 同时使用 30 个进�E?/span>
   my $pm = new Parallel :: ForkManager( 30 );

   foreach my $linkarray ( @links ) {
     $pm -> start and next ; # 开始 fork

     my ( $link , $fn ) = @ $linkarray ;
     warn " Cannot get $fn from $link "
       if getstore( $link , $fn ) != RC_OK;

     $pm -> finish; # do the exit in the child process
  }
   $pm -> wait_all_children;

首先通过 new 来初始化一�?ForkManager 对象�Q�同时必��L��明最大进�E�数。如果��?0 的话��可以避�?fork 来达到调试程序的作用�?/p>

然后使用 $pm->start 来开�?fork�?$pm 在子�q�程时返�?0 ,父进�E�时�q�回子进�E�的�q�程��P��具体请参�?Perl �?fork 文档�Q�。“and next�?用来跌��父进�E�。注意：(x��)如果 fork ��p�|的话�Q?$pm->start ��提�C�错误，�E�序�l�束�?/p>

$pm->finish �l�束子程序（假设我们一开始��用了 start �?fork�Q?/p>

注意�Q�在子进�E�中不能使用 $pm->start�?如果你想在子�q�程中��用另外一�l�子�q�程�Q�你必须再初始化一�?Parallel::ForkManager 对象�?br />
from: http://www.perlchina.org/archive/archive.php?action=archive&page=44

weidagang2046 2006-05-21 20:37 发表评论

weidagang2046 — Sun, 21 May 2006 12:29:00 GMT

     sub ping_a_host {
       my $host = shift ;
      `ping - i 1 - c 1 $host 2 >/ dev / null` =~ / 0 packets rec / ? 0 : 1 ;
    }

     my %pid_to_host ;
     my %host_result ;

     sub wait_for_a_kid {
       my $pid = wait ;
       return 0 if $pid < 0 ;
       my $host = delete $pid_to_host { $pid }
        or warn ( " Why did I see $pid ($?)\n " ) , next ;
       warn " reaping $pid for $host\n " ;
       $host_result { $host } = $ ? ? 0 : 1 ;
       1 ;
    }

     my @hosts = map " 10.0.1.$_ " , " 001 " .. " 254 " ;

     for ( @hosts ) {
      wait_for_a_kid() if keys %pid_to_host > 10 ;
       if ( my $pid = fork ) {
         # # parent does
         $pid_to_host { $pid } = $_ ;
         warn " $pid is processing $_\n " ;
      } else { # child does
        ## child does
         exit ! ping_a_host( $_ );
      }
    }

     # # final reap:
     1 while wait_for_a_kid();

     for ( sort keys %host_result ) {
       print " $_ is " , ( $host_result { $_ } ? " good " : " bad " ) , " \n " ;
    }

from: http://www.perlchina.org/archive/archive.php?action=archive&page=44

weidagang2046 2006-05-21 20:29 发表评论

Perl 模块多��^��C��安装�Ҏ(gu��)��

weidagang2046 — Tue, 16 May 2006 10:01:00 GMT

Perl ��C��W�五版增加了模块的概念，用来提供面向对象�~�程的能力。这�?Perl 语言发展史上的一个里�E�碑。此后，�q�大自由软�g爱好者开发了大量功能强大、构思精巧的 Perl 模块�Q�极大地扩展�?Perl 语言的功能。CPAN�Q�Comprehensive Perl Archive Network�Q�是 Perl 模块最大的集散圎ͼ�包含了现今公布的几乎所有的 perl 模块�?

几个主要�?CPAN 站点有：(x��)

国内�Q?br />最新更新请查阅 http://cpan.org/SITES.html#Asia

ftp://mirrors.hknet.com/CPAN 模块镜像
http://mirrors.dayouit.com/CPAN/ �|�页镜像
http://cpan.linuxforum.net/ �|�页镜像

国外�Q?

http://www.cpan.org/

安装�Ҏ(gu��)��

我在�q�里介绍一下各�U��^��C�� perl 模块的安装方法。以安装DBI模块��Z��?/p>

Linux/Unix下的安装�Ҏ(gu��)��Q?/strong>

Linux/Unix 下安�?Perl 模块有两�U�方法：(x��)手工安装和自动安装。第一�U�方法是�?CPAN 上下载�?zh��n)�需要的模块�Q�手工编译、安装。第二种�Ҏ(gu��)��是��?CPAN 模块自动完成下蝲、编译、安装的全过�E��?/p>

手工安装的步骤：(x��)

�?CPAN 下蝲�?DBI 模块 1.13 版的压羃文�g DBI-1.13.tar.gz�Q�假设放�?/usr/local/src/ 下�?

cd /usr/local/src

解压�~�这个文�?�q�时�?x��)新��Z��个DBI-1.13的目录�?br />
tar xvzf DBI-1.13.tar.gz

换到解压后的目录�Q?cd DBI-1.13

生成 makefile�Q?code>perl Makefile.PL

生成模块�Q?code>make

��试模块�Q�这步可有可无）�Q?make test
如果��试�l�果报告“all test ok”，�(zh��n)�就可以攑ֿ�地安装编译好的模块了�?

安装模块前，先要��保�(zh��n)�对 perl5 安装目录有可写权限（通常�?su 命��o获得�Q�，执行�Q?br />
make install

现在�Q�试�?DBI 模块吧。如果下面的命��o没有�l�出��M��输出�Q�那��没问题�?br />$>perl -MDBI -e1

上述步骤适合�?Linux/Unix 下绝大多数的 Perl 模块。可能还有少数模块的安装�Ҏ(gu��)��略有差别�Q�所以最好先看看安装目录里的 README �?INSTALL�?

使用 CPAN 模块自动安装�Q?br />安装前需要先联上�|�，�q�且�(zh��n)�需要取得root权限�?

perl -MCPAN -e shell

初次�q�行CPAN旉��要做一些设�|�，如果�(zh��n)�的机器是直接与因特�|�相联（拨号上网、专�U�，etc.�Q�，那么一路回车就行了�Q�只需要在最后一步选一个离�(zh��n)�最�q�的 CPAN 镜像站点。例如我选的是位于国内的ftp://mirrors.hknet.com/CPAN 。否则，如果�(zh��n)�的机器位于防火墙之后，�q�需要设�|�ftp代理或http代理。下面是常用 ppm 命��o�?

获得帮助
cpan>help

列出CPAN上所有模块的列表
cpan>m

安装模块�Q�自动完成DBI模块从下载到安装的全�q�程�?br />cpan>install DBI

退�?br />cpan>quit

Win32下的安装�Ҏ(gu��)��Q?/strong>

�?Win32 下，��使用 Active State �?Perl for Win32�Q�即Active Perl。Active Perl 的主��在�Q?br />http://www.activestate.com/ �?br />�?Win32 下，比较�Ҏ(gu��)��的是使用专门�?Active Perl? 定制�?Perl 模块。类��g�� CPAN 模块�Q?span class="newWikiWord">Active State也开发了一个自动安装工具叫�?/span>PPM�Q�Perl Package Manager�Q��?/p>

最通常的安装方法是�Q?

首先联上�|�，�?dos 命��o行下启动 ppm
ppm

获得帮助
PPM>h

列出已安装的 DBI 模块信息
cpan>query DBI

搜烦 cpan 所有匹�?DBI 的模�?br />cpan>search DBI

安装模块�Q�自动完�?DBI 模块从下载到安装的全�q�程�?br />PPM>install DBI

退�?br />PPM>q

如果�(zh��n)�的机器位于防火墙之后，通过 http 代理上网�Q�那么可以��用下面的�Ҏ(gu��)��?

讑֮�环境变量 HTTP_proxy
C: \ > set HTTP_proxy=http://proxy:8080
如果你的代理需要用户名和密码，你还要设定环境变�? HTTP_proxy_user �?HTTP_proxy_pass

安装 activeperl 不包括的模块
如果 ppm 没有某个 CPAN 的模块，只要�q�个模块不需要编译（没有使用 C �{�）那你可以把这个模块从 CPAN 下蝲�Q�解压然后放��C��?activeperl 的库路径里， perl -e "print join ' ' @INC" 昄��?perl 的库路径�?

activeperl 里不包括所有的 CPAN 模块�Q�其他地方可能提供这些模块的下蝲�Q?
比如�?activeperl 5.8 �?GD 模块安装请��用如下命令：(x��)
>ppm install http://theoryx5.uwinnipeg.ca/ppms/GD.ppd
activeperl 5.6 �?GD 模块安装请��用如下命令：(x��)
>ppm install http://theoryx5.uwinnipeg.ca/ppmpackages/GD.ppd
其他 activeperl 模块下蝲地址请参�?Perl学习(f��n)指南 �?

以上较�ؓ(f��)详细地描�q�C��各种�q�_��?Perl 模块的安装方法。希望能够帮助国�?Perl 爱好者们通过使用现有大量优秀�?Perl 模块�Q�避免重复劳动，提高效率�Q�更好发�?Perl 语言的强大威力�?br />
from: http://www.perlchina.org/archive/archive.php?action=archive&page=51

weidagang2046 2006-05-16 18:01 发表评论

How can I use Perl interactively?

weidagang2046 — Mon, 08 May 2006 16:35:00 GMT
The easiest way to do this is to run Perl under its debugger. If you have no program to debug, you can invoke the debugger on an `empty' program like this:
perl -de 0
(The more positive hackers prefer perl -de 1. :-)
Now you can type in any legal Perl code, and it will be immediately evaluated. You can also examine the symbol table, get stack backtraces, check variable values, and if you want to, set breakpoints and do the other things you can do in a symbolic debugger.

from: http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q3.1.html

weidagang2046 2006-05-09 00:35 发表评论

ref函数判断变量是何�U�类型的引用

weidagang2046 — Mon, 08 May 2006 16:16:00 GMT

    ref EXPR
    ref     Returns a non-empty string if EXPR is a reference, the empty
            string otherwise. If EXPR is not specified, $_ will be used. The
            value returned depends on the type of thing the reference is a
            reference to. Builtin types include:

                SCALAR
                ARRAY
                HASH
                CODE
                REF
                GLOB
                LVALUE

            If the referenced object has been blessed into a package, then
            that package name is returned instead. You can think of "ref" as
            a "typeof" operator.

                if (ref($r) eq "HASH") {
                    print "r is a reference to a hash.\n";
                }
                unless (ref($r)) {
                    print "r is not a reference at all.\n";
                }
                if (UNIVERSAL::isa($r, "HASH")) { # for subclassing
                    print "r is a reference to something that isa hash.\n";
                }

            See also perlref.

weidagang2046 2006-05-09 00:16 发表评论

删除某目录下最后修�Ҏ(gu��)��期大于X天的文�g

weidagang2046 — Sun, 30 Apr 2006 16:47:00 GMT

use strict;
use warnings;

@ARGV > 0 || die " Usage: perl file_checker.pl [dir]\n " ;

opendir (DIR , $ARGV [ 0 ]) || die " Can't open directory: $!\n " ;

my @file_list = readdir (DIR);

foreach my $file ( @file_list )
{
     $file = " $ARGV[0]/$file " ;
     if ( - f $file )
    {
         if ( - M $file > 100 )
        {
             print $file , " \n " ;
             unlink $file ;
        }
    }
}

closedir (DIR);

weidagang2046 2006-05-01 00:47 发表评论

k1205 extractor

weidagang2046 — Sun, 30 Apr 2006 08:19:00 GMT

$arg_num = @ARGV ;

( $arg_num == 1 ) || die ( " usage: perl $0 [file]\n " );

open (FH , $ARGV [ 0 ]) || die ( " Failed to open $ARGV[0]\n " );

$flag = 0 ;
$begin_symbol = ' |HEX |0 |1 |2 |3 |4 |5 |6 |7 |8 |9 |A |B |C |D |E |F | ' ;

while ( $line = < FH > )
{
     chop ( $line );
     if ( 1 != $flag || $line =~ /^\| 0 \ s{ 3 } \|/ )
    {
         $flag = 1 ;
         @bytes = split ( /\|/, $line );
         for ( $i = 2 ; $i < @bytes ; $i ++ )
        {
             push ( @data , $bytes [ $i ]);
        }
    }
}

# print join(" ", @data), "\n";

$beginOffset = 3 ;
$group = 3 ;

$group = 3 - $group ;

$pattern1 = 0x1 << ( 2 * $group );
$pattern2 = 0x2 << ( 2 * $group );

$count = 0 ;

for ( $i = $beginOffset ; $i < @data ; $i += 4 )
{
     $num = 0 ;
     for ( $j = 0 ; $j < 4 ; $j ++ )
    {
         $part [ $j ] = (( hex ( $data [ $i + $j ]) & ( 0x1 << ( 2 * $group ))) >> ( 2 * $group ) << 1 ) |
                    (( hex ( $data [ $i + $j ]) & ( 0x2 << ( 2 * $group ))) >> ( 2 * $group ) >> 1 );
         $num = ( $num << 2 ) | $part [ $j ];
    }

     if ( $num < 16 )
    {
         print " 0 " ;
    }
     printf " %x " , $num ;
     if ( ++ $count % 16 == 0 )
    {
         print " \n " ;
    }
}

close (FH);

weidagang2046 2006-04-30 16:19 发表评论

��某目录下（包括子目录）的所�?c文�g重命名�ؓ(f��).cpp文�g

weidagang2046 — Thu, 30 Mar 2006 03:29:00 GMT

# !/usr/bin/perl -w

use File :: Find;

@ARGV > 0 || die " usage:\nperl $ [directory] " ;

$dir = $ARGV [ 0 ];

find( \& traverse , $dir );

sub traverse
{
     print $_ , " \n " ;
     if ( - f $_ && $_ =~ / ( .* ) . c$ / )
    {
         print " rename $_ to $1.cpp " , " \n " ;
         rename $_ , " $1.cpp " ;
    }
}

weidagang2046 2006-03-30 11:29 发表评论

eval

weidagang2046 — Tue, 28 Mar 2006 15:03:00 GMT

# !/usr/bin/perl -w

push ( @program , ' $i = 1; ' );
push ( @program , ' print "The number is ", $i; ' );

foreach $exp ( @program )
{
     eval ( $exp );
}

weidagang2046 2006-03-28 23:03 发表评论

weidagang2046 — Sun, 26 Mar 2006 09:30:00 GMT

# !/usr/bin/perl -w

$file_pattern = ' f:/tmp/*.pl ' ;

@file_list = glob ( $file_pattern );

foreach $file ( @file_list )
{
     print $file , " \n " ;
}

weidagang2046 2006-03-26 17:30 发表评论

weidagang2046 — Sat, 25 Mar 2006 15:24:00 GMT
[版权声明]
　　
　　Copyright(c) 1999
　　　　
　　本教�E�由*葫芦�?��译�Q��ƈ做了适当的修改，可以自由的用于非商业目的�?br />　　但Redistribution时必��L��贝本[版权声明]。　　　　　　

[BUG]

　　有不��部分，��译的时候不能作到“信�Q�达”。当然了�Q��Q何时候都没有做到“雅”，希望各位谅解�?br />
[原著]
　
　　Don Libes: National Institute of Standards and Technology
　　　　libes@cme.nist.gov

[目录]
　　
　　1.摘要
　　2.关键�?br />　　3.��?br />　　4.Expect�l�D��
　　5.callback
　　6.passwd 和一致性检�?br />　　7.rogue 和伪�l�端
　　8.ftp
　　9.fsck
　　10.多进�E�控�Ӟ��(x��)作业控制
　　11.交互式��用Expect
　　12.交互式Expect�~�程
　　13.非交互式�E�序的控�?br />　　14.Expect的速度
　　15.安全斚w��的考虑
　　16.Expect资源
　　17.参考书�c?br />
1.[摘要]

　 ��C��的Shell对程序提供了最��限度的控制(开始，停止�Q�等�{?�Q�而把交互的特性留�l�了用户�?�q�意味着有些�E�序�Q�你不能非交互的�q�行�Q�比如说passwd�?有一些程序可以非交互的运行，但在很大�E�度上��׃��灉|��性，比如说fsck。这表明Unix的工��h��造逻辑开始出现问题。Expect恰恰填补了其中的一些裂痕，解决了在Unix环境中长期存在着的一些问题�?br />
　 Expect使用Tcl作�ؓ(f��)语言核心。不仅如此，不管�E�序是交互和�q�是非交互的�Q�Expect都能�q�用。这是一个小语言和Unix的其他工具配合�v来��生强大功能的�l�典例子�?br />　
　本部分教�E��ƈ不是有关Expect的实玎ͼ�而是关于Expect语言本��n的��用，�q�主要也是通过不同的脚本描�q�C��子来体现。其中的几个例子�q�例证了Expect的几个新特征�?br />　
2.[关键字]
　　
　　Expect,交互�Q�POSIX,�E�序化的对话�Q�Shell,Tcl,Unix;

3.[��介]
　
　　一个叫做fsck的Unix文�g�pȝ��查程序，可以从Shell里面�?y或�?n选项来执行。　在手册[1]里面�Q?y选项的定义是象这��L(f��ng)��?br />
　　“对于fsck的所有问题都假定一个“yes”响应；在这样��用的时候，必须特别的小心，因�ؓ(f��)它实际上允许�E�序无条件的�l�箋�q�行�Q�即使是遇到了一些非�怸�重的错误�?br />　　
　　相比之下�Q?n选项��安全的多，但它实际上几乎一点用都没有。这�U�接口非常的�p�糕�Q�但是却有许多的�E�序都是�q�种风格。　文�g传输�E�序ftp有一个选项可以��止交互式的提问�Q�以便能从一个脚本里面运行。但一旦发生了错误�Q�它没有提供的处理措施�?br />
　　Expect是一个控制交互式�E�序的工兗��他解决了fsck的问题，用非交互的方式实��C��所有交互式的功能。Expect不是特别为fsck设计的，它也能进行类似ftp的出错处理�?br />
　　fsck和ftp的问题向我们展示了象sh,csh和别的一些shell提供的用��h��口的局限性。　Shell没有提供从一个程序读和象一个程序写的功能。这意味着shell可以�q�行fsck但只能以牺牲一部分fsck的灵�z�L��做代�h(hu��n)。有一些程序根本就不能被执行。比如说�Q�如果没有一个用��h��口交互式的提供输入，��没法运行下厅R��其他还有象Telnet,crypt,su,rlogin�{�程序无法在shell脚本里面自动执行。还有很多其他的应用�E�序在设计是也是要求用户输入的�?br />
　　Expect被设计成专门针和交互式程序的交互。一个Expect�E�序员可以写一个脚本来描述�E�序和用��L(f��ng)��对话。接着Expect�E�序可以非交互的�q�行“交互式”的�E�序。写交互式程序的脚本和写非交互式�E�序的脚本一��L(f��ng)��单。Expect�q�可以用于对对话的一部分�q�行自动化，因�ؓ(f��)�E�序的控制可以在键盘和脚本之间进行切换�?br />
bes[2]里面有详�l�的描述。简单的��_��脚本是用一�U�解释性语�a�写的�?也有C和C++的Expect库可供��用，但这��出了本文的范围).Expect提供了创��Z��互式�q�程和读写它们的输入和输出的命��o。　Expect是由于它的一个同名的命��o而命名的�?br />
　　Expect语言是基于Tcl的。Tcl实际上是一个子�E�序库，�q�些子程序库可以嵌入到程序里从而提供语�a�服务。　最�l�的语言有点象一个典型的Shell语言。里面有�l�变量赋值的set命��o�Q�控制程序执行的if,for,continue�{�命令，�q�能�q�行普通的数学和字�W�串操作。当然了�Q�还可以用exec来调用Unix�E�序。所有这些功能，Tcl都有。Tcl在参考书�c?Outerhour[3][4]里有详细的描�q��?br />
　　Expect是在Tcl基础上创��v来的�Q�它�q�提供了一些Tcl所没有的命令。spawn命��o�Ȁ�z�M��个Unix�E�序来进行交互式的运行。　send命��o向进�E�发送字�W�串。expect命��o�{�待�q�程的某些字�W�串。　expect支持正规表达式�ƈ能同时等待多个字�W�串�Q��ƈ�Ҏ(gu��)��一个字�W�串执行不同的操作。expect�q�能理解一些特�D�情况，如超时和遇到文�g��?br />
　　expect命��o和Tcl的case命��o的风格很�怼�。都是用一个字�W�串��d��配多个字�W�串�?只要有可能，新的命��o��L��和已有的Tcl命��o�怼��Q�以使得该语�a�保持工具族的�l�承�?。下面关于expect的定义是从手册[5]上摘录下来的�?br />
　　　　　　expect　patlist1 action1 patlist2 action2.....

　　　　该命令一直等到当前进�E�的输出和以上的某一个模式相匚w��Q�或者等　　　　到时间超�q�一个特定的旉��长度�Q�或者等到遇��C��文�g的结束�ؓ(f��)止�?br />　　　　
　　　　如果最后一个action是空的，��可以省略它�?br />
　　　　每一个patlist都由一个模式或者模式的�?lists)�l�成。如果有一个模式匹配成功，相应的action��p��执行。执行的�l�果从expect�q�回�?br />　　　　被精��匹配的字符�?或者当��时发生�Ӟ��已经��d��但未�q�行匚w��的字�W�串)被存贮在变量expect_match里面。如果patlist是eof或者timeout,则发生文件结束或者超时时才执行相应的action.一般超时的时值是10�U�，但可以用�c�M��"set timeout 30"之类的命令把��时时��D��定�ؓ(f��)30�U��?br />　　　　
　　　　下面的一个程序段是从一个有关登录的脚本里面摘取的。abort是在脚本的别处定义的�q�程�Q�而其他的action使用�c�M��与C语言的Tcl原语�?br />
　　　　　　expect "*welcome*"　　　　　　　　break 　　　　
　　　　　　　　　　 "*busy*"　　　　　　　　{print busy;continue}
　　　　　　　　　 "*failed*"　　　　　　　　abort　
　　　　　　　　　 timeout　　　　　　　　abort

　　　　模式是通常的C Shell风格的正规表辑ּ�。模式必��d��配当前进�E�的从上一个expect或者interact开始的所有输�?所以统配符*使用的非�?的普遍。但是，一旦输��q?000个字节，前面的字�W�就�?x��)被忘记�Q�这可以通过讑֮�match_max的值来改变�?br />
　　expect命��o��实体现了expect语言的最好和最坏的性质。特别是�Q�expect命��o的灵�z�L��是以经常出��C�o��惑的语法做代仗��除了关键字模式(比如说eof,timeout)那些模式表可以包括多个模式。这保证提供了一�U�方法来区分他们。但是分开�q�些表需要额外的扫描�Q�如果没有恰当的用["]括�v来，�q�有可能�?x��)把和当成空白字�W�。由于Tcl提供了两�U�字�W�串引用的方法：(x��)单引和双引，情况变的更糟�?在Tcl里面�Q�如果不�?x��)出��C��义性话�Q�没有必要��用引�?。在expect的手册里面，�q�有一个独立的部分来解释这�U�复杂性。幸�q�的是：(x��)有一些很好的例子��g��L��了这�U�抱怨。但是，�q�个复杂性很有可能在��来的版本中再度出现。�ؓ(f��)了增强可��L��，在本文中�Q�提供的脚本都假定双引号是��够的�?br />
　　字符可以使用反斜杠来单独的引用，反斜杠也被用于对语句的�g�l�，如果不加反斜杠的话，语句��C��行的�l�尾处就�l�束了。这和Tcl也是一致的。Tcl在发现有开的单引号或者开的双引号旉��?x��)��l�扫描。而且�Q�分号可以用于在一行中分割多个语句。这乍听��h��有点让�h困惑�Q�但是，�q�是解释性语�a�的风��|��但是�Q�这��实是Tcl的不太漂亮的部分�?br />
5.[callback]

　　令�h非常惊讶的是�Q�一些小的脚本如何的产生一些有用的功能。下面是一个拨�?sh��)话��L(f��ng)��的脚本。他用来把收费反向，以便使得镉K��电(sh��)话对计算��贏V��这个脚本用�c�M��“expect callback.exp 12016442332”来�Ȁ�z�R��其中，脚本的名字便是callback.exp�Q��?1(201)644-2332是要拨的�?sh��)话��L(f��ng)��?br />
　　　　#first give the user some time to logout
　　　　exec sleep 4
　　　　spawn tip modem
　　　　expect "*connected*"
　　　　send "ATD [index $argv 1] "
　　　　#modem takes a while to connect
　　　　set timeout 60
　　　　expect "*CONNECT*"

　　�W�一行是注释�Q�第二行展示了如何调用没有交互的Unix�E�序。sleep 4�?x��)�ɽE�序��d��4�U�，以��得用��h��旉��来退出，因�ؓ(f��)modem��L��?x��)回叫用户已�l��用的�?sh��)话��L(f��ng)��?br />
　　下面一行��用spawn命��o来激�z�tip�E�序�Q�以便��得tip的输��够被expect所��d��Q��得tip能从send读输入。一旦tip说它已经�q�接上，modem��׃��(x��)要求��L��打大哥电(sh��)话号码�?假定modem都是贺氏兼容的，但是本脚本可以很�Ҏ(gu��)��的修�Ҏ(gu��)��能适应别的�c�d��的modem)。不论发生了什么，expect都会(x��)�l�止。如果呼叫失败，expect脚本可以设计成进行重试，但这里没有。如果呼叫成功，getty�?x��)在expect退出后��到DTR�Q��ƈ且向用户提示loging:�?实用的脚本往往提供更多的错误检��?�?br />
　　�q�个脚本展示了命令行参数的��用，命��o行参数存贮在一个叫做argv的表里面(�q�和C语言的风格很�?。在�q�种情况下，�W�一个元素就是电(sh��)话号码。方括号使得被括��h��的部分当作命令来执行�Q�结果就替换被括��h��的部分。这也和C Shell的风格很象�?br />
　　�q�个脚本和一个大�U?0K的C语言�E�序实现的功能相伹{�?br />　　　　

6.[passwd和一致性检查]

　　在前面，我们提到passwd�E�序在缺乏用户交互的情况下，不能�q�行�Q�passwd�?x��)忽略I/O重定向，也不能嵌入到��道里边以便能从别的�E�序或者文仉��d��输入。这个程序坚持要求真正的与用戯��行交互。因为安全的原因�Q�passwd被设计成�q�样�Q�但�l�果��D��没有非交互式的方法来��验passwd。这样一个对�pȝ��安全臛_��重要的程序竟然没有办法进行可靠的��验，真实��h��讽刺意味�?br />
　　passwd以一个用户名作�ؓ(f��)参数�Q�交互式的提�C��入密码。下面的expect脚本以用户名和密码作为参数而非交互式的�q�行�?br />
　　　　spawn oasswd [index $argv 1]
　　　　set password [index $argv 2]
　　　　expect "*password:"
　　　　send "$password "
　　　　expect "*password:"
　　　　send "$password "
　　　　expect eof

　　�W�一行以用户名做参数启动passwd�E�序�Q��ؓ(f��)方便赯��Q�第二行把密码存��C��个变量里面。和shell�c�M��Q�变量的使用也不需要提前声明�?br />
　　在第三行�Q�expect搜烦模式"*password:"�Q�其�?允许匚w��L��输入�Q�所以对于避免指定所有细节而言是非常有效的�?上面的程序里没有action,所以expect��到该模式后��q��l�运行�?br />
　　一旦接收到提示后，下一行就��把密码送给当前�q�程。表明回车�?实际上，所有的C的关于字�W�的�U�定都支�?。上面的�E�序中有两个expect-send序列�Q�因为passwd��Z��对输入进行确认，要求�q�行两次输入。在非交互式�E�序里面�Q�这是毫无必要的�Q�但�׃��假定passwd是在和用戯��行交互，所以我们的脚本�q�是�q�样做了�?br />
　　最后，"expect eof"�q�一行的作用是在passwd的输��Z��搜烦文�g�l�束�W�，�q�一行语句还展示了关键字的匹配。另外一个关键字匚w��是timeout了，timeout被用于表�C�所有匹配的��p�|而和一�D늉�定长度的旉��相匹配。在�q�里eof是非常有必要的，因�ؓ(f��)passwd被设计成�?x��)检查它的所有I/O是否都成功了�Q�包括第二次输入密码时��生的最后一个新行�?br />
　　�q�个脚本已经��_��展示passwd命��o的基本交互性。另外一个更加完备的例子回检查别的一些行为。比如说�Q�下面的�q�个脚本��p��查passwd�E�序的别的几个方面。所有的提示都进行了��查。对垃圾输入的检查也�q�行了适当的处理。进�E�死亡，��乎��d��的慢响应�Q�或者别的非预期的行为都�q�行了处理�?br />
　　　　spawn passwd [index $argv 1]
　　　　expect 　　　　eof　　　　　　　　　　　　{exit 1} 　　　　
　　　　　　　　timeout　　　　　　　　　　　　{exit 2}　　　　
　　　　　　　　"*No such user.*"　　　　{exit 3}　　　　
　　　　　　　　"*New password:"　　　　
　　　　send　"[index $argv 2 "
　　　　expect 　　　　eof　　　　　　　　　　　　{exit 4}　　　　
　　　　　　　　timeout　　　　　　　　　　　　{exit 2}　　　　
　　　　　　　　"*Password too long*"　　　　{exit 5}　　　　
　　　　　　　　"*Password too short*"　　　　{exit 5}　　　　
　　　　　　　　"*Retype ew password:"
　　　　send "[index $argv 3] "
　　　　expect 　　　　timeout　　　　　　　　　　　　{exit 2}　　　　
　　　　　　　　"*Mismatch*"　　　　　　　　{exit 6}　　　　
　　　　　　　　"*Password unchanged*"　　　　{exit 7}　　　　
　　　　　　　　" "　　　　　　　　
　　　　expect　　　　timeout　　　　　　　　　　　　{exit 2}　　　　
　　　　　　　　"*"　　　　　　　　　　　　{exit 6}　　　　
　　　　　　　　eof

　　　
　　�q�个脚本退出时用一个数字来表示所发生的情��c�?表示passwd�E�序正常�q�行�Q?表示非预期的��M��Q?表示锁定�Q�等�{�。��用数字是��Z��单�v见。expect�q�回字符串和�q�回数字是一��L(f��ng)��单的�Q�即使是�z��E�序自��n产生的消息也是一��L(f��ng)��。实际上�Q�典型的做法是把整个交互的过�E�存��C��个文仉��面，只有当程序的�q�行和预期一��L(f��ng)��时候才把这个文件删除。否则这个log被留待以后进一步的��查�?br />
　　�q�个passwd��查脚本被设计成由别的脚本来驱动。这�W�二个脚本从一个文仉��面读取参数和预期的结果。对于每一个输入参数集�Q�它调用�W�一个脚本�ƈ且把�l�果和预期的�l�果相比较�?因�ؓ(f��)�q�个��d��是非交互的，一个普通的老式shell��可以用来解释第二个脚本)。比如说�Q�一个passwd的数据文件很有可能就象下面一栗��?br />
　　　　passwd.exp　　　　3　　　　bogus　　　　-　　　　　　　　-
　　　　passwd.exp　　　　0　　　　fred　　　　abledabl　　　　abledabl
　　　　passwd.exp　　　　5　　　　fred　　　　abcdefghijklm　　　　-
　　　　passwd.exp　　　　5　　　　fred　　　　abc　　　　　　　　-
　　　　passwd.exp　　　　6　　　　fred　　　　foobar　　　　　　　　bar　　　　
　　　　passwd.exp　　　　4　　　　fred　　　　^C　　　　　　　　-

　　�W�一个域的名字是要被�q�行的回归脚本。第二个域是需要和�l�果相匹配的退出倹{��第三个域就是用户名。第四个域和�W�五个域��是提示时应该输入的密码。减号仅仅表�C�那里有一个域�Q�这个域其实�l�对不会(x��)用到。在�W�一个行中，bogus表示用户名是非法的，因此passwd�?x��)响应说�Q�没有此用户。expect在退出时�?x��)返�?�Q?恰好��是�W�二个域。在最后一行中�Q�^C��是被切实的送给�E�序来验证程序是否恰当的退出�?br />
　　通过�q�种�Ҏ(gu��)��Q�expect可以用来��验和调试交互式��Y�Ӟ��q�恰恰是IEEE的POSIX 1003.2(shell和工�?的一致性检验所要求的。进一步的说明请参考Libes[6]�?br />
7.[rogue 和伪�l�端]

　　Unix用户肯定寚w��过��道来和其他�q�程相联�pȝ��方式非常的熟�(zh��n)?比如��_��(x��)一个shell��道)。expect使用伪终端来和派生的�q�程相联�p�R��伪�l�端提供了终端语义以便程序认��Z��们正在和真正的终端进行I/O操作�?br />
　　比如��_��BSD的探险游戏rogue在生模式下运行，�q�假定在�q�接的另一端是一个可��d��的字�W�终端。可以用expect�~�程�Q��得通过使用用户界面可以玩这个游戏�?br />
　　rogue�q�个探险游戏首先提供�l�你一个有各种物理属性，比如说力量��|��的角艌Ӏ�在大部分时间里�Q�力量值都�?6�Q�但在几乎每20�ơ里面就�?x��)有一个力量值是18。很多的rogue玩家都知道这一点，但没有�h愿意启动�E�序20�ơ以获得一个好的配�|�。下面的�q�个脚本��p��辑ֈ��q�个目的�?br />
　　　　for {} {1} {} {
　　　　　　　　spawn rogue
　　　　　　　　expect "*Str:18*"　　　　break　　　　
　　　　　　　　　　　 "*Str:16*"　　　　
　　　　　　　　close
　　　　　　　　wait
　　　　}
　　　　interact

　　�W�一行是个for循环�Q�和C语言的控制格式很象。rogue启动后，expect��检查看力量值是18�q�是16�Q�如果是16�Q�程序就通过执行close和wait来退出。这两个命��o的作用分别是关闭和伪�l�端的连接和�{�待�q�程退出。rogue��d��一个文件结束符��推出，从而��@环��l�运行，产生一个新的rogue游戏来检查�?br />
　　当一个��gؓ(f��)18的配�|�找到后�Q�控制就推出循环�q�蟩到最后一行脚本。interact把控制�{�Uȝ��用户以便他们能够玩这个特定的游戏�?br />
　　惌��一下这个脚本的�q�行。你所能真正看到的��是20或�?0个初始的配置在不��C��U�钟的时间里掠过屏幕�Q�最后留�l�你的就是一个有着很好配置的游戏。唯一比这更好的方法就是��用调试工��h��玩游戏�?br />
　　我们很有必要认识到这样一点：(x��)rogue是一个��用光标的囑�Ş游戏。expect�E�序员必��M��解到�Q�光标的�q�动�q�不一定以一�U�直观的方式在屏�q�上体现。幸�q�的是，在我们这个例子里�Q�这不是一个问题。将来的对expect的改�q�可能会(x��)包括一个内嵌的能支持字�W�图形区域的�l�端模拟器�?br />
8.[ftp]

　　我们使用expect写第一个脚本�ƈ没有打印�?Hello,World"。实际上�Q�它实现了一些更有用的功能。它能通过非交互的方式来运行ftp。ftp是用来在支持TCP/IP的网�l�上�q�行文�g传输的程序。除了一些简单的功能�Q�一般的实现都要求用��L(f��ng)��参与�?br />
　　下面�q�个脚本从一个主��Z��使用匿名ftp取下一个文件来。其中，��L��名是�W�一个参数。文件名是第二个参数�?br />
　　　　　　　　spawn　　　　ftp　　　　[index $argv 1]
　　　　　　　　expect　"*Name*"
　　　　　　　　send　　　　　"anonymous "
　　　　　　　　expect　"*Password:*"
　　　　　　　　send [exec whoami]
　　　　　　　　expect "*ok*ftp>*"
　　　　　　　　send "get [index $argv 2] "
　　　　　　　　expect "*ftp>*"

　　上面�q�个�E�序被设计成在后台进行ftp。虽然他们在底层使用和expect�c�M��的机�Ӟ��但他们的可编�E�能力留待改�q�。因为expect提供了高�U�语�a��Q�你可以对它�q�行修改来满��你的特定需求。比如说�Q�你可以加上以下功能�Q?br />
　　　　�Q�坚持－�Q�如果连接或者传输失败，你就可以每分钟或者每��时�Q�甚
　　　　　　　　臛_��以根据其他因素，比如说用��L(f��ng)��负蝲�Q�来�q�行不定期的
　　　　　　　　重试�?br />　　　　�Q�通知�Q�－传输时可以通过mail,write或者其他程序来通知你，甚至
　　　　　　　　可以通知��p�|�?br />　　　　�Q�初始化�Q�每一个用户都可以有自��q��用高�U�语�a��~�写的初始化文�g
　　　　　　　　(比如��_��.ftprc)。这和C shell�?cshrc的��用很�c�M��?br />
　　expect�q�可以执行其他的更复杂的��d��。比如说�Q�他可以使用McGill大学的Archie�pȝ��。Archie是一个匿名的Telnet服务�Q�它提供�Ҏ(gu��)��q�Internet上可通过匿名ftp获取的文件的数据库的讉K��。通过使用�q�个服务�Q�脚本可以询问Archie某个特定的文件的位置�Q��ƈ把它从ftp服务器上取下来。这个功能的实现只要求在上面那个脚本中加上几行就可以�?br />
　　现在�q�没有什么已知的后台-ftp能够实现上面的几��功能，能不要说所有的功能了。在expect里面�Q�它的实现却是非常的��单。“坚持”的实现只要求在expect脚本里面加上一个��@环。“通知”的实现只要执行mail和write��可以了。“初始化文�g”的实现可以使用一个命令，source .ftprc�Q�就可以了，�?ftprc里面可以有�Q何的expect命��o�?br />
　　虽然�q�些特征可以通过在已有的�E�序里面加上钩子函数��可以，但这也不能保证每一个�h的要求都能得到满��뀂唯一能够提供保证的方法就是提供一�U�通用的语�a�。一个很好的解决�Ҏ(gu��)��是把Tcl自��n融入到ftp和其他的�E�序中间厅R��实际上�Q�这本来��是Tcl的初街��在�q�没有这样做之前�Q�expect提供了一个能实现大部分功能但又不需要�Q何重写的�Ҏ(gu��)��?br />
9.[fsck]

　　fsck是另外一个缺乏��够的用户接口的例子。fsck几乎没有提供什么方法来预先的回�{�一些问题。你能做的就是给所有的问题都回�{?yes"或者都回答"no"�?br />
　　下面的程序段展示了一个脚本如何的使的自动的对某些问题回答"yes"�Q�而对某些问题回答"no"。下面的�q�个脚本一开始先�z��fsck�q�程�Q�然后对其中两种�c�d��的问题回�{?yes"�Q�而对其他的问题回�{?no"�?br />
　　　　for {} {1} {} {
　　　　　　　　expect
　　　　　　　　　　　　eof　　　　　　　　break　　　　　　　　
　　　　　　　　　　　　"*UNREF FILE*CLEAR?"　　　　{send "r "}　　　　
　　　　　　　　　　　　"*BAD INODE*FIX?"　　　　{send "y "}　　　　
　　　　　　　　　　　　"*?"　　　　　　　　　　　　{send "n "}　　　　
　　　　}

　　在下面这个版本里面，两个问题的回�{�是不同的。而且�Q�如果脚本遇��C��什么它不能理解的东西，��׃��(x��)执行interact命��o把控制交�l�用戗��用��L(f��ng)��击键直接交给fsck处理。当执行完后�Q�用户可以通过�?+"键来退出或者把控制交还�l�expect。如果控制是交还�l�脚本了�Q�脚本就�?x��)自动的控制�q�程的剩余部分的�q�行�?br />
　　　　for {} {1} {}{
　　　　　　　　expect 　　　　　　　　　　　　
　　　　　　　　　　　　eof　　　　　　　　break　　　　　　　　
　　　　　　　　　　　　"*UNREF FILE*CLEAR?"　　　　{send "y "}　　　　
　　　　　　　　　　　　"*BAD INODE*FIX?"　　　　{send "y "}　　　　
　　　　　　　　　　　　"*?"　　　　　　　　　　　　{interact +}　　　　
　　　　}

　　如果没有expect�Q�fsck只有在牺牲一定功能的情况下才可以非交互式的运行。fsck几乎是不可编�E�的�Q�但它却是系�l�管理的最重要的工兗��许多别的工��L(f��ng)��用户接口也一��L(f��ng)��不��。实际上�Q�正是其中的一些程序的不��D��了expect的诞生�?br />
10.[控制多个�q�程�Q�作业控制]

　 expect的作业控制概�늲�巧的避免了通常的实现困难。其中包括了两个问题�Q�一个是expect如何处理�l�典的作业控�Ӟ��卛_��你在�l�端上按下^Z键时expect如何处理�Q�另外一个就是expect是如何处理多�q�程的�?br />
　对第一个问题的处理是：(x��)忽略它。expect对经典的作业控制一无所知。比如说�Q�你�z��了一个程序�ƈ且发送一个^Z�l�它�Q�它?y��u)�׃�?x��)停下�?�q�是伪终端的完美之处)而expect��׃��(x��)永远的等下去�?br />
　但是�Q�实际上�Q�这�Ҏ(gu��)��׃��成一个问题。对于一个expect脚本�Q�没有必要向�q�程发送^Z。也��是��_��没有必要停下一个进�E�来。expect仅仅是忽略了一个进�E�，而把自己的注意力转移到其他的地方。这��是expect的作业控制思想�Q�这个思想也一直工作的很好�?br />
　　从用��L(f��ng)��角度来看是象�q�样的：(x��)当一个进�E�通过spawn命��o启动�Ӟ��变量spawn_id��p��讄��成某�q�程的描�q�符。由spawn_id描述的进�E�就被认为是当前�q�程�?�q�个描述�W�恰恰就是伪�l�端文�g的描�q�符�Q�虽然用��h��它当作一个不透明的物�?。expect和send命��o仅仅和当前进�E�进行交互。所以，切换一个作业所需要做的仅仅是把该�q�程的描�q�符赋给spawn_id�?br />
　　�q�儿有一个例子向我们展示了如何通过作业控制来��两个chess�q�程�q�行交互。在�z��完两个进�E�之后，一个进�E�被通知先动一步。在下面的��@环里面，每一步动作都送给另外一个进�E�。其中，read_move和write_move两个�q�程留给读者来实现�?实际上，它们的实现非常的�Ҏ(gu��)��Q�但是，�׃��太长了所以没有包含在�q�里)�?br />
　　　　spawn chess　　　　　　　　　　　　;# start player one
　　　　set id1　　　　$spawn_id
　　　　expect "Chess "
　　　　send "first "　　　　　　　　　　　　;# force it to go first
　　　　read_move

　　　　spawn chess　　　　　　　　　　　　;# start player two
　　　　set id2　　　　$spawn_id
　　　　expect "Chess "
　　　　
　　　　for {} {1} {}{
　　　　　　　　send_move
　　　　　　　　read_move
　　　　　　　　set spawn_id　　　　$id1
　　　　　　　　
　　　　　　　　send_move
　　　　　　　　read_move
　　　　　　　　set spawn_id　　　　$id2
　　　　}

　　有一些应用程序和chess�E�序不太一��P��在chess�E�序里，的两个玩家轮��动。下面这个脚本实��C��一个冒充程序。它能够控制一个终端以便用戯��够登录和正常的工作。但是，一旦系�l�提�C��入密码或者输入用户名的时候，expect��开始把击键��C��来，一直到用户按下回�R键。这有效的收集了用户的密码和用户名，�q�避免了普通的冒充�E�序�?Incorrect password-tryagain"。而且�Q�如果用戯��接到另外一个主��Z��Q�那些额外的��d��也会(x��)被记录下来�?br />
　　　　spawn tip /dev/tty17　　　　　　　　;# open connection to
　　　　set tty $spawn_id　　　　　　　　;# tty to be spoofed

　　　　spawn login
　　　　set login $spawn_id

　　　　log_user 0
　　　　
　　　　for {} {1} {} {
　　　　　　　　set ready　[select $tty $login]
　　　　　　　　
　　　　　　　　case $login in $ready {
　　　　　　　　　　　　set spawn_id $login
　　　　　　　　　　　　expect 　　　　　　　　
　　　　　　　　　　　　　　{"*password*" "*login*"}{
　　　　　　　　　　　　　　　　　 send_user $expect_match
　　　　　　　　　　　　　　　　　 set log 1
　　　　　　　　　　　　　　　　 }　　　　
　　　　　　　　　　　　　 "*"　　　　　　　　;# ignore everything else
　　　　　　　　　　　　set spawn_id　　　　$tty;
　　　　　　　　　　　　send $expect_match
　　　　　　　　}
　　　　　　　　case $tty in $ready {
　　　　　　　　　　　　set spawn_id　　　　$tty
　　　　　　　　　　　　expect "* *"{
　　　　　　　　　　　　　　　　　　　　if $log {
　　　　　　　　　　　　　　　　　　　　　 send_user $expect_match
　　　　　　　　　　　　　　　　　　　　　 set log 0
　　　　　　　　　　　　　　　　　　　　}
　　　　　　　　　　　　　　　　　　 }　　　　
　　　　　　　　　　　　　　　　"*"　{
　　　　　　　　　　　　　　　　　　　　send_user $expect_match
　　　　　　　　　　　　　　　　　　 }
　　　　　　　　　　　　set spawn_id 　　　　$login;
　　　　　　　　　　　　send $expect_match
　　　　　　　　}
　　　　}
　　　　　　　　

　　 �q�个脚本是这样工作的。首先连接到一个login�q�程和终端。缺省的�Q�所有的对话都记录到标准输出�?通过send_user)。因为我们对此�ƈ不感兴趣�Q�所以，我们通过命��o"log_user 0"来禁止这个功能�?有很多的命��o来控制可以看见或者可以记录的东西)�?br />
　　在��@环里面，select�{�待�l�端或者login�q�程上的动作�Q��ƈ且返回一个等待输入的spawn_id表。如果在表里面找��C��一个值的话，case��执行一个action。比如说�Q�如果字�W�串"login"出现在login�q�程的输��Z��Q�提�C�就�?x��)被记录到标准输��Z��Q��ƈ且有一个标志被讄��以便通知脚本开始记录用��L(f��ng)��击键�Q�直至用��h��下了回�R键。无论收��C��么，都会(x��)回显到终端上�Q�一个相应的action�?x��)在脚本的终端那一部分执行�?br />
　　 �q�些例子昄��了expect的作业控制方式。通过把自己插入到对话里面�Q�expect可以在进�E�之间创建复杂的I/O��。可以创建多扇出�Q�复用扇入的�Q�动态的数据相关的进�E�图�?br />
　　相比之下�Q�shell使得它自�׃��ơ一行的��d��一个文件显的很困难。shell��用户按下控制�?比如�Q�^C,^Z)和关键字(比如fg和bg)来实��C��业的切换。这些都无法从脚本里面利用。相似的是：(x��)以非交互方式�q�行的shell�q�不处理“历史记录”和其他一些仅仅�ؓ(f��)交互式��用设计的特征。这也出��C��和前面哪个passwd�E�序的相似问题。相似的�Q�也无法�~�写能够回归的测试shell的某些动作的shell脚本。结果导致shell的这些方面无法进行彻底的��试�?br />
　　如果使用expect的话�Q�可以��用它的交互式的作业控制来驱动shell。一个派生的shell认�ؓ(f��)它是在交互的�q�行着�Q�所以会(x��)正常的处理作业控制。它不仅能够解决��验处理作业控制的shell和其他一些程序的问题。还能够在必要的时候，让shell代替expect来处理作业。可以支持��用shell风格的作业控制来支持�q�程的运行。这意味着�Q�首先派生一个shell�Q�然后把命��o送给shell来启动进�E�。如果进�E�被挂�v�Q�比如说�Q�发送了一个^Z�Q�进�E�就�?x��)停下来�Q��ƈ把控制返回给shell。对于expect而言�Q�它�q�在处理同一个进�E?原来那个shell)�?br />
　　expect的解��x��法不仅具有很大的灉|��性，它还避免了重复已�l�存在于shell中的作业控制软�g。通过使用shell�Q�由于你可以选择你想�z��的shell�Q�所以你可以�Ҏ(gu��)��需要获得作业控制权。而且�Q�一旦你需�?比如说检验的时�?�Q�你��可以驱动一个shell来让�q�个shell以�ؓ(f��)它正在交互式的运行。这一点对于在��到它们是否在交互式的运行之后会(x��)改变输出的缓冲的�E�序来说也是很重要的�?br />
　　��Z��q�一步的控制�Q�在interact执行期间�Q�expect把控制终�?是启动expect的那个终端，而不是伪�l�端)讄��成生模式以便字符能够正确的传送给�z��的进�E�。当expect在没有执行interact的时候，�l�端处于熟模式下�Q�这时候作业控制就可以作用于expect本��n�?br />
11.[交互式的使用expect]

　　在前面，我们提到可以通过interact命��o来交互式的��用脚本。基本上来说�Q�interact命��o提供了对对话的自��p��问，但我们需要一些更�_��的控制。这一点，我们也可以��用expect来达刎ͼ�因�ؓ(f��)expect从标准输入中��d��输入和从�q�程中读取输入一��L(f��ng)��单�?但是�Q�我们要使用expect_user和send_user来进行标准I/O�Q�同时不改变spawn_id�?br />
　　下面的这个脚本在一定的旉��内从标准输入里面��d��一行。这个脚本叫做timed_read�Q�可以从csh里面调用�Q�比如说�Q�set answer="timed_read 30"��p��调用它�?br />
　　　　#!/usr/local/bin/expect -f
　　　　set timeout [index $argv 1]
　　　　expect_user "* "
　　　　send_user $expect_match

　　 �W�三行从用户那里接收��M��以新行符�l�束的�Q何一行。最后一行把它返回给标准输出。如果在特定的时间内没有得到��M��键入�Q�则�q�回也�ؓ(f��)�I��?br />
　　 �W�一行支�?#!"的系�l�直接的启动脚本�?如果把脚本的属性加上可执行属性则不要在脚本前面加上expect)。当然了脚本��L��可以昑ּ�的用"expect scripot"来启动。在-c后面的选项在�Q何脚本语句执行前��p��执行。比如说�Q�不要修改脚本本�w�，仅仅在命令行上加�?c "trace..."�Q�该脚本可以加上trace功能�?省略可��C�trace的选项)�?br />
　　在命令行里实际上可以加上多个命��o�Q�只要中间以";"分开��可以了。比如说�Q�下面这个命令行�Q?br />
　　　　expect -c "set timeout 20;spawn foo;expect"

　　　一旦你把超时时限设�|�好而且�E�序启动之后�Q�expect��开始等待文件结束符或�?0�U�的��时旉��?如果遇到了文件结束符(EOF)�Q�该�E�序��׃��(x��)停下来，然后expect�q�回。如果是遇到了超时的情况�Q�expect��p��回。在�q�两中情况里面，都隐式的杀��M��当前�q�程�?br />
　　如果我们不��用expect而来实现以上两个例子的功能的话，我们�q�是可以学习(f��n)到很多的东西的。在�q�两中情况里面，通常的解��x��案都是fork另一个睡眠的子进�E��ƈ且用signal通知原来的shell。如果这个过�E�或者读先发生的话，shell��׃��(x��)杀叔R��个睡眠的�q�程�?传递pid和防止后台进�E��生启动信息是一个让除了高手�U�shell�E�序员之外的人头痛的事情。提供一个通用的方法来象这样启动多个进�E�会(x��)使shell脚本非常的复杂�?所以几乎可以肯定的是，�E�序员一般都用一个专门C�E�序来解册��样一个问题�?br />
　　　expect_user,send_user,send_error(向标准错误终端输�?在比较长的，用来把从�q�程来的复杂交互��译成简单交互的expect脚本里面使用的比较频�J�。在参考[7]里面�Q�Libs描述怎样用脚本来安全的包�?wrap)adb�Q�怎样把系�l�管理员从需要掌握adb的细节里面解脱出来，同时大大的降低了�׃��错误的击键而导致的�pȝ��崩溃�?br />
　　　一个简单的例子能够让ftp自动的从一个私人的帐号里面取文件。在�q�种情况里，要求提供密码�?即��文�g的访问是受限的，你也应该避免把密码以明文的方式存储在文�g里面。把密码作�ؓ(f��)脚本�q�行时的参数也是不合适的�Q�因为用ps命��o能看到它们。有一个解决的�Ҏ(gu��)��是在脚本运行的开始调用expect_user来让用户输入以后可能使用的密码。这个密码必��d��能让�q�个脚本知道�Q�即使你是每个小旉��要重试ftp�?br />
　　　即��信息是立卌��入进�ȝ��Q�这个技巧也是非常有用。比如说�Q�你可以写一个脚本，把你每一个主��Z��不同的帐号上的密码都�Ҏ(gu��)��Q�不��他们��用的是不是同一个密码数据库。如果你要手工达到这样一个功能的话，你必��Telnet到每一个主��Z��Q��ƈ且手工输入新的密码。而��用expect,你可以只输入密码一�ơ而让脚本来做其它的事情�?br />
　　　expect_user和interact也可以在一个脚本里面�؜合的使用。考虑一下在调试一个程序的循环�Ӟ��l�过好多步之后才��p�|的情��c��一个expect脚本可以驱动哪个调试器，讄��好断点，执行该程序��@环的若干步，然后��控制返回给键盘。它也可以在�q�回控制之前�Q�在循环体和条�g��试之间来回的切换�?br />
6.[passwd和一致性检查]

　　在前面，我们提到passwd�E�序在缺乏用户交互的情况下，不能�q�行�Q�passwd
�?x��)忽略I/O重定向，也不能嵌入到��道里边以便能从别的�E�序或者文仉��d��?br />入。这个程序坚持要求真正的与用戯��行交互。因为安全的原因�Q�passwd被设�?br />成这��P��但结果导致没有非交互式的�Ҏ(gu��)��来检验passwd。这样一个对�pȝ��安全
臛_��重要的程序竟然没有办法进行可靠的��验，真实��h��讽刺意味�?br />
　　passwd以一个用户名作�ؓ(f��)参数�Q�交互式的提�C��入密码。下面的expect�?br />本以用户名和密码作�ؓ(f��)参数而非交互式的�q�行�?br />
　　　　spawn oasswd [index $argv 1]
　　　　set password [index $argv 2]
　　　　expect "*password:"
　　　　send "$password "
　　　　expect "*password:"
　　　　send "$password "
　　　　expect eof

　　�W�一行以用户名做参数启动passwd�E�序�Q��ؓ(f��)方便赯��Q�第二行把密码存�?br />一个变量里面。和shell�c�M��Q�变量的使用也不需要提前声明�?br />
　　在第三行�Q�expect搜烦模式"*password:"�Q�其�?允许匚w��L��输入�Q�所
以对于避免指定所有细节而言是非常有效的�?上面的程序里没有action,所�?br />expect��到该模式后��q��l�运行�?br />
　　一旦接收到提示后，下一行就��把密码送给当前�q�程。表明回车�?�?br />际上�Q�所有的C的关于字�W�的�U�定都支�?。上面的�E�序中有两个expect-send
序列�Q�因为passwd��Z��对输入进行确认，要求�q�行两次输入。在非交互式�E�序
里面�Q�这是毫无必要的�Q�但�׃��假定passwd是在和用戯��行交互，所以我们的
脚本�q�是�q�样做了�?br />
　　最后，"expect eof"�q�一行的作用是在passwd的输��Z��搜烦文�g�l�束�W�，
�q�一行语句还展示了关键字的匹配。另外一个关键字匚w��是timeout了，
timeout被用于表�C�所有匹配的��p�|而和一�D늉�定长度的旉��相匹配。在�q�里
eof是非常有必要的，因�ؓ(f��)passwd被设计成�?x��)检查它的所有I/O是否都成功了�Q?br />包括�W�二�ơ输入密码时产生的最后一个新行�?br />
　　�q�个脚本已经��_��展示passwd命��o的基本交互性。另外一个更加完备的�?br />子回��查别的一些行为。比如说�Q�下面的�q�个脚本��p��查passwd�E�序的别�?br />几个斚w��。所有的提示都进行了��查。对垃圾输入的检查也�q�行了适当的处
理。进�E�死亡，��乎��d��的慢响应�Q�或者别的非预期的行为都�q�行了处理�?br />

　　　　spawn passwd [index $argv 1]
　　　　expect 　　　　eof　　　　　　　　　　　　{exit 1} 　　　　
　　　　　　　　timeout　　　　　　　　　　　　{exit 2}　　　　
　　　　　　　　"*No such user.*"　　　　{exit 3}　　　　
　　　　　　　　"*New password:"　　　　
　　　　send　"[index $argv 2 "
　　　　expect 　　　　eof　　　　　　　　　　　　{exit 4}　　　　
　　　　　　　　timeout　　　　　　　　　　　　{exit 2}　　　　
　　　　　　　　"*Password too long*"　　　　{exit 5}　　　　
　　　　　　　　"*Password too short*"　　　　{exit 5}　　　　
　　　　　　　　"*Retype ew password:"
　　　　send "[index $argv 3] "
　　　　expect 　　　　timeout　　　　　　　　　　　　{exit 2}　　　　
　　　　　　　　"*Mismatch*"　　　　　　　　{exit 6}　　　　
　　　　　　　　"*Password unchanged*"　　　　{exit 7}　　　　
　　　　　　　　" "　　　　　　　　
　　　　expect　　　　timeout　　　　　　　　　　　　{exit 2}　　　　
　　　　　　　　"*"　　　　　　　　　　　　{exit 6}　　　　
　　　　　　　　eof

　　　
　　�q�个脚本退出时用一个数字来表示所发生的情��c�?表示passwd�E�序正常
�q�行�Q?表示非预期的��M��Q?表示锁定�Q�等�{�。��用数字是��Z��单�v见�?br />expect�q�回字符串和�q�回数字是一��L(f��ng)��单的�Q�即使是�z��E�序自��n产生的消�?br />也是一��L(f��ng)��。实际上�Q�典型的做法是把整个交互的过�E�存��C��个文仉��面，�?br />有当�E�序的运行和预期一��L(f��ng)��时候才把这个文件删除。否则这个log被留待以
后进一步的��查�?br />
　　�q�个passwd��查脚本被设计成由别的脚本来驱动。这�W�二个脚本从一个文
仉��面读取参数和预期的结果。对于每一个输入参数集�Q�它调用�W�一个脚本�ƈ
且把�l�果和预期的�l�果相比较�?因�ؓ(f��)�q�个��d��是非交互的，一个普通的老式
shell��可以用来解释第二个脚本)。比如说�Q�一个passwd的数据文件很有可�?br />��p��下面一栗��?br />
　　　　passwd.exp　　　　3　　　　bogus　　　　-　　　　　　　　-
　　　　passwd.exp　　　　0　　　　fred　　　　abledabl　　　　abledabl
　　　　passwd.exp　　　　5　　　　fred　　　　abcdefghijklm　　　　-
　　　　passwd.exp　　　　5　　　　fred　　　　abc　　　　　　　　-
　　　　passwd.exp　　　　6　　　　fred　　　　foobar　　　　　　　　bar　　　　
　　　　passwd.exp　　　　4　　　　fred　　　　^C　　　　　　　　-

　　�W�一个域的名字是要被�q�行的回归脚本。第二个域是需要和�l�果相匹配的
退出倹{��第三个域就是用户名。第四个域和�W�五个域��是提示时应该输入的�?br />码。减号仅仅表�C�那里有一个域�Q�这个域其实�l�对不会(x��)用到。在�W�一个行�?br />�Q�bogus表示用户名是非法的，因此passwd�?x��)响应说�Q�没有此用户。expect�?br />退出时�?x��)返�?�Q?恰好��是�W�二个域。在最后一行中�Q�^C��是被切实的送给�E?br />序来验证�E�序是否恰当的退出�?br />
　　通过�q�种�Ҏ(gu��)��Q�expect可以用来��验和调试交互式��Y�Ӟ��q�恰恰是IEEE�?br />POSIX 1003.2(shell和工�?的一致性检验所要求的。进一步的说明请参�?br />Libes[6]�?br />
7.[rogue 和伪�l�端]

　　Unix用户肯定寚w��过��道来和其他�q�程相联�pȝ��方式非常的熟�(zh��n)?比如��_��(x��)
一个shell��道)。expect使用伪终端来和派生的�q�程相联�p�R��伪�l�端提供了终
端语义以便程序认��Z��们正在和真正的终端进行I/O操作�?br />
　　比如��_��BSD的探险游戏rogue在生模式下运行，�q�假定在�q�接的另一端是
一个可��d��的字�W�终端。可以用expect�~�程�Q��得通过使用用户界面可以玩这
个游戏�?br />
　　rogue�q�个探险游戏首先提供�l�你一个有各种物理属性，比如说力量��|��?br />角色。在大部分时间里�Q�力量值都�?6�Q�但在几乎每20�ơ里面就�?x��)有一个力�?br />值是18。很多的rogue玩家都知道这一点，但没有�h愿意启动�E�序20�ơ以获得一
个好的配�|�。下面的�q�个脚本��p��辑ֈ��q�个目的�?br />
　　　　for {} {1} {} {
　　　　　　　　spawn rogue
　　　　　　　　expect "*Str:18*"　　　　break　　　　
　　　　　　　　　　　 "*Str:16*"　　　　
　　　　　　　　close
　　　　　　　　wait
　　　　}
　　　　interact

　　�W�一行是个for循环�Q�和C语言的控制格式很象。rogue启动后，expect��?br />��查看力量值是18�q�是16�Q�如果是16�Q�程序就通过执行close和wait来退出�?br />�q�两个命令的作用分别是关闭和伪终端的�q�接和等待进�E�退出。rogue��d��一
个文件结束符��推出，从而��@环��l�运行，产生一个新的rogue游戏来检查�?br />
　　当一个��gؓ(f��)18的配�|�找到后�Q�控制就推出循环�q�蟩到最后一行脚本�?br />interact把控制�{�Uȝ��用户以便他们能够玩这个特定的游戏�?br />
　　惌��一下这个脚本的�q�行。你所能真正看到的��是20或�?0个初始的配置
在不��C��U�钟的时间里掠过屏幕�Q�最后留�l�你的就是一个有着很好配置的游�?br />。唯一比这更好的方法就是��用调试工��h��玩游戏�?br />
　　我们很有必要认识到这样一点：(x��)rogue是一个��用光标的囑�Ş游戏�?br />expect�E�序员必��M��解到�Q�光标的�q�动�q�不一定以一�U�直观的方式在屏�q�上�?br />现。幸�q�的是，在我们这个例子里�Q�这不是一个问题。将来的对expect的改
�q�可能会(x��)包括一个内嵌的能支持字�W�图形区域的�l�端模拟器�?br />
8.[ftp]

　　我们使用expect写第一个脚本�ƈ没有打印�?Hello,World"。实际上�Q�它
实现了一些更有用的功能。它能通过非交互的方式来运行ftp。ftp是用来在�?br />持TCP/IP的网�l�上�q�行文�g传输的程序。除了一些简单的功能�Q�一般的实现�?br />要求用户的参与�?br />
　　下面�q�个脚本从一个主��Z��使用匿名ftp取下一个文件来。其中，��L��?br />是第一个参数。文件名是第二个参数�?br />
　　　　　　　　spawn　　　　ftp　　　　[index $argv 1]
　　　　　　　　expect　"*Name*"
　　　　　　　　send　　　　　"anonymous "
　　　　　　　　expect　"*Password:*"
　　　　　　　　send [exec whoami]
　　　　　　　　expect "*ok*ftp>*"
　　　　　　　　send "get [index $argv 2] "
　　　　　　　　expect "*ftp>*"

　　上面�q�个�E�序被设计成在后台进行ftp。虽然他们在底层使用和expect�c?br />似的机制�Q�但他们的可�~�程能力留待改进。因为expect提供了高�U�语�a��Q�你�?br />以对它进行修�Ҏ(gu��)��满��你的特定需求。比如说�Q�你可以加上以下功能�Q?br />
　　　　�Q�坚持－�Q�如果连接或者传输失败，你就可以每分钟或者每��时�Q�甚
　　　　　　　　臛_��以根据其他因素，比如说用��L(f��ng)��负蝲�Q�来�q�行不定期的
　　　　　　　　重试�?br />　　　　�Q�通知�Q�－传输时可以通过mail,write或者其他程序来通知你，甚至
　　　　　　　　可以通知��p�|�?br />　　　　�Q�初始化�Q�每一个用户都可以有自��q��用高�U�语�a��~�写的初始化文�g
　　　　　　　　(比如��_��.ftprc)。这和C shell�?cshrc的��用很�c�M��?br />
　　expect�q�可以执行其他的更复杂的��d��。比如说�Q�他可以使用McGill大学
的Archie�pȝ��。Archie是一个匿名的Telnet服务�Q�它提供�Ҏ(gu��)��q�Internet上可
通过匿名ftp获取的文件的数据库的讉K��。通过使用�q�个服务�Q�脚本可以询�?br />Archie某个特定的文件的位置�Q��ƈ把它从ftp服务器上取下来。这个功能的�?br />现只要求在上面那个脚本中加上几行��可以�?br />
　　现在�q�没有什么已知的后台-ftp能够实现上面的几��功能，能不要说所�?br />的功能了。在expect里面�Q�它的实现却是非常的��单。“坚持”的实现只要�?br />在expect脚本里面加上一个��@环。“通知”的实现只要执行mail和write��可�?br />了。“初始化文�g”的实现可以使用一个命令，source .ftprc�Q�就可以了，
�?ftprc里面可以有�Q何的expect命��o�?br />
　　虽然�q�些特征可以通过在已有的�E�序里面加上钩子函数��可以，但这也不
能保证每一个�h的要求都能得到满��뀂唯一能够提供保证的方法就是提供一�U?br />通用的语�a�。一个很好的解决�Ҏ(gu��)��是把Tcl自��n融入到ftp和其他的�E�序中间
厅R��实际上�Q�这本来��是Tcl的初街��在�q�没有这样做之前�Q�expect提供了一
个能实现大部分功能但又不需要�Q何重写的�Ҏ(gu��)��?br />
9.[fsck]

　　fsck是另外一个缺乏��够的用户接口的例子。fsck几乎没有提供什么方�?br />来预先的回答一些问题。你能做的就是给所有的问题都回�{?yes"或者都回答
"no"�?br />
　　下面的程序段展示了一个脚本如何的使的自动的对某些问题回答"yes"�Q?br />而对某些问题回答"no"。下面的�q�个脚本一开始先�z��fsck�q�程�Q�然后对�?br />中两�U�类型的问题回答"yes"�Q�而对其他的问题回�{?no"�?br />
　　　　for {} {1} {} {
　　　　　　　　expect
　　　　　　　　　　　　eof　　　　　　　　break　　　　　　　　
　　　　　　　　　　　　"*UNREF FILE*CLEAR?"　　　　{send "r "}　　　　
　　　　　　　　　　　　"*BAD INODE*FIX?"　　　　{send "y "}　　　　
　　　　　　　　　　　　"*?"　　　　　　　　　　　　{send "n "}　　　　
　　　　}

　　在下面这个版本里面，两个问题的回�{�是不同的。而且�Q�如果脚本遇�?br />了什么它不能理解的东西，��׃��(x��)执行interact命��o把控制交�l�用戗��用��L(f��ng)��
击键直接交给fsck处理。当执行完后�Q�用户可以通过�?+"键来退出或者把
控制交还�l�expect。如果控制是交还�l�脚本了�Q�脚本就�?x��)自动的控制�q�程�?br />剩余部分的运行�?br />
　　　　for {} {1} {}{
　　　　　　　　expect 　　　　　　　　　　　　
　　　　　　　　　　　　eof　　　　　　　　break　　　　　　　　
　　　　　　　　　　　　"*UNREF FILE*CLEAR?"　　　　{send "y "}　　　　
　　　　　　　　　　　　"*BAD INODE*FIX?"　　　　{send "y "}　　　　
　　　　　　　　　　　　"*?"　　　　　　　　　　　　{interact +}　　　　
　　　　}

　　如果没有expect�Q�fsck只有在牺牲一定功能的情况下才可以非交互式�?br />�q�行。fsck几乎是不可编�E�的�Q�但它却是系�l�管理的最重要的工兗��许多别
的工��L(f��ng)��用户接口也一��L(f��ng)��不��。实际上�Q�正是其中的一些程序的不��D��
了expect的诞生�?br />
10.[控制多个�q�程�Q�作业控制]

　 expect的作业控制概�늲�巧的避免了通常的实现困难。其中包括了两个�?br />题：(x��)一个是expect如何处理�l�典的作业控�Ӟ��卛_��你在�l�端上按下^Z键时
expect如何处理�Q�另外一个就是expect是如何处理多�q�程的�?br />
　对第一个问题的处理是：(x��)忽略它。expect对经典的作业控制一无所知。比
如说�Q�你�z��了一个程序�ƈ且发送一个^Z�l�它�Q�它?y��u)�׃�?x��)停下�?�q�是伪终端的
完美之处)而expect��׃��(x��)永远的等下去�?br />
　但是�Q�实际上�Q�这�Ҏ(gu��)��׃��成一个问题。对于一个expect脚本�Q�没有必�?br />向进�E�发送^Z。也��是��_��没有必要停下一个进�E�来。expect仅仅是忽略了
一个进�E�，而把自己的注意力转移到其他的地方。这��是expect的作业控�?br />思想�Q�这个思想也一直工作的很好�?br />
　　从用��L(f��ng)��角度来看是象�q�样的：(x��)当一个进�E�通过spawn命��o启动�Ӟ��变量
spawn_id��p��讄��成某�q�程的描�q�符。由spawn_id描述的进�E�就被认为是�?br />前进�E��?�q�个描述�W�恰恰就是伪�l�端文�g的描�q�符�Q�虽然用��h��它当作一�?br />不透明的物�?。expect和send命��o仅仅和当前进�E�进行交互。所以，切换一
个作业所需要做的仅仅是把该�q�程的描�q�符赋给spawn_id�?br />
　　�q�儿有一个例子向我们展示了如何通过作业控制来��两个chess�q�程�q�行
交互。在�z��完两个进�E�之后，一个进�E�被通知先动一步。在下面的��@环里
面，每一步动作都送给另外一个进�E�。其中，read_move和write_move两个�q?br />�E�留�l�读者来实现�?实际上，它们的实现非常的�Ҏ(gu��)��Q�但是，�׃��太长了所
以没有包含在�q�里)�?br />
　　　　spawn chess　　　　　　　　　　　　;# start player one
　　　　set id1　　　　$spawn_id
　　　　expect "Chess "
　　　　send "first "　　　　　　　　　　　　;# force it to go first
　　　　read_move

　　　　spawn chess　　　　　　　　　　　　;# start player two
　　　　set id2　　　　$spawn_id
　　　　expect "Chess "
　　　　
　　　　for {} {1} {}{
　　　　　　　　send_move
　　　　　　　　read_move
　　　　　　　　set spawn_id　　　　$id1
　　　　　　　　
　　　　　　　　send_move
　　　　　　　　read_move
　　　　　　　　set spawn_id　　　　$id2
　　　　}

　　有一些应用程序和chess�E�序不太一��P��在chess�E�序里，的两个玩�?br />轮流动。下面这个脚本实��C��一个冒充程序。它能够控制一个终端以便用�?br />能够��d��和正常的工作。但是，一旦系�l�提�C��入密码或者输入用户名的时
候，expect��开始把击键��C��来，一直到用户按下回�R键。这有效的收集了
用户的密码和用户名，�q�避免了普通的冒充�E�序�?Incorrect password-try
again"。而且�Q�如果用戯��接到另外一个主��Z��Q�那些额外的��d��也会(x��)�?br />记录下来�?br />
　　　　spawn tip /dev/tty17　　　　　　　　;# open connection to
　　　　set tty $spawn_id　　　　　　　　;# tty to be spoofed

　　　　spawn login
　　　　set login $spawn_id

　　　　log_user 0
　　　　
　　　　for {} {1} {} {
　　　　　　　　set ready　[select $tty $login]
　　　　　　　　
　　　　　　　　case $login in $ready {
　　　　　　　　　　　　set spawn_id $login
　　　　　　　　　　　　expect 　　　　　　　　
　　　　　　　　　　　　　　{"*password*" "*login*"}{
　　　　　　　　　　　　　　　　　 send_user $expect_match
　　　　　　　　　　　　　　　　　 set log 1
　　　　　　　　　　　　　　　　 }　　　　
　　　　　　　　　　　　　 "*"　　　　　　　　;# ignore everything else
　　　　　　　　　　　　set spawn_id　　　　$tty;
　　　　　　　　　　　　send $expect_match
　　　　　　　　}
　　　　　　　　case $tty in $ready {
　　　　　　　　　　　　set spawn_id　　　　$tty
　　　　　　　　　　　　expect "* *"{
　　　　　　　　　　　　　　　　　　　　if $log {
　　　　　　　　　　　　　　　　　　　　　 send_user $expect_match
　　　　　　　　　　　　　　　　　　　　　 set log 0
　　　　　　　　　　　　　　　　　　　　}
　　　　　　　　　　　　　　　　　　 }　　　　
　　　　　　　　　　　　　　　　"*"　{
　　　　　　　　　　　　　　　　　　　　send_user $expect_match
　　　　　　　　　　　　　　　　　　 }
　　　　　　　　　　　　set spawn_id 　　　　$login;
　　　　　　　　　　　　send $expect_match
　　　　　　　　}
　　　　}
　　　　　　　　

　　 �q�个脚本是这样工作的。首先连接到一个login�q�程和终端。缺省的�Q?br />所有的对话都记录到标准输出�?通过send_user)。因为我们对此�ƈ不感兴趣�Q?br />所以，我们通过命��o"log_user 0"来禁止这个功能�?有很多的命��o来控�?br />可以看见或者可以记录的东西)�?br />
　　在��@环里面，select�{�待�l�端或者login�q�程上的动作�Q��ƈ且返回一�?br />�{�待输入的spawn_id表。如果在表里面找��C��一个值的话，case��执行一�?br />action。比如说�Q�如果字�W�串"login"出现在login�q�程的输��Z��Q�提�C�就�?br />被记录到标准输出上，�q�且有一个标志被讄��以便通知脚本开始记录用��L(f��ng)��
击键�Q�直至用��h��下了回�R键。无论收��C��么，都会(x��)回显到终端上�Q�一个相
应的action�?x��)在脚本的终端那一部分执行�?br />
　　 �q�些例子昄��了expect的作业控制方式。通过把自己插入到对话里面�Q?br />expect可以在进�E�之间创建复杂的I/O��。可以创建多扇出�Q�复用扇入的�Q?br />动态的数据相关的进�E�图�?br />
　　相比之下�Q�shell使得它自�׃��ơ一行的��d��一个文件显的很困难�?br />shell��用户按下控制�?比如�Q�^C,^Z)和关键字(比如fg和bg)来实��C��业的
切换。这些都无法从脚本里面利用。相似的是：(x��)以非交互方式�q�行的shell�q?br />不处理“历史记录”和其他一些仅仅�ؓ(f��)交互式��用设计的特征。这也出��C��?br />前面哪个passwd�E�序的相似问题。相似的�Q�也无法�~�写能够回归的测试shell
的某些动作的shell脚本。结果导致shell的这些方面无法进行彻底的��试�?br />
　　如果使用expect的话�Q�可以��用它的交互式的作业控制来驱动shell。一
个派生的shell认�ؓ(f��)它是在交互的�q�行着�Q�所以会(x��)正常的处理作业控制。它�?br />仅能够解��x��验处理作业控制的shell和其他一些程序的问题。还能够在必�?br />的时候，让shell代替expect来处理作业。可以支持��用shell风格的作业控
制来支持�q�程的运行。这意味着�Q�首先派生一个shell�Q�然后把命��o送给shell
来启动进�E�。如果进�E�被挂�v�Q�比如说�Q�发送了一个^Z�Q�进�E�就�?x��)停下来�Q��ƈ
把控制返回给shell。对于expect而言�Q�它�q�在处理同一个进�E?原来那个
shell)�?br />
　　expect的解��x��法不仅具有很大的灉|��性，它还避免了重复已�l�存在于
shell中的作业控制软�g。通过使用shell�Q�由于你可以选择你想�z��的shell�Q?br />所以你可以�Ҏ(gu��)��需要获得作业控制权。而且�Q�一旦你需�?比如说检验的�?br />�?�Q�你��可以驱动一个shell来让�q�个shell以�ؓ(f��)它正在交互式的运行。这一
点对于在��到它们是否在交互式的运行之后会(x��)改变输出的缓冲的�E�序来说�?br />是很重要的�?br />
　　��Z��q�一步的控制�Q�在interact执行期间�Q�expect把控制终�?是启�?br />expect的那个终端，而不是伪�l�端)讄��成生模式以便字符能够正确的传送给
�z��的进�E�。当expect在没有执行interact的时候，�l�端处于熟模式下�Q�这�?br />候作业控制就可以作用于expect本��n�?br />
11.[交互式的使用expect]

　　在前面，我们提到可以通过interact命��o来交互式的��用脚本。基本上
来说�Q�interact命��o提供了对对话的自��p��问，但我们需要一些更�_��的控
制。这一点，我们也可以��用expect来达刎ͼ�因�ؓ(f��)expect从标准输入中��d��
输入和从�q�程中读取输入一��L(f��ng)��单�?但是�Q�我们要使用expect_user�?br />send_user来进行标准I/O�Q�同时不改变spawn_id�?br />
　　下面的这个脚本在一定的旉��内从标准输入里面��d��一行。这个脚本叫
做timed_read�Q�可以从csh里面调用�Q�比如说�Q�set answer="timed_read 30"
��p��调用它�?br />
　　　　#!/usr/local/bin/expect -f
　　　　set timeout [index $argv 1]
　　　　expect_user "* "
　　　　send_user $expect_match

　　 �W�三行从用户那里接收��M��以新行符�l�束的�Q何一行。最后一行把�?br />�q�回�l�标准输出。如果在特定的时间内没有得到��M��键入�Q�则�q�回也�ؓ(f��)�I��?br />
　　 �W�一行支�?#!"的系�l�直接的启动脚本�?如果把脚本的属性加上可�?br />行属性则不要在脚本前面加上expect)。当然了脚本��L��可以昑ּ�的用
"expect scripot"来启动。在-c后面的选项在�Q何脚本语句执行前��p��执行�?br />比如��_��不要修改脚本本��n�Q�仅仅在命��o行上加上-c "trace..."�Q�该脚本�?br />以加上trace功能�?省略可��C�trace的选项)�?br />
　　在命令行里实际上可以加上多个命��o�Q�只要中间以";"分开��可以了�?br />比如��_��下面�q�个命��o行：(x��)

　　　　expect -c "set timeout 20;spawn foo;expect"

　　　一旦你把超时时限设�|�好而且�E�序启动之后�Q�expect��开始等待文�?br />�l�束�W�或�?0�U�的��时旉��?如果遇到了文件结束符(EOF)�Q�该�E�序��׃��(x��)�?br />下来�Q�然后expect�q�回。如果是遇到了超时的情况�Q�expect��p��回。在�q�两
中情况里面，都隐式的杀��M��当前�q�程�?br />
　　如果我们不��用expect而来实现以上两个例子的功能的话，我们�q�是�?br />以学�?f��n)到很多的东西的。在�q�两中情况里面，通常的解��x��案都是fork另一�?br />睡眠的子�q�程�q�且用signal通知原来的shell。如果这个过�E�或者读先发生的
话，shell��׃��(x��)杀叔R��个睡眠的�q�程�?传递pid和防止后台进�E��生启动信�?br />是一个让除了高手�U�shell�E�序员之外的人头痛的事情。提供一个通用的方�?br />来象�q�样启动多个�q�程�?x��)��shell脚本非常的复杂�?所以几乎可以肯定的是，
�E�序员一般都用一个专门C�E�序来解册��样一个问题�?br />
　　　expect_user,send_user,send_error(向标准错误终端输�?在比较长
的，用来把从�q�程来的复杂交互��译成简单交互的expect脚本里面使用的比�?br />频繁。在参考[7]里面�Q�Libs描述怎样用脚本来安全的包�?wrap)adb�Q�怎样
把系�l�管理员从需要掌握adb的细节里面解脱出来，同时大大的降低了�׃��?br />误的击键而导致的�pȝ��崩溃�?br />
　　　一个简单的例子能够让ftp自动的从一个私人的帐号里面取文件。在�q?br />�U�情况里�Q�要求提供密码�?即��文�g的访问是受限的，你也应该避免把密�?br />以明文的方式存储在文仉��面。把密码作�ؓ(f��)脚本�q�行时的参数也是不合适的�Q?br />因�ؓ(f��)用ps命��o能看到它们。有一个解决的�Ҏ(gu��)��是在脚本运行的开始调�?br />expect_user来让用户输入以后可能使用的密码。这个密码必��d��能让�q�个�?br />本知道，即��你是每个��时都要重试ftp�?br />
　　　即��信息是立卌��入进�ȝ��Q�这个技巧也是非常有用。比如说�Q�你�?br />以写一个脚本，把你每一个主��Z��不同的帐号上的密码都�Ҏ(gu��)��Q�不��他们��?br />的是不是同一个密码数据库。如果你要手工达到这样一个功能的话，你必��?br />Telnet到每一个主��Z��Q��ƈ且手工输入新的密码。而��用expect,你可以只�?br />入密码一�ơ而让脚本来做其它的事情�?br />
　　　expect_user和interact也可以在一个脚本里面�؜合的使用。考虑一�?br />在调试一个程序的循环�Ӟ��l�过好多步之后才��p�|的情��c��一个expect脚本
可以驱动哪个调试器，讄��好断点，执行该程序��@环的若干步，然后��控�?br />�q�回�l�键盘。它也可以在�q�回控制之前�Q�在循环体和条�g��试之间来回的切
换�?

weidagang2046 2006-03-25 23:24 发表评论

文本提取�q�输出到文�g

weidagang2046 — Fri, 24 Mar 2006 04:23:00 GMT

# !/usr/bin/perl -w

@ARGV > 0 || die " Usage:\nperl $0 [file] " ;

open (INH , " <$ARGV[0] " ) || die " Can't open file $ARGV[0]\n " ;
open (OUTH , " >d:/log.txt " ) || die " Can't open file d:/log.txt\n " ;

while ( $line = < INH > )
{
     if ( $line =~ " GTS MS FSM " || $line =~ " GTS RPM PFC " || $line =~ " -> " )
    {
         print OUTH $line ;
    }
}

close (INH);
close (OUTH);

weidagang2046 2006-03-24 12:23 发表评论

weidagang2046 — Thu, 23 Mar 2006 16:06:00 GMT
数据文�g�׃��列数字组成，列间��q��格隔开�?br />
#!/usr/bin/perl -w

$arg_num = @ARGV;

$arg_num > 0 || die "Usage:\nperl $0 [file]\n";

open(FH, $ARGV[0]) || die "Can't open file $ARGV[0]\n";

@lines = <FH>;

foreach $line (@lines)
{
    chomp($line);
    @nums = split(' ', $line);
    $fitness += 1 - abs($nums[1] - $nums[0]) / (abs($nums[0]) + 1e-10);
    $count++;
}

if($count > 0)
{
    $fitness /= $count;
    print $fitness, "\n";
}
else
{
    print "0\n";
}

weidagang2046 2006-03-24 00:06 发表评论

获取�pȝ��定义的所有信号名

weidagang2046 — Wed, 22 Mar 2006 12:37:00 GMT

use Config;

defined $Config {sig_name} || die " No sig?\n " ;

foreach $name ( split ( ' ' , $Config {sig_name}))
{
     print $name , " \n " ;
}

weidagang2046 2006-03-22 20:37 发表评论

�q�制转换以及字符串�{整数

weidagang2046 — Fri, 17 Mar 2006 15:31:00 GMT

Author: kbe@www.smth.org

Converting Between Octal and Hexadecimal

# -----------------------------
$number = hex ( $hexadecimal );          # hexadecimal
$number = oct ( $octal );                # octal
#-----------------------------
print " Gimme a number in decimal, octal, or hex: " ;
$num = < STDIN > ;
chomp $num ;
exit unless defined $num ;
$num = oct ( $num ) if $num =~ /^ 0 / ; # does both oct and hex
printf " %d %x %o\n " , $num , $num , $num ;
# -----------------------------
print " Enter file permission in octal: " ;
$permissions = < STDIN > ;
die " Exiting \n " unless defined $permissions ;
chomp $permissions ;
$permissions = oct ( $permissions );    # permissions always octal
print " The decimal value is $permissions\n " ;
# -----------------------------

weidagang2046 2006-03-17 23:31 发表评论

split

weidagang2046 — Fri, 17 Mar 2006 09:45:00 GMT

# !/usr/bin/perl

@strs ;
push ( @strs , " |a |b|c| " );
push ( @strs , " a|b|c| " );
push ( @strs , " a|b|c " );

for ( $i = 0 ; $i < @strs ; $i ++ )
{
     if ( $strs [ $i ] =~ /^\|/ )
    {
         $strs [ $i ] = substr ( $strs [ $i ] , 1 );
    }
     @elems = split ( /\|/, $strs [ $i ]);
     print @elems + 0 , " \n " ;
     print join ( " , " , @elems );
     print " \n " ;
}

weidagang2046 2006-03-17 17:45 发表评论

自动FTP脚本

weidagang2046 — Fri, 10 Mar 2006 16:04:00 GMT

use strict;
use Net::FTP;

my $ftp = Net::FTP->new($HOST) or die "Cannot connect to $HOST: $@";
$ftp->login($USER,$PASS) or die "Cannot login ", $ftp->message;
$ftp->ascii;
$ftp->cwd($PATH);

foreach my $file (@file_list) {
    my $remote_file = $file.'.txt';
    my $local_file = $LOCAL_PATH."/$remote_file";
    if ($ftp->size($remote_file)) {
        $ftp->get($remote_file,$local_file) or die "get failed ", $ftp->message;
    }
}

$ftp->quit;

weidagang2046 2006-03-11 00:04 发表评论

weidagang2046 — Thu, 09 Mar 2006 01:19:00 GMT
提取以ID(�?字符�Q�首字符为数字，其余三个字符为数字或字母)�Q�chain或region开始的行：(x��)

1i95
complexed with ede, mg, wo2, zn
chain q [62030]
1e7z
contains C-terminal His tag
complexed with hg
chain a [25318]
1khi
region a:103-173 [77409]
1fgu
the N-terminal two domains free
region a:181-298 [25296]
region a:299-426 [25297]
region b:181-289 [25298]
region b:298-426 [25299]
1hnz
complexed with hyg, mg, zn
chain q [25354]
1gd7
chain a [60441]
chain b [60442]
chain c [60443]
chain d [60444]

$file = $ARGV[0];

open(FH, $file) || die "Can not open $file: $!\n";

@lines = <FH>;

@extract = grep(/(^\d\w{3}$)|(^(chain|region))/, @lines);

print @extract;

weidagang2046 2006-03-09 09:19 发表评论

国产精品亚洲专一区二区三区,亚洲伦理一二三四,亚洲一级毛片免费看

�l�计工程的源代码行数

Perl eval函数探讨

如何捕捉CGI�E�序exception

代码例子

Perl Tips 2006/8/19

列出目录下的所有子目录和文件名

perl自带的介�l�图形界面的例子

Perl处理Unix命��o输出

��L���Ҏ(gu��)��字符

30 个子�q�程来�ƈ行下载不同的链接

Perl 模块多��^��C��安装�Ҏ(gu��)��

How can I use Perl interactively?

ref函数判断变量是何�U�类型的引用

删除某目录下最后修�Ҏ(gu��)��期大于X天的文�g

k1205 extractor

���某目录下（包括子目录）的所�?c文�g重命名�ؓ(f��).cpp文�g

eval

文本提取�q�输出到文�g

获取�pȝ��定义的所有信号名

�q�制转换以及字符串�{整数

split

自动FTP脚本

��L��Ҏ(gu��)��字符

��某目录下（包括子目录）的所�?c文�g重命名�ؓ(f��).cpp文�g