应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 专业学科区 » 信息科学 » perl 5 教程 连载
51/1返回列表
查看: 1554  |  回复: 8
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

miRNA

至尊木虫 (职业作家)

水王之王（愚愚学园管理员）

[交流] perl 5 教程 连载

第一章 概述

一、Perl是什么?
 Perl是Practical Extraction and Report Language的缩写，它是由Larry Wall设计的，并由他不断更新和维护，用于在UNIX环境下编程。
 .Perl具有高级语言（如C）的强大能力和灵活性。事实上，你将看到，它的许多特性是从C语言中借用来的。
 .与脚本语言一样，Perl不需要编译器和链接器来运行代码，你要做的只是写出程序并告诉Perl来运行而已。这意味着Perl对于小的编程问题的快速解决方案和为大型事件创建原型来测试潜在的解决方案是十分理想的。
 .Perl提供脚本语言（如sed和awk）的所有功能，还具有它们所不具备的很多功能。Perl还支持sed到Perl及awd到Perl的翻译器。
 简而言之，Perl象C一样强大，象awk、sed等脚本描述语言一样方便。
二、Perl在哪里?
 Perl通常位于/usr/local/bin/perl或/usr/bin/perl中。你可以在Internet用匿名FTP免费得到它，如ftp://prep.ai.mit.edu/pub/gnu/perl-5.004.tar.gz。
 安装过程为：
 (1)解压：
 $gunzip perl-5.004.tar.gz
 $tar xvf -  (2)编译：
 $make makefile
 (3)放置：
 将编译生成的可执行文件拷贝到可执行文件通常所在目录，如：
 $copy /usr/local/bin/perl
 注：这需要系统管理员权限。


北美
地址目录
ftp.netlabs.comIP地址：192.94.48.152
目录 /pub/outgoing/perl5.0
ftp.cis.ufl.eduIP地址： 128.227.100.198
目录 /pub/perl/src/5.0
ftp.uu.netIP地址： 192.48.96.9
目录 /languages/perl
ftp.khoros.unm.eduIP地址： 198.59.155.28
目录 /pub/perl
ftp.cbi.tamucc.eduIP地址： 165.95.1.3
目录 /pub/duff/Perl
ftp.metronet.comIP地址： 192.245.137.1
目录 /pub/perl/sources
genetics.upenn.eduIP地址： 128.91.200.37
目录 /perl5

欧洲
SiteLocation
ftp.cs.ruu.nlIP地址： 131.211.80.17
目录 /pub/PERL/perl5.0/src
ftp.funet.fiIP地址： 128.214.248.6
目录 /pub/languages/perl/ports/perl5
ftp.zrz.tu-berlin.deIP地址： 130.149.4.40
目录 /pub/unix/perl
src.doc.ic.ac.ukIP地址： 146.169.17.5
目录 /packages/perl5

澳洲

SiteLocation
sungear.mame.mu.oz.auIP地址： 128.250.209.2
目录 /pub/perl/src/5.0

南美
SiteLocation
ftp.inf.utfsm.clIP地址： 146.83.198.3
目录 /pub/gnu

三、运行
 用文本编辑器编辑好你的Perl程序，加上可执行属性：$chmod +x 就可以执行了：$./。如果系统提示："/usr/local/bin/perl not found"，则说明你没有安装成功，请重新安装。
注：你的程序的第一行必须为#!/usr/local/bin/perl（perl所在位置）。
四、注释：
 注释的方法为在语句的开头用字符#，如：
 # this line is a comment
 注：建议经常使用注释使你的程序易读，这是好的编程习惯。
第二章 简单变量
基本上，简单变量就是一个数据单元，这个单元可以是数字或字符串。
一、整型
1、整型
  PERL最常用的简单变量，由于其与其它语言基本相同，不再赘述。
例：
$x = 12345;
if (1217 + 116 == 1333) {
# statement block goes here
}
  整型的限制：
PERL实际上把整数存在你的计算机中的浮点寄存器中，所以实际上被当作浮点数看待。在多数计算机中，浮点寄存器可以存贮约16位数字，长于此的被丢弃。整数实为浮点数的特例。
2、8进制和16进制数
  8进制以0打头，16进制以0x打头。
  例：$var1 = 047; (等于十进制的39)
  $var2 = 0x1f; (等于十进制的31)
