C++博客-糯米-随笔分类-Perl

perl 常用函数

糯米 — Fri, 26 Aug 2011 10:25:00 GMT

摘自 perldoc.perl.org

map BLOCK LIST
map EXPR, LIST
对于 LIST 里的每一个元素按照 BLOCK 或者 EXPR 里的操作进行求值。
返回求值结果组成的数组。
如果返回值是 scalar 类型，则返回结果数组的大小。
例子：
返回一组数字对应的字符

@chars = map(chr, @numbers);

返回一组数字的平方

my @squares = map { $_ > 5 ? ($_ * $_) : () } @numbers;

返回大于5的数字的平方

my @squares = map { $_ > 5 ? ($_ * $_) : () } @numbers;

由于 map 总是返回一个列表，因此可以赋值给哈希类型的变量：

%hash = map { get_a_key_for($_) => $_ } @array;

也可以这样写：

%hash = ();
foreach (@array) {
    $hash{get_a_key_for($_)} = $_;
}

-X FILEHANDLE
文件测试函数：

-r  File is readable by effective uid/gid.
-w  File is writable by effective uid/gid.
-x  File is executable by effective uid/gid.
-o  File is owned by effective uid.
-R  File is readable by real uid/gid.
-W  File is writable by real uid/gid.
-X  File is executable by real uid/gid.
-O  File is owned by real uid.
-e  File exists.
-z  File has zero size (is empty).
-s  File has nonzero size (returns size in bytes).
-f  File is a plain file.
-d  File is a directory.
-l  File is a symbolic link.
-p  File is a named pipe (FIFO), or Filehandle is a pipe.
-S  File is a socket.
-b  File is a block special file.
-c  File is a character special file.
-t  Filehandle is opened to a tty.
-u  File has setuid bit set.
-g  File has setgid bit set.
-k  File has sticky bit set.
-T  File is an ASCII text file (heuristic guess).
-B  File is a "binary" file (opposite of -T).
-M  Script start time minus file modification time, in days.
-A  Same for access time.
-C  Same for inode change time (Unix, may differ for other platforms)

delete EXPR
EXPR 为哈希变量的 slice 或者是单个元素。
返回值为删除掉元素的值，可以是列表。
如果返回值被要求为 scalar 类型，则返回被删除的最后一个值。
delete 也可以用于数组类型的变量，不过它的行为可能不是你所预想的那样。
例子：

%hash = (foo => 11, bar => 22, baz => 33);
$scalar = delete $hash{foo};             # $scalar is 11
$scalar = delete @hash{qw(foo bar)};     # $scalar is 22
@array  = delete @hash{qw(foo bar baz)}; # @array  is (undef,undef,33)

each HASH
each ARRAY
each EXPR
返回哈希的每个 (key, value) 所组成的数组。
例子：

while (($key, $value) = each %hash) {
    print $key, "\n";
    delete $hash{$key};   # This is safe
}

eof FILEHANDLE
eof ()
eof
注意 eof() 与 eof 的区别：
eof()：如果到达了 <> 的最后一个文件的末尾，则返回1
eof：如果到达了当前文件的末尾，则返回1

# reset line numbering on each input file
while (<>) {
    next if /^\s*#/;  # skip comments
    print "$.\t$_";
} continue {
    close ARGV if eof;  # Not eof()!
}
# insert dashes just before last line of last file
while (<>) {
    if (eof()) {  # check for end of last file
        print "--------------\n";
    }
    print;
    last if eof();          # needed if we're reading from a terminal
}

糯米 2011-08-26 18:25 发表评论

perl 特殊变量

糯米 — Wed, 24 Aug 2011 15:45:00 GMT

翻译自：perldoc.perl.org

== 常用变量 ==

$ARG
$_
默认模式搜索变量
下列函数使用它作为默认参数：
abs, alarm, chomp, chop, chr, chroot, cos, defined, eval, exp, glob, hex, int, lc, lcfirst,
length, log, lstat, mkdir, oct, ord, pos, print, quotemeta, readlink, readpipe, ref, require,
reverse (in scalar context only), rmdir, sin, split (on its second argument), sqrt, stat,
study, uc, ucfirst, unlink, unpack.
用于文件测试 (-f, -d)
用于模式匹配操作 m//, s/// 和 tr// (又名 y///)
用于 foreach, grep, map
用于 given 语句

@ARG
@_
对于函数来说，@_ 包含了传递给该函数的参数。在函数中，@_ 是 push, pop, shift, unshift 的默认参数。

$LIST_SEPARATOR
$"
当一个数组被引用在 "" 中或者 // 中。数组的值变为所有元素被 $" 连接起来的值。
$" 默认值为空格。

