Perl - 第四篇

时间：2007-02-22 来源：penny_kan

现在有点不清楚从哪里下手学了，难怪有人认为perl一团糟，预定义的东西、语法太多了，而且很多都有一定的关系。不过仍相信它功能强大。一、文件件操作可以使用open来打开，如果普通变量从filehandle读取，则取得文件的首行，如果将内容读入一个@，则每行为数组中的值。打开文件：

open(INFILE, "input.txt") or die "Can't open input.txt: $!";
open(OUTFILE, ">output.txt") or die "Can't open output.txt: $!"; open(LOGFILE, ">>my.log") or die "Can't open logfile: $!";

赋值：

my $line = <INFILE>;
my @lines = <INFILE>;

读取： filehandle本身也可以作为一个数组来读取，如下

while (<INFILE>) {
# assigns each line in turn to $_
print "Just read in this line: $_";
}
效果等同
while (@lines){
print "Just read in this line: $_";
}

关闭：打开一个文件有必要将其关闭掉,如果不关， close INFILE; 二、USE使用

1、用法：use Module VERSION LIST (D:\manual\perl\perldoc-html\functions\use.html)

use Module VERSION or
use Module LIST or
use Module or
use VERSION

Is equivelant to

BEGIN { require Module; import Module LIST; }

2、export：一定要慎用export pay attention:
1/ Do not export method names!
2/ Do not export anything else by default without a good reason!
*Exports pollute the namespace of the module user. 如果必需export操作，最好用@EXPORT_OK代替@EXPORT，并且避免使用短的或常用的符号以防命名冲突。 * 事实上不export仍然可以访问module 中的内容，使用方法ModuleName::item_name (or $blessed_ref->method) 3、import: import用法见use

use ModuleName;
This imports all the symbols from ModuleName's @EXPORT into the namespace of the use statement.
use ModuleName ();
This causes perl to load your module but does not import any symbols.
use ModuleName qw(...); [从前面的export看来，这类import方法最可取，不明白]
This imports only the symbols listed by the caller into their namespace. All listed symbols must be in your @EXPORT or @EXPORT_OK, else an error occurs. The advanced export features of Exporter are accessed like this, but with list entries that are syntactically distinct from symbol names.

三、Run & DEBUG 1/ 在执行前可以检查一下语法 perl -c filename 2/ DEBUG perl -d filename DEBUG使用帮助 v：可看出当前执行到哪一句，可以看到=>标识 l(el) line：切换到哪一行去执行 .(dot): show next 执行 c/n. 下一行 b. break