欧美成人按摩,亚洲小视频在线观看,欧美日韩国产大片

perl 常用函数

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

摘自 perldoc.perl.org

map BLOCK LIST
map EXPR, LIST
对于 LIST 里的每一个元素按�?BLOCK 或�?EXPR 里的操作�q�行求倹{�?/br> �q�回求值结果组成的数组�?/br> 如果�q�回值是 scalar �c�d��Q�则�q�回�l�果数组的大��?/br> 例子�Q?/br> �q�回一�l�数字对应的字符

@chars = map(chr, @numbers);

�q�回一�l�数字的�q�x��

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

�q�回大于5的数字的�q�x��

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

�׃�� map ��L��q�回一个列表，因此可以赋值给哈希�c�d��的变量：

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

也可以这样写�Q?/br>

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

-X FILEHANDLE
文�g��试函数�Q?/br>

-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 或者是单个元素�?/br> �q�回��gؓ删除掉元素的��|��可以是列表�?/br> 如果�q�回��D��要求�?scalar �c�d��Q�则�q�回被删除的最后一个倹{�?/br> delete 也可以用于数�l�类型的变量�Q�不�q�它的行为可能不是你所预想的那栗��?/br> 例子�Q?/br>

%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
�q�回哈希的每�?(key, value) 所�l�成的数�l��?/br> 例子�Q?/br>

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

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

# 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
}

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

perl �Ҏ��变量

�p�米 — 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.
用于文�g��试 (-f, -d)
用于模式匚w��操作 m//, s/// �?tr// (又名 y///)
用于 foreach, grep, map
用于 given 语句

@ARG
@_
对于函数来说�Q�@_ 包含了传递给该函数的参数。在函数中，@_ �?push, pop, shift, unshift 的默认参数�?/br>
$LIST_SEPARATOR
$"
当一个数�l�被引用�?"" 中或�?// 中。数�l�的值变为所有元素被 $" �q�接��h��的倹{�?/br> $" 默认��gؓ�I�格�?/br>

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

它们是相�{�的�?/br>

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

输出�?/br>

1 3 4
1,3,4
1

$PROCESS_ID
$PID
$$
�q�行 perl 脚本的当前进�E�的 pid 倹{��等同于 getpid()�?/br>
$REAL_GROUP_ID
$GID
$(
该进�E�的 real gid 。由 getgid() 获得�?/br> 如果�q�行在一个支持用户同时属于多个组的操作系�l�上�Q?( ��返回由�I�格分隔的多�?gid。由 getgroups() 获得�?/br> 只能�l?$( 赋予单个整数�?/br>
$EFFECTIVE_GROUP_ID
$EGID
$)
该进�E�的 effective gid�?/br>

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

$PROGRAM_NAME
$0
当前�E�序的名字�?/br>
$SUBSCRIPT_SEPARATOR
$SUBSEP
$;
如果�q�样讉K��一个哈�p�表�Q?/br>

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

�{�同于：

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

例子�Q?/br>

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

%ENV
存放环境变量哈希表�?/br>
@F
当指定了 -a 参数的时候，@F 中保存着每一行被分隔后的数组�Q?/br>

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

�{�同�?/br>

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

$OSNAME
$^O
当前操作�pȝ��的名字�?/br>

# 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

赋��gؓ 'IGNORE' 则忽略该信号�Q�除�?CHLD 信号�?/br> 下面是指定处理函数的其他方式�Q?/br>

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

部分内部�?hook 也可以通过讄�� SIG 来指定。比如说�Q?/br>

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

当一�?warning 被抛出的时候，$SIG{__WARN__} 所指向的函数将被调用�?/br> warning 消息的内容�ؓ函数的第一个参数�?/br>
$BASETIME
$^T
�E�序开始运行的旉��(旉��?

# perl -e "print $^T"
1314234806

$PERL_VERSION
$^V
perl 的版本号

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

== 和正则表辑ּ�相关的变�?==

$ ($1, $2, ...)
匚w��?() 匚w��的部分�?/br>
$&
$MATCH
前一�ơ成功匹配的字符丌Ӏ?/br>
$`
$PREMATCH
位于前一�ơ成功匹配字�W�串前面的字�W�串�?/br>
$'
$POSTMATCH
位于前一�ơ成功匹配字�W�串后面的字�W�串�?/br>

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

$LAST_PAREN_MATCH
$+
前一�ơ成功匹配中最后一�?() 中的内容�?/br>

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

@LAST_MATCH_END
@+
前一�ơ成功匹配中每个 () 匚w��的偏�U�量�?/br> $+[0] 为整个匹配末��偏移�?/br> $+[1] �?$1 末尾的偏�U�量
$+[2] �?$2 末尾的偏�U�量
...
$#+ 为前一�ơ成功匹配的 () 数量

%LAST_PAREN_MATCH
%+
前一�ơ成功匹配中命名匚w��Q�即�?(?...) 的�Ş式）的哈�p�表�?/br> 如：

'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
@-
�?@+ �c�M��Q?/br> $-[0] 为整个匹配头部的偏移�?/br> $-[1] �?$1 头部的偏�U�量
$-[2] �?$2 头部的偏�U�量
...
$` �{�同�?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
%-
�c�M��?%+�Q�通过 %- 可以讉K��C��一�ơ成功匹配中所有的命名匚w��?/br> 每个命名匚w��的名字都与一个数�l�相兌��?/br> 比如��_��

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
<> 中正在被��d��的文件的名字
例子�Q?/br>
# 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
命��o行参敎ͼ�$ARGV[0] 代表�W�一个参敎ͼ�而不是程序的名字�Q��?/br>
$OUTPUT_FIELD_SEPARATOR
$OFS
$,
print 函数的输出分隔符�Q�默认��gؓ undef�?/br> 例子�Q?/br>
print "a", "c"; # 输出 ac $, = "|"; print "a", "c"; # 输出 a|c

$INPUT_LINE_NUMBER
$NR
$.
上一�ơ读取文件的行号�?/br> $. 在文件句柄关闭的时候重�|��?/br> �׃�� <> 操作�W�不会关闭文�Ӟ��因此在连�l�从 ARGV ��d��文�g的时候，$. 会不断增加�?/br> 例子�Q?/br>
# cat a.pl while (<>) { print "$.\n"; } # perl a.pl c d 1 2 3 4 5 6
其中 c d 的长度分别�ؓ 2, 4 行�?/br>
$INPUT_RECORD_SEPARATOR
$RS
$/
�c�M��?awk �?RS 变量。它军_��?perl 如何分割行�?/br> 例子�Q?/br>
# 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 函数输出的分隔符。默认��gؓ undef�Q�如果定义了�Q�则�?print 完所有参数后输出 $\�?/br> 例子�Q?/br>
$\ = "|"; print "a"; print "b"; # ��输�?a|b|

$OUTPUT_AUTOFLUSH
$|
如果讄��为非0的��|��强制的 flush 当前 selected 的文件句柄�?/br> �Q�类��g�� setbuf(xx, NULL) �Q�）

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

$ERRNO
$!
�{�同�?libc 中的 errno。可以�{换�ؓ int �?string 两种形式�Q?/br>
open '/a'; print int($!) . ": $!\n"; # 输出 2: 没有那个文�g或目�?

$CHILD_ERROR
$?
�c�M��?shell 中的 $?。可以�ؓ下列操作的返回��|��
- 最后一�ơ管道关�?/br> - `` 或�?system() 语句
- wait() 或�?waitpid()
$? >> 8 为子�q�程的返回�?/br>
$EVAL_ERROR
$@
上一��?eval() 操作的语法错误信息�?/br> 例子�Q?/br>
# 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

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

�p�米 — Wed, 24 Aug 2011 09:00:00 GMT

摘自�Q�perldoc.perl.org

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

while (<>) { print if (2 .. 6); }
��会打印文�g�?2 ~ 6 行�?br />
同样的：

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

�q�可以这样��用：

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

下面的例子展�C�Z��".."�?..."的区别：

@lines = (" - Foo", "01 - Bar", "1 - Baz", " - Quux"); foreach (@lines) { if (/0/ .. /1/) { print "$_\n"; } }
�q�个�E�序只输出Bar那行。如果将".."换成"..."�Q�则�q�会输出Baz那行�?br />
下面展示".."操作�W�返回列表型变量时候的几个例子�Q?br />
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];

�q�可以用于单个字�W�：

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

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

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