print "The array is: @array\n";
print "The array is: " . join($", @array) . "\n";

它们是相等的。

@a = (1, 3, 4);
print "@a\n";
$" = ",";
print "@a\n";
print "1,3,4" =~ /@a/;

输出为

1 3 4
1,3,4
1

$PROCESS_ID
$PID
$$
运行 perl 脚本的当前进程的 pid 值。等同于 getpid()。

$REAL_GROUP_ID
$GID
$(
该进程的 real gid 。由 getgid() 获得。
如果运行在一个支持用户同时属于多个组的操作系统上，$( 将返回由空格分隔的多个 gid。由 getgroups() 获得。
只能给 $( 赋予单个整数。

$EFFECTIVE_GROUP_ID
$EGID
$)
该进程的 effective gid。

$< = $>;            # set real to effective uid
($<,$>) = ($>,$<);  # swap real and effective uids

$PROGRAM_NAME
$0
当前程序的名字。

$SUBSCRIPT_SEPARATOR
$SUBSEP
$;
如果这样访问一个哈系表：

$foo{$a,$b,$c}

等同于：

$foo{join($;, $a, $b, $c)}

例子：

%h = ('123', 'test');
$; = '';
print $h{1,2,3}; # 输出 test

%ENV
存放环境变量哈希表。

@F
当指定了 -a 参数的时候，@F 中保存着每一行被分隔后的数组：

perl -ane 'print pop(@F), "\n";'

等同于

while (<>) {
    @F = split(' ');
    print pop(@F), "\n";
}

$OSNAME
$^O
当前操作系统的名字。

# perl -e "print $^O"
# linux

%SIG
哈希 %SIG 中保存了信号的处理函数。例子如下：

sub handler {   # 1st argument is signal name
    my($sig) = @_;
    print "Caught a SIG$sig--shutting down\n";
    close(LOG);
    exit(0);
    }
$SIG{'INT'}  = \&handler;
$SIG{'QUIT'} = \&handler;
...
$SIG{'INT'}  = 'DEFAULT';   # restore default action
$SIG{'QUIT'} = 'IGNORE';    # ignore SIGQUIT

赋值为 'IGNORE' 则忽略该信号，除了 CHLD 信号。
下面是指定处理函数的其他方式：

$SIG{"PIPE"} = "Plumber";   # 指定为 main::Plumber (不推荐)
$SIG{"PIPE"} = \&Plumber;   # 推荐的方式
$SIG{"PIPE"} = *Plumber;    # 有点奇怪
$SIG{"PIPE"} = Plumber();   # 错误的做法，Plumber() 会返回什么？？

部分内部的 hook 也可以通过设置 SIG 来指定。比如说：

local $SIG{__WARN__} = sub { die $_[0] };
eval $proggie;

当一个 warning 被抛出的时候，$SIG{__WARN__} 所指向的函数将被调用。
warning 消息的内容为函数的第一个参数。

$BASETIME
$^T
程序开始运行的时间(时间戳)

# perl -e "print $^T"
1314234806

$PERL_VERSION
$^V
perl 的版本号

warn "Hashes not randomized!\n" if !$^V or $^V lt v5.8.1

== 和正则表达式相关的变量 ==

$ ($1, $2, ...)
匹配中 () 匹配的部分。

$&
$MATCH
前一次成功匹配的字符串。

$`
$PREMATCH
位于前一次成功匹配字符串前面的字符串。

$'
$POSTMATCH
位于前一次成功匹配字符串后面的字符串。

local $_ = 'abcdefghi';
/def/;
print "$`:$&:$'\n";      # 输出 abc:def:ghi

$LAST_PAREN_MATCH
$+
前一次成功匹配中最后一个 () 中的内容。

/Version: (.*)|Revision: (.*)/ && ($rev = $+);

@LAST_MATCH_END
@+
前一次成功匹配中每个 () 匹配的偏移量。
$+[0] 为整个匹配末尾的偏移量
$+[1] 为 $1 末尾的偏移量
$+[2] 为 $2 末尾的偏移量
...
$#+ 为前一次成功匹配的 () 数量

%LAST_PAREN_MATCH
%+
前一次成功匹配中命名匹配（即为 (?...) 的形式）的哈系表。
如：

'foo' =~ /(?foo)/; # $+{foo} 和 $1 中都存放着 'foo'

另外一个例子：

$_ = "testing1234end";
/^testing(.)(.)(..)end/;
print "@+"; # 输出 14 8 9 11
/^(?[a-z]+)(?\d+)/;
print "$+{foo}"; # 输出 testing
print "$+{num}"; # 输出 1234

@LAST_MATCH_START
@-
和 @+ 类似：
$-[0] 为整个匹配头部的偏移量
$-[1] 为 $1 头部的偏移量
$-[2] 为 $2 头部的偏移量
...
$` 等同于 substr($var, 0, $-[0])
$& 等同于 substr($var, $-[0], $+[0] - $-[0])
$' 等同于 substr($var, $+[0])
$1 等同于 substr($var, $-[1], $+[1] - $-[1])
$2 等同于 substr($var, $-[2], $+[2] - $-[2])
$3 等同于 substr($var, $-[3], $+[3] - $-[3])

%LAST_MATCH_START
%-
类似于 %+，通过 %- 可以访问到上一次成功匹配中所有的命名匹配。
每个命名匹配的名字都与一个数组相关联。
比如说：

if ('1234' =~ /(?1)(?2)(?3)(?4)/) {
    foreach my $bufname (sort keys %-) {
        my $ary = $-{$bufname};
        foreach my $idx (0..$#$ary) {
            print "\$-{$bufname}[$idx] : ",
                  (defined($ary->[$idx]) ? "'$ary->[$idx]'" : "undef"),
                  "\n";
        }
    }
}

会输出：

$-{A}[0] : '1' $-{A}[1] : '3' $-{B}[0] : '2' $-{B}[1] : '4'

== 和文件句柄相关的变量 ==

$ARGV
<> 中正在被读取的文件的名字
例子：

# cat c 1 2 # cat d 1 2 3 4 # cat a.pl while (<>) { print "$ARGV\n"; } # perl a.pl c d c c d d d d

@ARGV
命令行参数，$ARGV[0] 代表第一个参数（而不是程序的名字）。

$OUTPUT_FIELD_SEPARATOR
$OFS
$,
print 函数的输出分隔符，默认值为 undef。
例子：

print "a", "c"; # 输出 ac $, = "|"; print "a", "c"; # 输出 a|c

$INPUT_LINE_NUMBER
$NR
$.
上一次读取文件的行号。
$. 在文件句柄关闭的时候重置。
由于 <> 操作符不会关闭文件，因此在连续从 ARGV 读取文件的时候，$. 会不断增加。
例子：

# cat a.pl while (<>) { print "$.\n"; } # perl a.pl c d 1 2 3 4 5 6
其中 c d 的长度分别为 2, 4 行。

$INPUT_RECORD_SEPARATOR
$RS
$/
类似于 awk 的 RS 变量。它决定了 perl 如何分割行。
例子：

# cat c 1|2|3 # cat a.pl $/ = "|"; while (<>) { print "line:$_\n"; } # perl a.pl c line:1| line:2| line:3

$OUTPUT_RECORD_SEPARATOR
$ORS
$\
print 函数输出的分隔符。默认值为 undef，如果定义了，则在 print 完所有参数后输出 $\。
例子：

$\ = "|"; print "a"; print "b"; # 将输出 a|b|

$OUTPUT_AUTOFLUSH
$|
如果设置为非0的值，将强制的 flush 当前 selected 的文件句柄。
（类似于 setbuf(xx, NULL) ？）

== 和错误信息有关的变量 ==

$ERRNO
$!
等同于 libc 中的 errno。可以转换为 int 和 string 两种形式：

open '/a'; print int($!) . ": $!\n"; # 输出 2: 没有那个文件或目录

$CHILD_ERROR
$?
类似于 shell 中的 $?。可以为下列操作的返回值：
- 最后一次管道关闭
- `` 或者 system() 语句
- wait() 或者 waitpid()
$? >> 8 为子进程的返回值

$EVAL_ERROR
$@
上一次 eval() 操作的语法错误信息。
例子：

# cat a.pl eval "my a"; print "$@"; # perl a.pl No such class a at (eval 1) line 1, near "my a" syntax error at (eval 1) line 2, at EOF

糯米 2011-08-24 23:45 发表评论

perl 范围操作符

糯米 — Wed, 24 Aug 2011 09:00:00 GMT

摘自：perldoc.perl.org

当".."操作符返回bool型变量的时候，有如下几个例子：

while (<>) { print if (2 .. 6); }
将会打印文件的 2 ~ 6 行。

同样的：

next if (1 .. /^$/); # 跳过前面的空白行 s/^/> / if (/^$/ .. eof); # 在正文前面加上 >

还可以这样使用：

# parse mail messages while (<>) { $in_header = 1 .. /^$/; $in_body = /^$/ .. eof; if ($in_header) { # do something } else { # in body # do something else } }

下面的例子展示了".."和"..."的区别：

@lines = (" - Foo", "01 - Bar", "1 - Baz", " - Quux"); foreach (@lines) { if (/0/ .. /1/) { print "$_\n"; } }
这个程序只输出Bar那行。如果将".."换成"..."，则还会输出Baz那行。

下面展示".."操作符返回列表型变量时候的几个例子：

for (101 .. 200) { print; } # print $_ 100 times @foo = @foo[0 .. $#foo]; # an expensive no-op @foo = @foo[$#foo-4 .. $#foo]; # slice last 5 items

同样可以用于字符串：

@alphabet = ("A" .. "Z"); $hexdigit = (0 .. 9, "a" .. "f")[$num & 15]; @z2 = ("01" .. "31"); print $z2[$mday];

还可以用于单个字符：

use charnames "greek"; my @greek_small = ("\N{alpha}" .. "\N{omega}");

use charnames "greek"; my @greek_small = map { chr } ord "\N{alpha}" .. ord "\N{omega}";

糯米 2011-08-24 17:00 发表评论