二、浮点数
  如 11.4 、 -0.3 、.3 、 3. 、 54.1e+02 、 5.41e03
  浮点寄存器通常不能精确地存贮浮点数，从而产生误差，在运算和比较中要特别注意。指数的范围通常为-309到+308。
  例：

  #!/usr/local/bin/perl
  $value = 9.01e+21 + 0.01 - 9.01e+21;
  print ("first value is ", $value, "\n";
  $value = 9.01e+21 - 9.01e+21 + 0.01;
  print ("second value is ", $value, "\n";

  ---------------------------------------------------------

  $ program3_3
  first value is 0
  second value is 0.01
三、字符串
  惯用C的程序员要注意，在PERL中，字符串的末尾并不含有隐含的NULL字符，NULL字符可以出现在串的任何位置。
. 双引号内的字符串中支持简单变量替换，例如：
  $number = 11;
  $text = "This text contains the number $number.";
  则$text的内容为："This text contains the number 11."

.双引号内的字符串中支持转义字符
Table 3.1. Escape sequences in strings.
Escape SequenceDescription
\aBell (beep)
\bBackspace
\cnThe Ctrl+n character
\eEscape
\EEnds the effect of \L, \U or \Q
\fForm feed
\lForces the next letter into lowercase
\LAll following letters are lowercase
\nNewline
\rCarriage return
\QDo not look for special pattern characters
\tTab
\uForce next letter into uppercase
\UAll following letters are uppercase
\vVertical tab

\L、\U、\Q功能可以由\E关闭掉，如：
$a = "T\LHIS IS A \ESTRING"; # same as "This is a STRING"

.要在字符串中包含双引号或反斜线，则在其前加一个反斜线，反斜线还可以取消变量替换，如：
  $res = "A quote \" and A backslash \\";
  $result = 14;
  print ("The value of \$result is $result.\n"的结果为：
  The value of $result is 14.

.可用\nnn(8进制)或\xnn(16进制)来表示ASCII字符，如：
  $result = "\377"; # this is the character 255,or EOF
  $result = "\xff"; # this is also 255

.单引号字符串
  单引号字符串与双引号字符串有两个区别，一是没有变量替换功能，二是反斜线不支持转义字符，而只在包含单引号和反斜线时起作用。单引号另一个特性是可以跨多行，如：
  $text = 'This is two
  lines of text
  ';
  与下句等效：
  $text = "This is two\nlines of text\n";

.字符串和数值的互相转换
  例1：
  $string = "43";
  $number = 28;
  $result = $string + $number; # $result = 71
  若字符串中含有非数字的字符，则从左起至第一个非数字的字符，如：
  $result = "hello" * 5; # $result = 0
  $result = "12a34" +1; # $result = 13

.变量初始值
  在PERL中，所有的简单变量都有缺省初始值：""，即空字符。但是建议给所有变量赋初值，否则当程序变得大而复杂后，很容易出现不可预料且很难调试的错误。（未完）

[ Last edited by 幻影无痕 on 2006-11-12 at 08:31 ]
回复此楼

» 收录本帖的淘帖专辑推荐

先进材料与分子模拟 perl语言专栏

» 猜你喜欢
〖愚愚学园〗http://www.scifans.net免费代理|免费期刊|ezproxy|文献检索|学术资源|免费资源
1楼2005-06-14 19:15:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

miRNA

至尊木虫 (职业作家)

水王之王（愚愚学园管理员）
第十三章 Perl的面向对象编程
 本章介绍如何使用Perl的面向对象编程(OOP)特性及如何构建对象，还包括继承、方法重载和数据封装等内容。
一、模块简介
 模块(module)就是Perl包(pachage)。Perl中的对象基于对包中数据项的引用。（引用见第x章引用）。
详见_blank tppabs="http://www.metronet.com/">http://www.metronet.com的perlmod和perlobj。
 在用其它语言进行面向对象编程时，先声明一个类然后创建该类的对象（实例），特定类所有对象的行为方式是相同的，由类方法确定，可以通过定义新类或从现存类继承来创建类。已熟悉面向对象编程的人可以在此遇到许多熟悉的术语。Perl一直是一个面向对象的语言，在Perl5中，语法略有变动，更规范化了对象的使用。
 下面三个定义对理解对象、类和方法在Perl中如何工作至关重要。
 .类是一个Perl包，其中含提供对象方法的类。
 .方法是一个Perl子程序，类名是其第一个参数。
 .对象是对类中数据项的引用。
二、Perl中的类
 再强调一下，一个Perl类是仅是一个包而已。当你看到Perl文档中提到“类”时，把它看作“包”就行了。Perl5的语法可以创建类，如果你已熟悉C++，那么大部分语法你已经掌握了。与Perl4不同的概念是用双冒号(:来标识基本类和继承类（子类）。
 面向对象的一个重要特性是继承。Perl中的继承特性与其它面向对象语言不完全一样，它只继承方法，你必须用自己的机制来实现数据的继承。
 因为每个类是一个包，所以它有自己的名字空间及自己的符号名关联数组（详见第x章关联数组），每个类因而可以使用自己的独立符号名集。与包的引用结合，可以用单引号(')操作符来定位类中的变量，类中成员的定位形式如：$class'$member。在Perl5中，可用双冒号替代单引号来获得引用，如：$class'$member与$class::$member相同。
三、创建类。
 本节介绍创建一个新类的必要步骤。下面使用的例子是创建一个称为Cocoa的简单的类，其功能是输出一个简单的Java应用的源码的必要部分。放心，这个例子不需要你有Java的知识，但也不会使你成为Java专家，其目的是讲述创建类的概念。
 首先，创建一个名为Cocoa.pm的包文件(扩展名pm是包的缺省扩展名，意为Perl Module)。一个模块就是一个包，一个包就是一个类。在做其它事之前，先加入“1;”这样一行，当你增加其它行时，记住保留“1;”为最后一行。这是Perl包的必需条件，否则该包就不会被Perl处理。下面是该文件的基本结构。

package Cocoa;

#
# Put "require" statements in for all required,imported packages
#

#
# Just add code here
#

1; # terminate the package with the required 1;

 接下来，我们往包里添加方法使之成为一个类。第一个需添加的方法是new()，它是创建对象时必须被调用的，new()方法是对象的构造函数。
四、构造函数
 构造函数是类的子程序，它返回与类名相关的一个引用。将类名与引用相结合称为“祝福”一个对象，因为建立该结合的函数名为bless()，其语法为：
 bless YeReference [,classname]
 YeReference是对被“祝福”的对象的引用，classname是可选项，指定对象获取方法的包名，其缺省值为当前包名。
 创建一个构建函数的方法为返回已与该类结合的内部结构的引用，如：

sub new {
  my $this = {}; # Create an anonymous hash, and #self points to it.
  bless $this; # Connect the hash to the package Cocoa.
  return $this; # Return the reference to the hash.
}

1;
 {}创建一个对不含键/值对的哈希表（即关联数组）的引用，返回值被赋给局域变量$this。函数bless()取出该引用，告诉对象它引用的是Cocoa，最后返回该引用。函数的返回值现在指向这个匿名哈希表。
 从new()函数返回后，$this引用被销毁，但调用函数保存了对该哈希表的引用，因此该哈希表的引用数不会为零，从而使Perl在内存中保存该哈希表。创建对象可如下调用：
 $cup = new Cocoa;
 下面语句为使用该包创建对象的例子：

1 #!/usr/bin/perl
2 push (@INC,'pwd');
3 use Cocoa;
4 $cup = new Cocoa;
 第一行指出Perl解释器的位置，第二行中，将当前目录加到路径寻找列表@INC中供寻找包时使用。你也可以在不同的目录中创建你的模块并指出该绝对路径。例如，如果在/home/test/scripts/创建包，第二行就应该如下：
 push (@INC , "/home/test/scripts";
 在第三行中，包含上包Cocoa.pm以获取脚本中所需功能。use语句告诉Perl在@INC路径寻找文件Cocoa.pm并包含到解析的源文件拷贝中。use语句是使用类必须的。第四行调用new函数创建对象，这是Perl的妙处，也是其易混淆之处，也是其强大之处。创建对象的方法有多种，可以这样写：
 $cup = cocoa->new();
 如果你是C程序员，可以用双冒号强制使用Cocoa包中的new()函数，如：
 $cup = Cocoa::new();
 可以在构造函数中加入更多的代码，如在Cocoa.pm中，可以在每个对象创建时输出一个简单声明，还可以用构造函数初始化变量或设置数组或指针。
注意：
1、一定要在构造函数中初始化变量；
2、一定要用my函数在方法中创建变量；
3、一定不要在方法中使用local，除非真的想把变量传递给其它子程序；
4、一定不要在类模块中使用全局变量。
 加上声明的Cocoa构造函数如下：

sub new {
  my $this = {};
  print "\n /* \n ** Created by Cocoa.pm \n ** Use at own risk";
  print "\n ** Did this code even get pass the javac compiler? ";
  print "\n **/ \n";
  bless $this;
  return $this;
}
 也可以简单地调用包内或包外的其它函数来做更多的初始化工作，如：

sub new {
  my $this = {}
  bless $this;
  $this->doInitialization();
  return $this;
}
 创建类时，应该允许它可被继承，应该可以把类名作为第一个参数来调用new函数，那么new函数就象下面的语句：

sub new {
  my $class = shift; # Get the request class name
  my $this = {};
  bless $this, $class # Use class name to bless() reference
  $this->doInitialization(); return $this;
}
 此方法使用户可以下列三种方式之一来进行调用：

Cocoa::new()
Cocoa->new()
new Cocoa
 可以多次bless一个引用对象，然而，新的将被bless的类必然把对象已被bless的引用去掉，对C和Pascal程序员来说，这就象把一个指针赋给分配的一块内存，再把同一指针赋给另一块内存而不释放掉前一块内存。总之，一个Perl对象每一时刻只能属于一个类。
 对象和引用的真正区别是什么呢？Perl对象被bless以属于某类，引用则不然，如果引用被bless，它将属于一个类，也便成了对象。对象知道自己属于哪个类，引用则不属于任何类。


实例变量

 作为构造函数的new()函数的参数叫做实例变量。实例变量在创建对象的每个实例时用于初始化，例如可以用new()函数为对象的每个实例起个名字。
 可以用匿名哈希表或匿名数组来保存实例变量。
 用哈希表的代码如下：

sub new {
my $type = shift;
my %parm = @_;
my $this = {};
$this-> = $parm;
$this-> = $parm;
$this-> = $parm;
bless $this, $type;
}
 用数组保存的代码如下：

sub new {
my $type = shift;
my %parm = @_;
my $this = [];
$this->[0] = $parm;
$this->[1] = $parm;
$this->[2] = $parm;
bless $this, $type;
}
 构造对象时，可以如下传递参数：
 $mug = Cocoa::new( 'Name' => 'top','x' => 10,'y' => 20 );
 操作符=>与逗号操作服功能相同，但=>可读性好。访问方法如下：
 print "Name=$mug->\n";
 print "x=$mug->\n";
 print "y=$mug->\n";
五、方法
 Perl类的方法只不过是一个Perl子程序而已，也即通常所说的成员函数。Perl的方法定义不提供任何特殊语法，但规定方法的第一个参数为对象或其被引用的包。Perl有两种方法：静态方法和虚方法。
 静态方法第一个参数为类名，虚方法第一个参数为对象的引用。方法处理第一个参数的方式决定了它是静态的还是虚的。静态方法一般忽略掉第一个参数，因为它们已经知道自己在哪个类了，构造函数即静态方法。虚方法通常首先把第一个参数shift到变量self或this中，然后将该值作普通的引用使用。如：

1. sub nameLister {
2. my $this = shift;
3. my ($keys ,$value );
4. while (($key, $value) = each (%$this)) {
5. print "\t$key is $value.\n";
6. }
7. }
六、方法的输出
 如果你现在想引用Cocoa.pm包，将会得到编译错误说未找到方法，这是因为Cocoa.pm的方法还没有输出。输出方法需要Exporter模块，在包的开始部分加上下列两行：
 require Exporter;
 @ISA = qw (Exporter);
 这两行包含上Exporter.pm模块，并把Exporter类名加入@ISA数组以供查找。接下来把你自己的类方法列在@EXPORT数组中就可以了。例如想输出方法closeMain和declareMain，语句如下：
 @EXPORT = qw (declareMain , closeMain);
 Perl类的继承是通过@ISA数组实现的。@ISA数组不需要在任何包中定义，然而，一旦它被定义，Perl就把它看作目录名的特殊数组。它与@INC数组类似，@INC是包含文件的寻找路径。@ISA数组含有类(包)名，当一个方法在当前包中未找到时就到@ISA中的包去寻找。@ISA中还含有当前类继承的基类名。
 类中调用的所有方法必须属于同一个类或@ISA数组定义的基类。如果一个方法在@ISA数组中未找到，Perl就到AUTOLOAD()子程序中寻找，这个可选的子程序在当前包中用sub定义。若使用AUTOLOAD子程序，必须用use Autoload;语句调用autoload.pm包。AUTOLOAD子程序尝试从已安装的Perl库中装载调用的方法。如果AUTOLOAD也失败了，Perl再到UNIVERSAL类做最后一次尝试，如果仍失败，Perl就生成关于该无法解析函数的错误。
七、方法的调用
 调用一个对象的方法有两种方法，一是通过该对象的引用（虚方法），一是直接使用类名（静态方法）。当然该方法必须已被输出。现在给Cocoa类增加一些方法，代码如下：
package Cocoa;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(setImports, declareMain, closeMain);
#
# This routine creates the references for imports in Java functions
#
sub setImports{
  my $class = shift @_;
  my @names = @_;
  foreach (@names) {
 print "import " . $_ . ";\n";
  }
}
#
# This routine declares the main function in a Java script
#
sub declareMain{
  my $class = shift @_;
  my ( $name, $extends, $implements) = @_;
  print "\n public class $name";
  if ($extends) {
 print " extends " . $extends;
  }
  if ($implements) {
 print " implements " . $implements;
  }
  print " { \n";
}
#
# This routine declares the main function in a Java script
#
sub closeMain{
  print "} \n";
}
#
# This subroutine creates the header for the file.
#
sub new {
  my $this = {};
  print "\n /* \n ** Created by Cocoa.pm \n ** Use at own risk \n */ \n";
  bless $this;
  return $this;
}

1;
 现在，我们写一个简单的Perl脚本来使用该类的方法，下面是创建一个Java applet源代码骨架的脚本代码：
#!/usr/bin/perl
use Cocoa;
$cup = new Cocoa;
$cup->setImports( 'java.io.InputStream', 'java.net.*');
$cup->declareMain( "Msg" , "java.applet.Applet", "Runnable";
$cup->closeMain();

 这段脚本创建了一个叫做Msg的Java applet，它扩展(extend)了java.applet.Applet小应用程序并使之可运行(runnable)，其中最后三行也可以写成如下：
Cocoa::setImports($cup, 'java.io.InputStream', 'java.net.*');
Cocoa::declareMain($cup, "Msg" , "java.applet.Applet", "Runnable";
Cocoa::closeMain($cup);
 其运行结果如下：
/*
** Created by Cocoa.pm
** Use at own risk
*/
import java.io.InputStream;
import java.net.*;

public class Msg extends java.applet.Applet implements Runnable {
}
 注意：如果用->操作符调用方法（也叫间接调用），参数必须用括号括起来，如：$cup->setImports( 'java.io.InputStream', 'java.net.*');而双冒号调用如：Cocoa::setImports($cup, 'java.io.InputStream', 'java.net.*');也可去掉括号写成：Cocoa::setImports $cup, 'java.io.InputStream', 'java.net.*' ;
八、重载
 有时需要指定使用哪个类的方法，如两个不同的类有同名方法的时候。假设类Espresso和Qava都定义了方法grind，可以用::操作符指定使用Qava的方法：
 $mess = Qava::grind("whole","lotta","bags";
 Qava::grind($mess, "whole","lotta","bags";
 可以根据程序的运行情况来选择使用哪个类的方法，这可以通过使用符号引用去调用来实现：
 $method = $local ? "Qava::" : "Espresso::";
 $cup->grind(@args);
九、析构函数
 Perl跟踪对象的链接数目，当某对象的最后一个应用释放到内存池时，该对象就自动销毁。对象的析构发生在代码停止后，脚本将要结束时。对于全局变量而言，析构发生在最后一行代码运行之后。
 如果你想在对象被释放之前获取控制权，可以定义DESTROY()方法。DESTROY()在对象将释放前被调用，使你可以做一些清理工作。DESTROY()函数不自动调用其它DESTROY()函数，Perl不做内置的析构工作。如果构造函数从基类多次bless，DESTROY()可能需要调用其它类的DESTROY()函数。当一个对象被释放时，其内含的所有对象引用自动释放、销毁。
 一般来说，不需要定义DESTROY()函数，如果需要，其形式如下：

sub DESTROY {
#
# Add code here.
#
}
 因为多种目的，Perl使用了简单的、基于引用的垃圾回收系统。任何对象的引用数目必须大于零，否则该对象的内存就被释放。当程序退出时，Perl的一个彻底的查找并销毁函数进行垃圾回收，进程中的一切被简单地删除。在UNIX类的系统中，这像是多余的，但在内嵌式系统或多线程环境中这确实很必要。
十、继承
 类方法通过@ISA数组继承，变量的继承必须明确设定。下例创建两个类Bean.pm和Coffee.pm，其中Coffee.pm继承Bean.pm的一些功能。此例演示如何从基类（或称超类）继承实例变量，其方法为调用基类的构造函数并把自己的实例变量加到新对象中。
 Bean.pm代码如下：

package Bean;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(setBeanType);

sub new {
  my $type = shift;
  my $this = {};
  $this-> = 'Colombian';
  bless $this, $type;
  return $this;
}

#
# This subroutine sets the class name
sub setBeanType{
  my ($class, $name) = @_;
  $class-> = $name;
  print "Set bean to $name \n";
}
1;
 此类中，用$this变量设置一个匿名哈希表，将'Bean'类型设为'Colombian'。方法setBeanType()用于改变'Bean'类型，它使用$class引用获得对对象哈希表的访问。
 Coffee.pm代码如下：

1#
2# The Coffee.pm file to illustrate inheritance.
3#
4package Coffee;
5require Exporter;
6require Bean;
7@ISA = qw(Exporter, Bean);
8@EXPORT = qw(setImports, declareMain, closeMain);
9#
10 # set item
11 #
12 sub setCoffeeType{
13 my ($class,$name) = @_;
14 $class-> = $name;
15 print "Set coffee type to $name \n";
16 }
17 #
18 # constructor
19 #
20 sub new {
21 my $type = shift;
22 my $this = Bean->new(); ##### <- LOOK HERE!!! ####
23 $this-> = 'Instant'; # unless told otherwise
24 bless $this, $type;
25 return $this;
26 }
27 1;
 第6行的require Bean;语句包含了Bean.pm文件和所有相关函数，方法setCoffeeType()用于设置局域变量$class->的值。在构造函数new()中，$this指向Bean.pm返回的匿名哈希表的指针，而不是在本地创建一个，下面两个语句分别为创建不同的哈希表从而与Bean.pm构造函数创建的哈希表无关的情况和继承的情况：
 my $this = {}; #非继承
 my $this = $theSuperClass->new(); #继承
 下面代码演示如何调用继承的方法：

1#!/usr/bin/perl
2push (@INC,'pwd');
3use Coffee;
4$cup = new Coffee;
5print "\n -------------------- Initial values ------------ \n";
6print "Coffee: $cup-> \n";
7print "Bean: $cup-> \n";
8print "\n -------------------- Change Bean Type ---------- \n";
9$cup->setBeanType('Mixed');
10 print "Bean Type is now $cup-> \n";
11 print "\n ------------------ Change Coffee Type ---------- \n";
12 $cup->setCoffeeType('Instant');
13 print "Type of coffee: $cup-> \n";
 该代码的结果输出如下：

-------------------- Initial values ------------
Coffee: Instant
Bean: Colombian
-------------------- Change Bean Type ----------
Set bean to Mixed
Bean Type is now Mixed
------------------ Change Coffee Type ----------
Set coffee type to Instant
Type of coffee: Instant
 上述代码中，先输出对象创建时哈希表中索引为'Bean'和'Coffee'的值，然后调用各成员函数改变值后再输出。
 方法可以有多个参数，现在向Coffee.pm模块增加函数makeCup()，代码如下：

sub makeCup {
  my ($class, $cream, $sugar, $dope) = @_;
  print "\n================================== \n";
  print "Making a cup \n";
  print "Add cream \n" if ($cream);
  print "Add $sugar sugar cubes\n" if ($sugar);
  print "Making some really addictive coffee ;-) \n" if ($dope);
  print "================================== \n";
}
 此函数可有三个参数，不同数目、值的参数产生不同的结果，例如：

1#!/usr/bin/perl
2push (@INC,'pwd');
3use Coffee;
4$cup = new Coffee;
5#
6# With no parameters
7#
8print "\n Calling with no parameters: \n";
9$cup->makeCup;
10 #
11 # With one parameter
12 #
13 print "\n Calling with one parameter: \n";
14 $cup->makeCup('1');
15 #
16 # With two parameters
17 #
18 print "\n Calling with two parameters: \n";
19 $cup->makeCup(1,'2');
20 #
21 # With all three parameters
22 #
23 print "\n Calling with three parameters: \n";
24 $cup->makeCup('1',3,'1');
 其结果输出如下：

Calling with no parameters:
==================================
Making a cup
==================================
Calling with one parameter:
==================================
Making a cup
Add cream
==================================
Calling with two parameters:
==================================
Making a cup
Add cream
Add 2 sugar cubes
==================================
Calling with three parameters:
==================================
Making a cup
Add cream
Add 3 sugar cubes
Making some really addictive coffee ;-)
==================================
 在此例中，函数makeCup()的参数既可为字符串也可为整数，处理结果相同，你也可以把这两种类型的数据处理区分开。在对参数的处理中，可以设置缺省的值，也可以根据实际输入参数值的个数给予不同处理。
十一、子类方法的重载
 继承的好处在于可以获得基类输出的方法的功能，而有时需要对基类的方法重载以获得更具体或不同的功能。下面在Bean.pm类中加入方法printType()，代码如下：

sub printType {
  my $class = shift @_;
  print "The type of Bean is $class-> \n";
}
 然后更新其@EXPORT数组来输出：
 @EXPORT = qw ( setBeanType , printType );
 现在来调用函数printType()，有三种调用方法：

$cup->Coffee::printType();
$cup->printType();
$cup->Bean::printType();
 输出分别如下：

The type of Bean is Mixed
The type of Bean is Mixed
The type of Bean is Mixed
 为什么都一样呢？因为在子类中没有定义函数printType()，所以实际均调用了基类中的方法。如果想使子类有其自己的printType()函数，必须在Coffee.pm类中加以定义：

#
# This routine prints the type of $class->
#
sub printType {
  my $class = shift @_;
  print "The type of Coffee is $class-> \n";
}
 然后更新其@EXPORT数组：
 @EXPORT = qw(setImports, declareMain, closeMain, printType);
 现在输出结果变成了：

The type of Coffee is Instant
The type of Coffee is Instant
The type of Bean is Mixed
 现在只有当给定了Bean::时才调用基类的方法，否则直接调用子类的方法。
 那么如果不知道基类名该如何调用基类方法呢？方法是使用伪类保留字SUPER::。在类方法内使用语法如：$this->SUPER::function(...argument list...); ，它将从@ISA列表中寻找。刚才的语句用SUPER::替换Bean::可以写为$cup->SUPER::printType(); ，其结果输出相同，为：

The type of Bean is Mixed
十二、Perl类和对象的一些注释
 OOP的最大好处就是代码重用。OOP用数据封装来隐藏一些复杂的代码，Perl的包和模块通过my函数提供数据封装功能，但是Perl并不保证子类一定不会直接访问基类的变量，这确实减少了数据封装的好处，虽然这种动作是可以做到的，但却是个很坏的编程风格。
注意：
1、一定要通过方法来访问类变量。
2、一定不要从模块外部直接访问类变量。
 当编写包时，应该保证方法所需的条件已具备或通过参数传递给它。在包内部，应保证对全局变量的访问只用通过方法传递的引用来访问。对于方法要使用的静态或全局数据，应该在基类中用local()来定义，子类通过调用基类来获取。有时，子类可能需要改变这种数据，这时，基类可能就不知道怎样去寻找新的数据，因此，这时最好定义对该数据的引用，子类和基类都通过引用来改变该数据。
 最后，你将看到如下方式来使用对象和类：
 use coffee::Bean;
 这句语句的含义是“在@INC数组所有目录的Coffee子目录来寻找Bean.pm”。如果把Bean.pm移到./Coffee目录，上面的例子将用这一use语句来工作。这样的好处是有条理地组织类的代码。再如，下面的语句：
 use Another::Sub::Menu;
 意味着如下子目录树：
 ./Another/Sub/Menu.pm
第十四章 Perl5的包和模块
一、require函数
 用require函数可以把程序分割成多个文件并创建函数库。例如，在myfile.pl中有定义好的Perl函数，可用语句require ("myfile.pl"; 在程序中包含进来。当Perl解释器看到这一语句，就在内置数组变量@INC指定的目录中寻找文件myfile.pl。如果找到了，该文件中的语句就被执行，否则程序终止并输出错误信息：
 Can't find myfile.pl in @INC
 作为子程序调用参数，文件中最后一个表达式的值成为返回值，require函数查看其是否为零，若为零则终止。例如myfile.pl最后的语句是：
 print ("hello, world!\n";
 $var = 0;
 因为最后的语句值为零，Perl解释器输出下列错误信息并推出：
 myfile.pl did not reture true value
 可以用简单变量或数组元素等向require传递参数，如：

@reqlist = ("file1.pl", "file2.pl", "file3.pl";
require ($reqlist[$0]);
require ($reqlist[$1]);
require ($reqlist[$2]);
 还可以不指定文件名，即：
 require;
 这时，变量$_的值即作为文件名传递给require。
 注：如果@INC中有多个目录中含有同一个文件，则只有第一个被包含。
1、require函数和子程序库
 用require函数可以创建可用于所有Perl程序的子程序库，步骤如下：

a、确定存贮子程序库的目录
b、将子程序抽取放到单独的文件中，将文件放到子程序库目录
c、每个文件末尾加一句非零值的语句，最简单的办法是语句 1;
d、在主程序中用require包含一个或多个所需的文件。
e、运行主程序时，用 -I 选项指定子程序库目录，或者在调用require前将该目录添加到@INC数组中。
 例如：假设目录/u/perldir中存有你的Perl子程序库，子程序mysub存贮在文件mysub.pl中。现在来包含上该文件：
 unshift (@INC, "/u/perldir";
 require ("mysub.pl";
 对unshift的调用把目录/u/perldir添加到@INC数组，对require的调用将mysub.pl文件的内容包含进来作为程序的一部分。
注意：

1、应该使用unshift来向@INC中添加目录，而不是push。因为push增加到@INC的末尾，则该目录将被最后搜寻。
2、如果你的库文件名与/usr/local/lib/perl中的某文件同名，则不会被包含进来，因为require只包含同名文件中的第一个。
2、用require指定Perl版本
 Perl 5中，可以用require语句来指定程序运行所需的Perl版本。当Perl解释器看到require后跟着数字时，则只有其版本高于或等于该数字时才运行该程序。例如，下面语句表明只有Perl解释器为5.001版或更高时才运行该程序：
 require 5.001;
二、包
 Perl程序把变量和子程序的名称存贮到符号表中，perl的符号表中名字的集合就称为包(package)。
1、包的定义
 在一个程序中可以定义多个包，每个包有一个单独的符号表，定义语法为：
 package mypack;
 此语句定义一个名为mypack的包，从此以后定义的所有变量和子程序的名字都存贮在该包关联的符号表中，直到遇到另一个package语句为止。
 每个符号表有其自己的一组变量、子程序名，各组名字是不相关的，因此可以在不同的包中使用相同的变量名，而代表的是不同的变量。如：

$var = 14;
package mypack;
$var = 6;
 第一个语句创建变量$var并存贮在main符号表中，第三个语句创建另一个同名变量$var并存贮在mypack包的符号表中。
2、在包间切换
 在程序里可以随时在包间来回切换，如：

1: #!/usr/local/bin/perl
2:
3: package pack1;
4: $var = 26;
5: package pack2;
6: $var = 34;
7: package pack1;
8: print ("$var\n";
 运行结果如下：

$ program
26
$
 第三行定义了包pack1，第四行创建变量$var，存贮在包pack1的符号表中，第五行定义新包pack2，第六行创建另一个变量$var，存贮在包pack2的符号表中。这样就有两个独立的$var，分别存贮在不同的包中。第七行又指定pack1为当前包，因为包pack1已经定义，这样，所有变量和子程序的定义和调用都为该包的符号表中存贮的名字。因此第八行对$var的调用为pack1包中的$var，其值为26。
3、main包
 存贮变量和子程序的名字的缺省符号表是与名为main的包相关联的。如果在程序里定义了其它的包，当你想切换回去使用缺省的符号表，可以重新指定main包：
 package main;
 这样，接下来的程序就好象从没定义过包一样，变量和子程序的名字象通常那样存贮。
4、包的引用
 在一个包中可以引用其它包中的变量或子程序，方法是在变量名前面加上包名和一个单引号，如：

package mypack;
$var = 26;
package main;
print ("$mypack'var\n";
 这里，$mypack'var为mypack包中的变量$var。
 注意：在Perl 5中，包名和变量名用双冒号隔开，即$mypack::var。单引号引用的方式仍然支持，但将来的版本中未必支持。
5、指定无当前包
 在Perl 5中，可以用如下语句指定无当前包：
package;
 这时，所有的变量必须明确指出所属包名，否则就无效--错误。
$mypack::var = 21; #ok
$var = 21; #error - no current package
 这种情况直到用package语句指定当前包为止。
6、包和子程序
 包的定义影响到程序中的所有语句，包括子程序，如：

package mypack;
subroutine mysub {
  local ($myvar);
  # stuff goes here
}
 这里，mysub和myvar都是包mypack的一部分。在包mypack外调用子程序mysub，则要指定包：$mypack'mysub。
 可以在子程序中切换包：

package pack1;
subroutine mysub {
  $var1 = 1;
  package pack2;
  $var1 = 2;
}
 这段代码创建了两个变量$var1，一个在包pack1中，一个在包pack2中，包中的局域变量只能在其定义的子程序等语句块中使用，像普通的局域变量一样。
7、用包定义私有数据
 包最通常的用途是用在含有子程序和子程序所使用的全局变量的文件中，为子程序定义这样的包，可以保证子程序使用的全局变量不可在其它地方使用，这样的数据即为私有数据。更进一步，可以保证包名不可在其它地方使用。私有数据例：

1 : package privpack;
2 : $valtoprint = 46;
3 :
4 : package main;
5 : # This function is the link to the outside world.
6 : sub printval {
7 : &privpack'printval();
8 : }
9 :
10: package privpack;
11: sub printval {
12: print ("$valtoprint\n";
13: }
14:
15: package main;
16: 1; # return value for require
 此子程序只有在调用printval后才能产生输出。
 该文件分为两个部分：与外界联系的部分和私有部分。前者为缺省的main包，后者为包privpack。第6~8行定义的子程序printval可被其它程序或子程序调用。printval输出变量$valtoprint的值，此变量仅在包privpack中定义和使用。第15、16行确保其被其它程序用require语句包含后工作正常，15行将当前包设置回缺省包main，16行返回非零值使require不报错。
8、包和系统变量
 下列变量即使从其它包中调用，也在main包中起作用：

文件变量STDIN, STDOUT, STDERR 和 ARGV
变量%ENV, %INC, @INC, $ARGV 和 @ARGV
其它含有特殊字符的系统变量
9、访问符号表
 在程序中查找符号表可用数组%_package，此处package为想访问的符号表所属的包名。例如%_main含有缺省的符号表。
 通常不需要亲自查找符号表。

三、模块
 多数大型程序都分割成多个部件，每一部件通常含有一个或多个子程序及相关的变量，执行特定的一个或多个任务。集合了变量和子程序的部件称为程序模块。
1、创建模块
 Perl 5中用包来创建模块，方法是创建包并将之存在同名的文件中。例如，名为Mymodult的包存贮在文件Mymodult.pm中（扩展名.pm表示Perl Module）。下例的模块Mymodult含有子程序myfunc1和myfunc2及变量$myvar1和$myvar2。

1 : #!/usr/local/bin/perl
2 :
3 : package Mymodule;
4 : require Exporter;
5 : @ISA = qw(Exporter);
6 : @EXPORT = qw(myfunc1 myfunc2);
7 : @EXPORT_OK = qw($myvar1 $myvar2);
8 :
9 : sub myfunc1 {
10: $myvar1 += 1;
11: }
12:
13: sub myfunc2 {
14: $myvar2 += 2;
15: }
 第3~7行是标准的Perl模块定义方式。第3行定义包，第4行包含内置Perl模块Exporter，6、7行进行子程序和变量的输出以与外界联系。第6行创建名为@EXPORT的特殊数组，该数组中的子程序可以被其它程序调用，这里，myfunc1和myfunc2可以被访问。其它任何在模块中定义但没有赋给数组@EXPORT的子程序都是私有的，只能在模块内部调用。第7行创建另一个名为@EXPORT_OK的特殊数组，其中含有可被外部程序访问的变量，这里含有$myvar1和$myvar2。
2、导入模块
 将模块导入你的Perl程序中使用use语句，如下句导入了Mymodule模块：
use Mymodule;
 这样，模块Mymodule中的子程序和变量就可以使用了。
 取消导入模块使用no语句，如下句取消了Mymodule模块的导入：
no Mymodule;
 下面看一个导入模块和取消导入的例子，使用integer模块要求所有数字运算基于整数，浮点数在运算前均被转化为整数。

1: #!/usr/local/bin/perl
2:
3: use integer;
4: $result = 2.4 + 2.4;
5: print ("$result\n";
6:
7: no integer;
8: $result = 2.4 + 2.4;
9: print ("$result\n";
 程序输出如下：

$ program
4
4.8
$
 如果use或no语句出现在语句块中，则只在该块的有效范围内起作用，如：

use integer;
$result1 = 2.4 + 2.4;
if ($result1 == 4) {
no integer;
$result2 = 3.4 + 3.4;
}
$result3 = 4.4 + 4.4;
 结果输出如下：

4
6.8
8
 这里，no语句只在if语句中有效，出了if语句仍使用integer模块，因此4.4在做加法前被转化成了4。
3、预定义模块
 Perl 5提供了许多有用的预定义模块，可以用use导入和no语句取消。下面是库中最有用的一些模块：

integer使用整数运算
Diagnostics 输出较多的诊断信息（警告）
English允许英文名用作系统变量的别名
Env导入环境变量的Perl模块
POSIXPOSIX标准（IEEE 1003.1）的Perl接口
Socket装载C语言的套接字处理机制

 Perl文档中有完整的预定义模块列表。
 注：世界各地的Perl 5用户写了许多有用的模块，CPAN(Comprehensive Perl Archive Network)的Perl文档有其完整的列表。关于CPAN的更多信息见其网址：_blank tppabs="http://www.perl.com/perl/CPAN/README.html">http://www.perl.com/perl/CPAN/README.html。
赞一下 回复此楼
〖愚愚学园〗http://www.scifans.net免费代理|免费期刊|ezproxy|文献检索|学术资源|免费资源
8楼2005-06-14 19:24:54
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答

miRNA

至尊木虫 (职业作家)

水王之王（愚愚学园管理员）
★
yuefour(金币+1):辛苦了
第三章 操作符
一、算术操作符 ：+(加)、-(减)、*(乘)、/(除)、**(乘幂)、%(取余)、-(单目负)
  (1)乘幂的基数不能为负，如 (-5) ** 2.5 # error；
  (2)乘幂结果不能超出计算机表示的限制，如10 ** 999999 # error
  (3)取余的操作数如不是整数，四舍五入成整数后运算；运算符右侧不能为零
  (4)单目负可用于变量： - $y ; # 等效于 $y * -1
二、整数比较操作符


Table 3.1. 整数比较操作符
操作符描述
<小于
>大于
==等于
<=小于等于
>=大于等于
!=不等于
<=>比较，返回 1, 0, or -1


操作符<=>结果为：
  0 - 两个值相等
  1 - 第一个值大
  1 - 第二个值大
三、字符串比较操作符


Table 3.2. 字符串比较操作符
操作符描述　
lt 小于　
gt 大于　
eq 等于　
le 小于等于　
ge 大于等于　
ne 不等于　
cmp 比较，返回 1, 0, or -1　


四、逻辑操作符
  逻辑或：$a || $b 或 $a or $b
  逻辑与：$a && $b 或 $a and $b
  逻辑非：! $a 或 not $a
  逻辑异或：$a xor $b
五、位操作符
  位与：&
  位或：|
  位非：~
  位异或：^
  左移：$x << 1
  右移：$x >> 2
  注：不要将&用于负整数，因为PERL将会把它们转化为无符号数。
六、赋值操作符


Table 3.3. 赋值操作符
操作符描述
=Assignment only
+=Addition and assignment
-=Subtraction and assignment
*=Multiplication and assignment
/=Division and assignment
%=Remainder and assignment
**=Exponentiation and assignment
&=Bitwise AND and assignment
|=Bitwise OR and assignment
^=Bitwise XOR and assignment



Table 3.4. 赋值操作符例子
表达式等效表达式
$a = 1; none (basic assignment)
$a -= 1; $a = $a - 1;
$a *= 2; $a = $a * 2;
$a /= 2; $a = $a / 2;
$a %= 2; $a = $a % 2;
$a **= 2; $a = $a ** 2;
$a &= 2; $a = $a & 2;
$a |= 2; $a = $a | 2;
$a ^= 2; $a = $a ^ 2;


.=可在一个赋值语句中出现多次，如：
  $value1 = $value2 = "a string";
.=作为子表达式
  ($a = $b) += 3;
  等价于
  $a = $b;
  $a += 3;
  但建议不要使用这种方式。
七、自增自减操作符 ：++、--(与C++中的用法相同)
.不要在变量两边都使用此种操作符：++$var-- # error
.不要在变量自增/减后在同一表达式中再次使用：$var2 = $var1 + ++$var1; # error
.在PERL中++可用于字符串，但当结尾字符为'z'、'Z'、'9'时进位，如：
  $stringvar = "abc";
  $stringvar++; # $stringvar contains "abd" now

  $stringvar = "aBC";
  $stringvar++; # $stringvar contains "aBD" now

  $stringvar = "abz";
  $stringvar++; # $stringvar now contains "aca"

  $stringvar = "AGZZZ";
  $stringvar++; # $stringvar now contains "AHAAA"

  $stringvar = "ab4";
  $stringvar++; # $stringvar now contains "ab5"

  $stringvar = "bc999";
  $stringvar++; # $stringvar now contains "bd000"
.不要使用--，PERL将先将字符串转换为数字再进行自减
  $stringvar = "abc";
  $stringvar--; # $stringvar = -1 now

.如果字符串中含有非字母且非数字的字符，或数字位于字母中，则经过++运算前值转换为数字零，因此结果为1，如：
  $stringvar = "ab*c";
  $stringvar++;
  $stringvar = "ab5c";
  $stringvar++;
八、字符串联结和重复操作符
  联接: .
  重复：x
  联接且赋值(类似+=)： .=
例：
  $newstring = "potato" . "head";
  $newstring = "t" x 5;
  $a = "be";
  $a .= "witched"; # $a is now "bewitched"
九、逗号操作符
  其前面的表达式先进行运算，如：
  $var1 += 1, $var2 = $var1;
  等价于
  $var1 += 1;
  $var2 = $var1;
  使用此操作符的唯一理由是提高程序的可读性，将关系密切的两个表达式结合在一起，如：
  $val = 26;
  $result = (++$val, $val + 5); # $result = 32
  注意如果此处没有括号则意义不同：
  $val = 26;
  $result = ++$val, $val + 5; # $result = 27
十、条件操作符
  与C中类似，条件?值1:值2，当条件为真时取值1，为假时取值2，如：
  $result = $var == 0 ? 14 : 7;
  $result = 43 + ($divisor == 0 ? 0 : $dividend / $divisor);
  PERL 5中，还可以在赋值式左边使用条件操作符来选择被赋值的变量，如：
  $condvar == 43 ? $var1 : $var2 = 14;
  $condvar == 43 ? $var1 = 14 : $var2 = 14;
十一、操作符的次序


Table 3.6. 操作符次序
操作符描述
++, -- 自增，自减
-, ~, ! 单目
** 乘方
=~, !~ 模式匹配
*, /, %, x 乘，除，取余，重复
+, -, . 加，减，联接
<<, >> 移位
-e, -r, etc. 文件状态
<, <=, >, >=, lt, le, gt, ge 不等比较
==, !=, <=>, eq, ne, cmp 相等比较
& 位与
|, ^ 位或，位异或
&& 逻辑与
|| 逻辑或
.. 列表范围
? and : 条件操作符
=, +=, -=, *=, 赋值
and so on　
,逗号操作符
not Low-precedence logical NOT
and Low-precedence logical AND
or, xor Low-precedence logical OR and XOR

.操作符结合性(associativity)：

Table 3.7. 操作符结合性
操作符结合性
++, -- 无
-, ~, ! Right-to-left
** Right-to-left
=~, !~ Left-to-right
*, /, %, x Left-to-right
+, -, . Left-to-right
<<, >> Left-to-right
-e, -r, 无
<, <=, >, >=, lt, le, gt, ge Left-to-right
==, !=, <=>, eq, ne, cmp Left-to-right
& Left-to-right
|, ^ Left-to-right
&& Left-to-right
|| Left-to-right
.. Left-to-right
? and : Right-to-left
=, +=, -=, *=, Right-to-left
and so on　
,Left-to-right
not Left-to-right
and Left-to-right
or, xor Left-to-right



建议：
  1、当你不确定某操作符是否先执行时，一定要用括号明确之。
  2、用多行、空格等方式提高程序的可读性。
第四章 列表和数组变量
一、列表
  列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(1, 5.3 , "hello" , 2)，空列表：()。
  注：只含有一个数值的列表(如：(43.2) )与该数值本身(即：43.2 )是不同的，但它们可以互相转化或赋值。
  列表例：
 (17, $var, "a string"
 (17, 26 << 2)
 (17, $var1 + $var2)
 ($value, "The answer is $value"
二、数组--列表的存贮
  列表存贮于数组变量中，与简单变量不同，数组变量以字符"@"打头，如：
 @array = (1, 2, 3);
  注：
(1)数组变量创建时初始值为空列表：()。
(2)因为PERL用@和$来区分数组变量和简单变量，所以同一个名字可以同时用于数组变量和简单变量，如：
 $var = 1;
 @var = (11, 27.1 , "a string";
  但这样很容易混淆，故不推荐。
1、数组的存取
  .对数组中的值通过下标存取，第一个元素下标为0。试图访问不存在的数组元素，则结果为NULL，但如果给超出数组大小的元素赋值，则数组自动增长，原来没有的元素值为NULL。如：
 @array = (1, 2, 3, 4);
 $scalar = $array[0];
 $array[3] = 5; # now @array is (1,2,3,5)
 $scalar = $array[4]; # now $scalar = null;
 $array[6] = 17; # now @array is (1,2,3,5,"","",17)
  .数组间拷贝
 @result = @original;
  .用数组给列表赋值
 @list1 = (2, 3, 4);
 @list2 = (1, @list1, 5); # @list2 = (1, 2, 3, 4, 5)
  .数组对简单变量的赋值
 (1) @array = (5, 7, 11);
 ($var1, $var2) = @array; # $var1 = 5, $var2 = 7, 11被忽略
 (2) @array = (5, 7);
 ($var1, $var2, $var3) = @array; # $var1 = 5, $var2 = 7, $var3 ="" (null)
  .从标准输入(STDIN)给变量赋值
 $var = ;
 @array = ; # ^D为结束输入的符号
2 、字符串中的方括号和变量替换
 "$var[0]" 为数组@var的第一个元素。
 "$var\[0]" 将字符"["转义，等价于"$var". "[0]"，$var被变量替换，[0]保持不变。
 "$[0]" 亦等价于"$var" ."[0]"。
 "$\"则取消了大括号的变量替换功能，包含文字：$.
3、列表范围：
 (1..10) = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
 (2, 5..7, 11) = (2, 5, 6, 7, 11)
 (3..3) = (3)
  .用于实数
 (2.1..5.3) = (2.1, 3.1 ,4.1, 5.1)
 (4.5..1.6) = ()
  .用于字符串
 ("aaa".."aad" = ("aaa","aab", "aac", "aad"
 @day_of_month = ("01".."31"
  .可包含变量或表达式
 ($var1..$var2+5)
  .小技巧：
 $fred = "Fred";
 print (("Hello, " . $fred . "!\n" x 2);
  其结果为：
 Hello, Fred!
 Hello, Fred!
4、数组的输出：
(1) @array = (1, 2, 3);
 print (@array, "\n";
  结果为：
 123
(2) @array = (1, 2, 3);
 print ("@array\n";
  结果为：
 1 2 3
5、列表/数组的长度
  当数组变量出现在预期简单变量出现的地方，则PERL解释器取其长度。
 @array = (1, 2, 3);
 $scalar = @array; # $scalar = 3,即@array的长度
 ($scalar) = @array; # $scalar = 1,即@array第一个元素的值
  注：以数组的长度为循环次数可如下编程：
 $count = 1;
 while ($count <= @array) {
 print ("element $count: $array[$count-1]\n";
 $count++;
 }
6、子数组
 @array = (1, 2, 3, 4, 5);
 @subarray = @array[0,1]; # @subarray = (1, 2)
 @subarray2 = @array[1..3]; # @subarray2 = (2,3,4)
 @array[0,1] = ("string", 46); # @array =("string",46,3,4,5) now
 @array[0..3] = (11, 22, 33, 44); # @array = (11,22,33,44,5) now
 @array[1,2,3] = @array[3,2,4]; # @array = (11,44,33,5,5) now
 @array[0..2] = @array[3,4]; # @array = (5,5,"",5,5) now
  可以用子数组形式来交换元素：
 @array[1,2] = @array[2,1];
7、有关数组的库函数
(1)sort--按字符顺序排序
 @array = ("this", "is", "a","test";
 @array2 = sort(@array); # @array2 = ("a","is", "test", "this"
 @array = (70, 100, 8);
 @array = sort(@array); # @array = (100, 70, 8) now
( 2)reverse--反转数组
 @array2 = reverse(@array);
 @array2 = reverse sort (@array);
(3)chop--数组去尾
 chop的意义是去掉STDIN（键盘）输入字符串时最后一个字符--换行符。而如果它作用到数组上，则将数组中每一个元素都做如此处理。
 @list = ("rabbit", "12345","quartz";
 chop (@list); # @list = ("rabbi", "1234","quart" now
( 4)join/split--连接/拆分
 join的第一个参数是连接所用的中间字符，其余则为待连接的字符数组。
 $string = join(" ", "this", "is","a", "string"; # 结果为"this is a string"
 @list = ("words","and";
 $string = join("::", @list, "colons"; #结果为"words::and::colons"
 @array = split(/::/,$string); # @array = ("words","and", "colons" now
(未完)
赞一下(5人) 回复此楼
〖愚愚学园〗http://www.scifans.net免费代理|免费期刊|ezproxy|文献检索|学术资源|免费资源
2楼2005-06-14 19:15:41
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

miRNA

至尊木虫 (职业作家)

水王之王（愚愚学园管理员）
第五章 文件读写
一、打开、关闭文件
  语法为open (filevar, filename)，其中filevar为文件句柄，或者说是程序中用来代表某文件的代号，filename为文件名，其路径可为相对路径，亦可为绝对路径。
 open(FILE1,"file1");
 open(FILE1, "/u/jqpublic/file1");
  打开文件时必须决定访问模式，在PERL中有三种访问模式：读、写和添加。后两种模式的区别在于写模式将原文件覆盖，原有内容丢失，形式为：open(outfile,">outfile");而添加模式则在原文件的末尾处继续添加内容，形式为：open(appendfile, ">>appendfile")。要注意的是，不能对文件同时进行读和写/添加操作。
  open的返回值用来确定打开文件的操作是否成功，当其成功时返回非零值，失败时返回零，因此可以如下判断：
 if (open(MYFILE, "myfile")) {
 # here's what to do if the file opened successfully
 }
  当文件打开失败时结束程序：
 unless (open (MYFILE, "file1")) {
 die ("cannot open input file file1\n");
 }
  亦可用逻辑或操作符表示如下：
 open (MYFILE, "file1") || die ("Could not open file");
  当文件操作完毕后，用close(MYFILE); 关闭文件。
二、读文件
  语句$line = ;从文件中读取一行数据存储到简单变量$line中并把文件指针向后移动一行。为标准输入文件，通常为键盘输入，不需要打开。
  语句@array = ;把文件的全部内容读入数组@array，文件的每一行(含回车符)为@array的一个元素。
三、写文件
  形式为：
 open(OUTFILE, ">outfile");
 print OUTFILE ("Here is an output line.\n");
  注：STDOUT、STDERR为标准输出和标准错误文件，通常为屏幕，且不需要打开。
四、判断文件状态
1、文件测试操作符
  语法为：-op expr，如：
 if (-e "/path/file1") {
 print STDERR ("File file1 exists.\n");
 }

文件测试操作符
操作符描述
-b是否为块设备
-c 是否为字符设备
-d 是否为目录
-e 是否存在
-f 是否为普通文件
-g 是否设置了setgid位
-k 是否设置了sticky位
-l 是否为符号链接
-o 是否拥有该文件
-p 是否为管道
-r 是否可读
-s 是否非空
-t 是否表示终端
-u 是否设置了setuid位
-w 是否可写
-x 是否可执行
-z 是否为空文件
-A 距上次访问多长时间
-B 是否为二进制文件
-C 距上次访问文件的inode多长时间
-M 距上次修改多长时间
-O 是否只为“真正的用户”所拥有
-R 是否只有“真正的用户”可读
-S 是否为socket
-T 是否为文本文件
-W 是否只有"真正的用户"可写
-X 是否只有"真正的用户"可执行
注：“真正的用户”指登录时指定的userid，与当前进程用户ID相对，命令suid可以改变有效用户ID。

  例：
 unless (open(INFILE, "infile")) {
 die ("Input file infile cannot be opened.\n");
 }
 if (-e "outfile") {
 die ("Output file outfile already exists.\n");
 }
 unless (open(OUTFILE, ">outfile")) {
 die ("Output file outfile cannot be opened.\n");
 }
  等价于
 open(INFILE, "infile") && !(-e "outfile") &&
 open(OUTFILE, ">outfile") || die("Cannot open files\n");
五、命令行参数
  象C一样，PERL也有存储命令行参数的数组@ARGV，可以用来分别处理各个命令行参数；与C不同的是，$ARGV[0]是第一个参数，而不是程序名本身。
 $var = $ARGV[0]; # 第一个参数
 $numargs = @ARGV; # 参数的个数
  PERL中，<>操作符实际上是对数组@ARGV的隐含的引用，其工作原理为：
1、当PERL解释器第一次看到<>时，打开以$ARGV[0]为文件名的文件；
2、执行动作shift(@ARGV); 即把数组@ARGV的元素向前移动一个，其元素数量即减少了一个。
3、<>操作符读取在第一步打开的文件中的所有行。
4、读完后，解释器回到第一步重复。
  例：
 @ARGV = ("myfile1", "myfile2"); #实际上由命令行参数赋值
 while ($line = <>) {
 print ($line);
 }
  将把文件myfile1和myfile2的内容打印出来。
六、打开管道
  用程序的形式也可以象命令行一样打开和使用管道(ex:ls > tempfile)。如语句open (MYPIPE, "| cat >hello"); 打开一个管道，发送到MYPIPE的输出成为命令"cat >hello"的输入。由于cat命令将显示输入文件的内容，故该语句等价于open(MYPIPE, ">hello"); 用管道发送邮件如下：
 open (MESSAGE, "| mail dave");
 print MESSAGE ("Hi, Dave! Your Perl program sent this!\n");
 close (MESSAGE);
第六章 模式匹配
一、简介
模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array = split(/ /, $line);
二、匹配操作符 =~、!~
=~检验匹配是否成功：$result = $var =~ /abc/;若在该字符串中找到了该模式，则返回非零值，即true，不匹配则返回0，即false。!~则相反。
这两个操作符适于条件控制中，如：
if ($question =~ /please/) {
print ("Thank you for being polite!\n");
}
else {
print ("That was not very polite!\n");
}
三、模式中的特殊字符
PERL在模式中支持一些特殊字符，可以起到一些特殊的作用。
1、字符 +
+意味着一个或多个相同的字符，如：/de+f/指def、deef、deeeeef等。它尽量匹配尽可能多的相同字符，如/ab+/在字符串abbc中匹配的将是abb，而不是ab。
当一行中各单词间的空格多于一个时，可以如下分割：
@array = split (/ +/, $line);
注：split函数每次遇到分割模式，总是开始一个新单词，因此若$line以空格打头，则@array的第一个元素即为空元素。但其可以区分是否真有单词，如若$line中只有空格，则@array则为空数组。且上例中TAB字符被当作一个单词。注意修正。
2、字符 []和[^]
[]意味着匹配一组字符中的一个，如/a[0123456789]c/将匹配a加数字加c的字符串。与+联合使用例：/d[eE]+f/匹配def、dEf、deef、dEdf、dEEEeeeEef等。^表示除其之外的所有字符，如：/d[^deE]f/匹配d加非e字符加f的字符串。
3、字符 *和?
它们与+类似，区别在于*匹配0个、1个或多个相同字符，?匹配0个或1个该字符。如/de*f/匹配df、def、deeeef等；/de?f/匹配df或def。
4、转义字符
如果你想在模式中包含通常被看作特殊意义的字符，须在其前加斜线"\"。如：/\*+/中\*即表示字符*，而不是上面提到的一个或多个字符的含义。斜线的表示为/\\/。在PERL5中可用字符对\Q和\E来转义。
5、匹配任意字母或数字
上面提到模式/a[0123456789]c/匹配字母a加任意数字加c的字符串，另一种表示方法为：/a[0-9]c/，类似的，[a-z]表示任意小写字母，[A-Z]表示任意大写字母。任意大小写字母、数字的表示方法为：/[0-9a-zA-Z]/。
6、锚模式

锚描述
^ 或 \A仅匹配串首
$ 或 \Z仅匹配串尾
\b匹配单词边界
\B单词内部匹配

例1：/^def/只匹配以def打头的字符串，/$def/只匹配以def结尾的字符串，结合起来的/^def$/只匹配字符串def(?)。\A和\Z在多行匹配时与^和$不同。
例2：检验变量名的类型：
if ($varname =~ /^\$[A-Za-z][_0-9a-zA-Z]*$/) {
print ("$varname is a legal scalar variable\n");
} elsif ($varname =~ /^@[A-Za-z][_0-9a-zA-Z]*$/) {
print ("$varname is a legal array variable\n");
} elsif ($varname =~ /^[A-Za-z][_0-9a-zA-Z]*$/) {
print ("$varname is a legal file variable\n");
} else {
print ("I don't understand what $varname is.\n");
 }
例3：\b在单词边界匹配：/\bdef/匹配def和defghi等以def打头的单词，但不匹配abcdef。/def\b/匹配def和abcdef等以def结尾的单词，但不匹配defghi，/\bdef\b/只匹配字符串def。注意：/\bdef/可匹配$defghi，因为$并不被看作是单词的部分。
例4：\B在单词内部匹配：/\Bdef/匹配abcdef等，但不匹配def；/def\B/匹配defghi等；/\Bdef\B/匹配cdefg、abcdefghi等，但不匹配def,defghi,abcdef。
7、模式中的变量替换
将句子分成单词：
$pattern = "[\\t ]+";
@words = split(/$pattern/, $line);
8、字符范围转义

E 转义字符描述范围
\d任意数字[0-9]
\D除数字外的任意字符 [^0-9]
\w任意单词字符[_0-9a-zA-Z]
\W任意非单词字符[^_0-9a-zA-Z]
\s空白[ \r\t\n\f]
\S非空白[^ \r\t\n\f]

例：/[\da-z]/匹配任意数字或小写字母。
9、匹配任意字符
字符"."匹配除换行外的所有字符，通常与*合用。
10、匹配指定数目的字符
字符对{}指定所匹配字符的出现次数。如：/def/匹配def,deef和deeef；/def/匹配deeef；/def/匹配不少于3个e在d和f之间；/def/匹配不多于3个e在d和f之间。
11、指定选项
字符"|"指定两个或多个选择来匹配模式。如：/def|ghi/匹配def或ghi。
例：检验数字表示合法性
if ($number =~ /^-?\d+$|^-?0[xX][\da-fa-F]+$/) {
print ("$number is a legal integer.\n");
} else {
print ("$number is not a legal integer.\n");
}
其中 ^-?\d+$ 匹配十进制数字，^-?0[xX][\da-fa-F]+$ 匹配十六进制数字。
12、模式的部分重用
当模式中匹配相同的部分出现多次时，可用括号括起来，用\n来多次引用，以简化表达式：
/\d([\W])\d\1\d/ 匹配：
12-05-92
26.11.87
07 04 92等
注意：/\d([\W])\d\1\d/ 不同于/(\d)([\W])\1\2\1/ ，后者只匹配形如17-17-17的字符串，而不匹配17-05-91等。
13、转义和特定字符的执行次序
象操作符一样，转义和特定字符也有执行次序：

特殊字符描述
()模式内存
+ * ? {}出现次数
^ $ \b \B锚
|选项

14、指定模式定界符
缺省的，模式定界符为反斜线/，但其可用字母m自行指定，如：
m!/u/jqpublic/perl/prog1! 等价于/\/u\/jqpublic\/perl\/prog1/
注：当用字母'作为定界符时，不做变量替换；当用特殊字符作为定界符时，其转义功能或特殊功能即不能使用。
15、模式次序变量
在模式匹配后调用重用部分的结果可用变量$n，全部的结果用变量$Content$amp;。
$string = "This string contains the number 25.11.";
$string =~ /-?(\d+)\.?(\d+)/; # 匹配结果为25.11
$integerpart = $1; # now $integerpart = 25
$decimalpart = $2; # now $decimalpart = 11
$totalpart = $Content$amp;; # now totalpart = 25.11
四、模式匹配选项

选项描述
g匹配所有可能的模式
i忽略大小写
m将串视为多行
o只赋值一次
s将串视为单行
x忽略模式中的空白

1、匹配所有可能的模式(g选项)
@matches = "balata" =~ /.a/g; # now @matches = ("ba", "la", "ta")
匹配的循环：
while ("balata" =~ /.a/g) {
$match = $Content$amp;;
print ("$match\n");
}
结果为：
ba
la
ta
当使用了选项g时，可用函数pos来控制下次匹配的偏移：
$offset = pos($string);
pos($string) = $newoffset;
2、忽略大小写(i选项)例
/de/i 匹配de,dE,De和DE。
3、将字符串看作多行(m选项)
在此情况下，^符号匹配字符串的起始或新的一行的起始；$符号匹配任意行的末尾。
4、只执行一次变量替换例
$var = 1;
$line = ;
while ($var < 10) {
$result = $line =~ /$var/o;
$line = ;
$var++;
}
每次均匹配/1/。
5、将字符串看作单行例
/a.*bc/s匹配字符串axxxxx \nxxxxbc，但/a.*bc/则不匹配该字符串。
6、在模式中忽略空格
/\d ([\W]) \d \1 \d/x等价于/\d([\W])\d\1\d/。
五、替换操作符
语法为s/pattern/replacement/，其效果为将字符串中与pattern匹配的部分换成replacement。如：
$string = "abc123def";
$string =~ s/123/456/; # now $string = "abc456def";
在替换部分可使用模式次序变量$n，如s/(\d+)/[$1]/，但在替换部分不支持模式的特殊字符，如{},*,+等，如s/abc/[def]/将把abc替换为[def]。
替换操作符的选项如下表：

选项描述
g改变模式中的所有匹配
i忽略模式中的大小写
e替换字符串作为表达式
m将待匹配串视为多行
o仅赋值一次
s将待匹配串视为单行
x忽略模式中的空白

注：e选项把替换部分的字符串看作表达式，在替换之前先计算其值，如：
$string = "0abc1";
$string =~ s/[a-zA-Z]+/$Content$amp; x 2/e; # now $string = "0abcabc1"
六、翻译操作符
这是另一种替换方式，语法如：tr/string1/string2/。同样，string2为替换部分，但其效果是把string1中的第一个字符替换为string2中的第一个字符，把string1中的第二个字符替换为string2中的第二个字符，依此类推。如：
$string = "abcdefghicba";
$string =~ tr/abc/def/; # now string = "defdefghifed"
当string1比string2长时，其多余字符替换为string2的最后一个字符；当string1中同一个字符出现多次时，将使用第一个替换字符。
翻译操作符的选项如下：

选项描述
c翻译所有未指定字符
d删除所有指定字符
s把多个相同的输出字符缩成一个

如$string =~ tr/\d/ /c;把所有非数字字符替换为空格。$string =~ tr/\t //d；删除tab和空格；$string =~ tr/0-9/ /cs；把数字间的其它字符替换为一个空格。

七、扩展模式匹配
PERL支持PERL4和标准UNIX模式匹配操作所没有的一些模式匹配能力。其语法为：(?pattern)，其中c是一个字符，pattern是起作用的模式或子模式。
1、不存贮括号内的匹配内容
在PERL的模式中，括号内的子模式将存贮在内存中，此功能即取消存贮该括号内的匹配内容，如/(?:a|b|c)(d|e)f\1/中的\1表示已匹配的d或e，而不是a或b或c。
2、内嵌模式选项
通常模式选项置于其后，有四个选项：i、m、s、x可以内嵌使用，语法为：/(?option)pattern/，等价于/pattern/option。
3、肯定的和否定的预见匹配
肯定的预见匹配语法为/pattern(?=string)/，其意义为匹配后面为string的模式，相反的，(?!string)意义为匹配后面非string的模式，如：
$string = "25abc8";
$string =~ /abc(?=[0-9])/;
$matched = $Content$amp;; # $Content$amp;为已匹配的模式，此处为abc，而不是abc8
4、模式注释
PERL5中可以在模式中用?#来加注释，如：
if ($string =~ /(?i)[a-z](?# match two or three alphabetic characters)/ {
...
}
赞一下 回复此楼
〖愚愚学园〗http://www.scifans.net免费代理|免费期刊|ezproxy|文献检索|学术资源|免费资源
3楼2005-06-14 19:16:56
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

miRNA

至尊木虫 (职业作家)

水王之王（愚愚学园管理员）
第七章 控制结构
一、条件判断
  if ( {

  }
  elsif ( ) {

  }
  ...
  else{

  }
二、循环：
1、while循环
  while ( ) {

  }
2、until循环
  until ( ) {

  }
3、类C的for循环 ，如
  for ($count=1; $count <= 5; $count++) {
 # statements inside the loop go here
  }
下面是在for循环中使用逗号操作符的例子：
  for ($line = , $count = 1; $count <= 3; $line = , $count++) {
 print ($line);
  }
它等价于下列语句：
  $line = ;
  $count = 1;
  while ($count <= 3) {
 print ($line);
 $line = ;
 $count++;
  }
4、针对列表(数组)每个元素的循环：foreach，语法为：
  foreach localvar (listexpr) {
 statement_block;
  }
例：
  foreach $word (@words) {
 if ($word eq "the" {
 print ("found the word 'the'\n";
 }
  }
注：
(1)此处的循环变量localvar是个局部变量，如果在此之前它已有值，则循环后仍恢复该值。
(2)在循环中改变局部变量，相应的数组变量也会改变，如：
  @list = (1, 2, 3, 4, 5);
  foreach $temp (@list) {
 if ($temp == 2) {
 $temp = 20;
 }
  }
此时@list已变成了(1, 20, 3, 4, 5)。
5、do循环
  do {
 statement_block
  } while_or_until (condexpr);
  do循环至少执行一次循环。
6、循环控制
  退出循环为last，与C中的break作用相同；执行下一个循环为next，与C中的continue作用相同；PERL特有的一个命令是redo，其含义是重复此次循环，即循环变量不变，回到循环起始点，但要注意，redo命令在do循环中不起作用。
7、传统的goto label;语句。

三、单行条件
  语法为statement keyword condexpr。其中keyword可为if、unless、while或until，如：
 print ("This is zero.\n" if ($var == 0);
 print ("This is zero.\n" unless ($var != 0);
 print ("Not zero yet.\n" while ($var-- > 0);
 print ("Not zero yet.\n" until ($var-- == 0);
  虽然条件判断写在后面，但却是先执行的
第八章 子程序
一、定义
  子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。PERL中，子程序可以出现在程序的任何地方。定义方法为：
  sub subroutine{
 statements;
  }
二、调用
  调用方法如下：
1、用&调用
  &subname;
  ...
  sub subname{
 ...
  }
2、先定义后调用 ，可以省略&符号
  sub subname{
 ...
  }
  ...
  subname;
3、前向引用 ，先定义子程序名，后面再定义子程序体
  sub subname;
  ...
  subname;
  ...
  sub subname{
 ...
  }
4、用do调用
  do my_sub(1, 2, 3);等价于&my_sub(1, 2, 3);
三、返回值
  缺省的，子程序中最后一个语句的值将用作返回值。语句return (retval);也可以推出子程序并返回值retval，retval可以为列表。
四、局部变量
  子程序中局部变量的定义有两种方法：my和local。其区别是：my定义的变量只在该子程序中存在；而local定义的变量不存在于主程序中，但存在于该子程序和该子程序调用的子程序中(在PERL4中没有my)。定义时可以给其赋值，如：
  my($scalar) = 43;
  local(@array) = (1, 2, 3);
五、子程序参数传递
1、形式
  &sub1(&number1, $number2, $nubmer3);
  ...
  sub sub1{
 my($number1, $number2, $number3) = @_;
 ...
  }
2、传送数组
  &addlist (@mylist);
  &addlist ("14", "6", "11";
  &addlist ($value1, @sublist, $value2);
  ...
  sub addlist {
 my (@list) = @_;
 ...
  }
参数为数组时，子程序只将它赋给一个数组变量。如
  sub twolists {
 my (@list1, @list2) = @_;
  }
中@list2必然为空。但简单变量和数组变量可以同时传递：
  &twoargs(47, @mylist); # 47赋给$scalar，@mylist赋给@list
  &twoargs(@mylist); # @mylist的第一个元素赋给$scalar，其余的元素赋给@list
  ...
  sub twoargs {
 my ($scalar, @list) = @_;
 ...
  }
六、递归子程序
  PERL中，子程序可以互相调用，其调用方法与上述相同，当调用该子程序本身时，即成了递归子程序。递归子程序有两个条件：1、除了不被子程序改变的变量外，所有的变量必须的局部的；2、该子程序要含有停止调用本身的代码。
七、用别名传递数组参数
1、用前面讲到的调用方法&my_sub(@array)将把数组@array的数据拷贝到子程序中的变量@_中，当数组很大时，将会花费较多的资源和时间，而用别名传递将不做这些工作，而对该数组直接操作。形式如：
  @myarray = (1, 2, 3, 4, 5);
  &my_sub(*myarray);
  sub my_sub {
 my (*subarray) = @_;
  }
2、此方法类似于C语言中的传递数组的起始地址指针，但并不一样，在定义数组的别名之后，如果有同名的简单变量，则对该变量也是起作用的。如：
  $foo = 26;
  @foo = ("here's", "a", "list";
  &testsub (*foo);
  ...
  sub testsub {
 local (*printarray) = @_;
 ...
 $printarray = 61;
  }
  当子程序执行完，主程序中的$foo的值已经成了61，而不再是26了。
3、用别名的方法可以传递多个数组，如：
  @array1 = (1, 2, 3);
  @array2 = (4, 5, 6);
  &two_array_sub (*array1, *array2);
  sub two_array_sub {
 my (*subarray1, *subarray2) = @_;
  }
  在该子程序中，subarray1是array1的别名，subarray2是array2的别名。
八、预定义的子程序
  PERL5预定义了三个子程序，分别在特定的时间执行，它们是：BEGIN子程序在程序启动时被调用；END子程序在程序结束时被调用；AUTOLOAD子程序在找不到某个子程序时被调用。你可以自己定义它们，以在特定时间执行所需要的动作。如：
  BEGIN {
 print("Hi! Welcome to Perl!\n";
  }
  AUTOLOAD{
 print("subroutine $AUTOLOAD not found\n"; # 变量$AUTOLOAD即未找到的子程序名
 print("arguments passed: @_\n";
  }
  若同一个预定义子程序定义了多个，则BEGIN顺序执行，END逆序执行。
赞一下 回复此楼
〖愚愚学园〗http://www.scifans.net免费代理|免费期刊|ezproxy|文献检索|学术资源|免费资源
4楼2005-06-14 19:17:17
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 9 个回答
普通表情 龙 兔 虎 猫 高级回复(可上传附件)
信息提示
关闭
请填处理意见
关闭