Perl 语言编程 - Linux教程

More documents

Recommendations

Info

的文件 , 看看某些东西是否为真。如果忽略参数 , 它测试 $_, 但除了 -t 之外 ,-t 是测试STDIN。除非另有文档 , 它测试为真时返回 1, 为假时返回 "", 或者如果文件不存在或无法访问时返回未定义。目前已实现的文件测试操作符列在表 3-4。表 3-4 文件测试操作符操作符含义-r 文件可以被有效的 UID/GID 读取。-w 文件可以被有效的 UID/GID 写入。-x 文件可以被有效的 UID/GID 执行。-o 文件被有效 UID 所有-R 文件可以被真实的 UID/GID 读取。-W 文件可以被真实的 UID/GID 写入。-X 文件可以被真实的 UID/GID 执行。-O 文件被真实的 UID 所有-e 文件存在-z 文件大小为零-s 文件大小不为零 ( 返回大小 )-f 文件是简单文件-d 文件是目录-l 文件是符号连接-p 文件是命名管道 (FIFO)。-S 文件是套接字-b 文件是特殊块文件-c 文件是特殊字符文件-t 文件句柄为一个 tty 打开了-u 文件设置了 setuid 位-g 文件设置了 setgid 位-k 文件设置了 sticky 位-T 文件是文本文件-B 文件是一个二进制文件 ( 与 -T 对应 )-M 自从修改以来的文件以天记的年龄 ( 从开始起 )-A 自从上次访问以来的文件以天记的年龄 ( 从开始起 )-C 自从 inode 修改以来的文件以天记的年龄 ( 从开始起 )98
请注意 -s/a/b/ 并不是做一次反向替换。不过 , 说 -exp($foo) 仍然会和你预期的那样运行 , 因为只有跟在负号后面的单个字符才解释成文件测试。文件权限操作符 -r ,-R,-w,-W,-x 和 -X 的解释各自基于文件和用户的用户 ID 和组 ID。可能还有其他原因让你无法真正读 , 写或执行该文件 , 比如 Andrew FileSystem(AFS) 的的访问控制列表 ( 注 : 不过 , 你可以用 use filetest 用法覆盖内建的语义。参阅第三十一章 , 用法模块 )。还要注意的是 , 对于超级用户而言 ,-r,-R,-w 和 -W总总是返回 1, 并且如果文件模式里设置了执行位 ,-x 和 -X 也返回 1。因此 , 由超级用户执行的脚本可能需要做一次 stat 来检测文件的真实模式 , 或者暂时把 UID 设置为其他的什么东西。其他文件测试操作符不关心你是谁。任何人都可以用这些操作符来测试 " 普通 " 文件 :while () {chomp;next unless -f $_;# 忽略 “ 特殊 ” 文件...}-T 和 -B 开关按照下面描述的方法运转。检查文件的第一块的内容 , 查找是否有类似控制字符或者设置了第八位的字符 ( 这样看起来就不象 UTF-8)。如果有超过三分之一的字符看起来比较特殊 , 它就是二进制文件 ; 否则 , 就是文本文件。而且 , 任何在第一块里包含ASCII NUL(\0 ) 的文件都会被认为是二进制文件。如果对文件句柄使用 -T 或 -B, 则检测当前输入 ( 标准 I/O 或者 “stdio”) 缓冲区 , 而不是文件的第一块。-T 和 -B 对空文件都返回真 , 或者测试一个文件句柄时读到 EOF( 文件结束 ) 时也返回真。因为 <strong>Perl</strong> 需要读文件才能进行 -T 测试 , 所以你大概不想在某些特殊文件上用 -T 把系统搞得挂起来 ,或者是发生其他让你痛苦的事情吧。所以 , 大多数情况下 , 你会希望先用 -f 测试 , 比如 :next unless -f $file && -T $file;如果给任何文件测试 ( 操作符 )( 或者是 stat 或 lstat 操作符 ) 的特殊文件句柄只包含单独一个下划线 , 则使用前一个文件测试的 stat 结构 , 这样就省了一次系统调用。( 对 -t无效 , 而且你还要记住 lstat 和 -l 会在 stat 结构里保存符号连接而不是真实文件的数值。类似地 , 在一个正常的 stat 的后面的 -l _ 总是会为假。)下面是几个例子 :99
Page 1:
Perl 语言编程
Page 7 and 8:
12.4.1 可继承构造器 ....
Page 9 and 10:
17.2.3.2. 信号灯 .............
Page 11 and 12:
不管你喜欢把 Perl 称
Page 13 and 14:
可以向语言中增加新
Page 15 and 16:
数组和散列也互不相
Page 17 and 18:
象我们在上边做的 ,
Page 19 and 20:
$kids_of_wife{"Jacob"}{"Zilpah"}[1]
Page 21 and 22:
use Some::Cool::Module;然后你
Page 23 and 24:
你可以用下面所示的
Page 25 and 26:
来。在这些系统中 ,
Page 27 and 28:
open(SESAME, "input-pipe-command |"
Page 29 and 30:
print $a . $b; # 打印 123456同
Page 31 and 32:
说过赋值类似一个过
Page 33 and 34:
如果成功打开了文件
Page 35 and 36:
在 Perl 中 , 真总是在标
Page 37 and 38:
$available = 10000 - $tickets_sold;
Page 39 and 40:
不同于 if 和 while 语句 ,f
Page 41 and 42:
个数据域之间定界的
Page 43 and 44:
甚至 “a!”, 但不匹配
Page 45 and 46:
同理 , 也有表示字符
Page 47: @chicks 包含 (Wilma, Betty), 而
Page 50 and 51: 在文本串里可以包含
Page 52 and 53: $x = $y;上面是赋值操作
Page 54 and 55: 列 )。相比之下 , 词法
Page 56 and 57: 1。首先 ,Perl 预先在最
Page 58 and 59: 不管是直接命名还是
Page 60 and 61: 表 2-1 反斜杠的字符逃
Page 62 and 63: 除了被代换的数组和
Page 64 and 65: 光字。) 和文件句柄
Page 66 and 67: EOFprint
Page 68 and 69: 这些就是所谓 v- 字串
Page 70 and 71: my %xmy ($x)= funkshun(); # list co
Page 72 and 73: 我们早先说过双引号
Page 74 and 75: "gamma",);或者你可以完
Page 76 and 77: $x = ( () = funk() ); # 同样把
Page 78 and 79: RANK => 'Captain',SERNO => '951413'
Page 80 and 81: eturn *FH:# 不是 \*FH!}$fh = new
Page 82 and 83: print while $_ = ;print while ;#
Page 84 and 85: 大文件一样。( 不过
Page 86 and 87: 文件团只有在开始 (
Page 88 and 89: 左 2 ->无 1 ++ --右 2 **右 1 !~
Page 90 and 91: and 10 * 20; # rand (10 * 20)rand(1
Page 92 and 93: 表环境里进行的。这
Page 94 and 95: 的真值类型是模式的
Page 96 and 97: 1. > 4; # 返回 23.10 命名单
Page 100 and 101: print "Can do.\n" if -r $a || -w _
Page 102 and 103: 这些操作符对数字值
Page 104 and 105: 在标量环境里 ,.. 返回
Page 106 and 107: ?: 的优先级比逗号高
Page 108 and 109: 每个操作符需要一个
Page 110 and 111: atan2(1,3);是用两个参数
Page 112 and 113: 和许多编程语言不同
Page 114 and 115: 混合语句是用表达式
Page 116 and 117: if 语句比较直接了当
Page 118 and 119: }# $line 现在超出范围
Page 120 and 121: ...}上面这样等效于写
Page 122 and 123: s/ham/turkey/ for @christmas, @east
Page 124 and 125: 文。如果循环原型是
Page 126 and 127: # 现在处理 $line}下面是
Page 128 and 129: }} until $x++ > $z;对于 last 而
Page 130 and 131: $def = 1;last SWITCH;};/^xyz/ && do
Page 132 and 133: 4.5 goto尽管不是想吓唬
Page 134 and 135: sub myname ($);$me = myname $0|| di
Page 136 and 137: 这些构造都是可以赋
Page 138 and 139: sub on { $state = 1}sub off { $stat
Page 140 and 141: # 这里编译的代码看
Page 142 and 143: 这样挺好 ; 但是对大
Page 144 and 145: use strict 'vars';这意味着
Page 146 and 147: 你可以确信除非该字
Page 148 and 149:
5.2 模式匹配操作符从
Page 150 and 151:
s/sugar/aspartame/# 把一个替
Page 152 and 153:
print "Date: $2\n";$`, $&, $' 和
Page 154 and 155:
m/\w+: (\s+ \w+) \s* \d+/x; # 一
Page 156 and 157:
如果 PATTERN 计算出的结
Page 158 and 159:
$last = $1 if /(^neur.*)/;}print $f
Page 160 and 161:
s{version\s+([0-9.]+)}{$Names{$1}?
Page 162 and 163:
}5.2.3.2 当全局替换不
Page 164 and 165:
如果声明了 /c 修饰词
Page 166 and 167:
有些简单的元字符就
Page 168 and 169:
(?(...)... ...) 是匹配 if-then
Page 170 and 171:
尽管字符替换操作符
Page 172 and 173:
点元字符经常和量词
Page 174 and 175:
释 utf8 的含义 , 参阅本
Page 176 and 177:
IsC ? 错误控制代码等
Page 178 and 179:
IsDCcompat ? 标识 ( 杂项 )下
Page 180 and 181:
sub NAME PROTOsub NAMEBLOCKATTRS BL
Page 182 and 183:
现在 , 如果你将设计
Page 184 and 185:
# 检查我们是否在列
Page 186 and 187:
C 和 C++ 程序员很可能
Page 188 and 189:
}return @retlist;}下面是一
Page 190 and 191:
方法调用中也不起作
Page 192 and 193:
}}sub catch (&) { $_[0] }try {die "
Page 194 and 195:
sub N () { int(GLARCH_VAL) / 3 }BEG
Page 196 and 197:
func $h{stuff}[-1];# 这个也
Page 198 and 199:
如果你正传递参数到
Page 200 and 201:
1. 注释 , 以第一列为 #
Page 202 and 203:
@>$system, $%, $date---------------
Page 204 and 205:
$FORMAT_NAME= "My_Other_Format";$FO
Page 206 and 207:
^
Page 208 and 209:
第八章引用不管是从
Page 210 and 211:
一个引用可以指向任
Page 212 and 213:
'Antony' => 'Cleo' . 'patra',};对
Page 214 and 215:
我就直译为 “ 赐福 ”
Page 216 and 217:
在特别的环境里 , 你
Page 218 and 219:
$bar =$$scalarref;push(@$arrayref,
Page 220 and 221:
解引用的类型是由右
Page 222 and 223:
8.3.4 使用对象方法如
Page 224 and 225:
print delete $ph->[0]{age};# 现
Page 226 and 227:
}如果你在一个字串
Page 228 and 229:
my $newfunc = sub {my $target = shi
Page 230 and 231:
名的非常技巧性的方
Page 232 and 233:
这么用的功能是非常
Page 234 and 235:
$hash{ shift @_ }8.5.1 引用不
Page 236 and 237:
即使 $a 应该在块的结
Page 238 and 239:
print $ref_to_AoA->[2][3];# 打印
Page 240 and 241:
请注意下面这些无法
Page 242 and 243:
}}在这个例子里 , 我们
Page 244 and 245:
因为 $AoA 必须是一个
Page 246 and 247:
jetsons => [ "george", "jane", "elr
Page 248 and 249:
}print "\n";}或者通过以
Page 250 and 251:
push @AoH, $rec;}while () {push @Ao
Page 252 and 253:
husband => "fred",pal=> "barney",},
Page 254 and 255:
$HoH{$group} = {get_family($group)}
Page 256 and 257:
( 糟糕的是 , 需要存储
Page 258 and 259:
edit => sub { $edited++; editmsg($m
Page 260 and 261:
flintstones => {series=> "flintston
Page 262 and 263:
$TV{ $rec->{series} } = $rec;你
Page 264 and 265:
print $TV{simpsons}{members}[2]{age
Page 266 and 267:
就象我们在第八章 ,
Page 268 and 269:
$SIG{QUIT} = *quit_catcher;$SIG{QUI
Page 270 and 271:
*dick = \$richard;这样就令 $
Page 272 and 273:
*sym = \&pippin;如果你从另
Page 274 and 275:
}print blarg(20);# 打印 :I see m
Page 276 and 277:
第十一章模块模块是
Page 278 and 279:
不过 , 它们在两个方
Page 280 and 281:
equire Exporter;our @ISA = ("Export
Page 282 and 283:
sub import { $Bestiary::zoo = "mena
Page 284 and 285:
语意改变了。如果模
Page 286 and 287:
当一个对象调用 attack(
Page 288 and 289:
方法和普通子过程之
Page 290 and 291:
$nemesis = summon Balrog home => "M
Page 292 and 293:
甚至英语在这方面也
Page 294 and 295:
一个引用赐福 (bless) 成
Page 296 and 297:
my $class = ref($invocant) || $invo
Page 298 and 299:
sub clone {my $model = shift;my $se
Page 300 and 301:
如果你给你的 C 编译
Page 302 and 303:
$colt = Horse::breed($molly, $stall
Page 304 and 305:
如果对调用者的类和
Page 306 and 307:
print "Running versino ", Thread->V
Page 308 and 309:
甚至你只是声明了这
Page 310 and 311:
$self->SUPER::DESTROY if $self->can
Page 312 and 313:
if (@_) { $self->{name} = shift }re
Page 314 and 315:
sub aliases {my $self = shift;if (@
Page 316 and 317:
这种方法在声明获取
Page 318 and 319:
12.7.3 使用 Autoloading( 自动
Page 320 and 321:
12.7.4 用闭合域生成指
Page 322 and 323:
下面是一个解释如何
Page 324 and 325:
然后我们进行各个检
Page 326 and 327:
12.8 管理类数据我们已
Page 328 and 329:
{my $Debugging = 0;# 词法范
Page 330 and 331:
象这样的明确的解引
Page 332 and 333:
里用 + 表示如何相加 )
Page 334 and 335:
范畴转换算术"" 0+ bool操
Page 336 and 337:
制你重载 neg。( 当然 ,
Page 338 and 339:
package main;for $normal (qw/perl N
Page 340 and 341:
在加州 , 这些打印出 :
Page 342 and 343:
现在 , 从这开始。假
Page 344 and 345:
sub import { orverload::constant (
Page 346 and 347:
3. overload::Method(OBJ,OPERATOR):
Page 348 and 349:
$object = tied VARIABLE;上面两
Page 350 and 351:
sub STORE { ${ $_[0] } = $_[1] }#
Page 352 and 353:
CLASSNAME->TIESCALAR(LIST)每当
Page 354 and 355:
这回我们决定 : 如果 F
Page 356 and 357:
这里是一个简单的 Tie
Page 358 and 359:
Testing Filetest: detectedTesting N
Page 360 and 361:
运行的时候 , 这个程
Page 362 and 363:
当设置捆绑了的数组
Page 364 and 365:
print STDERR "deleting!\n";if ($ind
Page 366 and 367:
变量的一个好特性是
Page 368 and 369:
my ($self, $key, $value) = @_;push
Page 370 and 371:
my $dir = (getpwname($user))[7]or c
Page 372 and 373:
SELF->STORE(KEY, VALUE)当捆绑
Page 374 and 375:
delete $self->{CONTENTS}->{$dot};un
Page 376 and 377:
sub DESTROY{carp &whowasi if $DEBUG
Page 378 and 379:
over the lazy dog.END# 现在从
Page 380 and 381:
}SELF->READLINE当用尖角操
Page 382 and 383:
当你对一个捆绑的文
Page 384 and 385:
这个方法声明将要用
Page 386 and 387:
# 这里是放你想跟踪
Page 388 and 389:
$self->pathname($name);# NEWif ($fo
Page 390 and 391:
my ($class, @cmd) = @_;no warnings
Page 392 and 393:
}1;最后四行以我们的
Page 394 and 395:
$ok += print $fh @_;}return $ok = @
Page 396 and 397:
sub FETCH {my $self = shift;return
Page 398 and 399:
use Remember;my ($fred, $x);$x = ti
Page 400 and 401:
器Tie::SyslogTie::TextDirTie::Tran
Page 402 and 403:
Perl 只有在它认为有
Page 404 and 405:
utf8 用法主要是一个
Page 406 and 407:
"o\N{COMBING TILDE BELOW}" =~ /\X/
Page 408 and 409:
一个可读性更好的 Uni
Page 410 and 411:
Perl 使用一种简单的
Page 412 and 413:
{local $SIG{INT} = 'IGNORE';... #
Page 414 and 415:
sub reaper {my $zombie;our %Kid_Sta
Page 416 and 417:
16.1.4 阻塞信号有时候 ,
Page 418 and 419:
flock(FH, LOCK_SH) or die "can't lo
Page 420 and 421:
or die "can't write-lock counterfil
Page 422 and 423:
open(INPUT, "< /etc/motd") or die "
Page 424 and 425:
fcntl( INPUT, F_SETFD, 0)or die "Ca
Page 426 and 427:
or die "can't fork: $!";local $SIG{
Page 428 and 429:
PIPE 信号 , 如果你还没
Page 430 and 431:
unless (open ($fh, ">", $path)) {wa
Page 432 and 433:
open 函数不允许你这
Page 434 and 435:
close FROM_PARENT; close TO_PARENT;
Page 436 and 437:
POSIX::mkfifo($fpath, 0666) or die
Page 438 and 439:
sub main{my $mem = ShMem->alloc("Or
Page 440 and 441:
$self->put($value);return $self;}
Page 442 and 443:
shmctl ($self->{SHMKEY}, IPC_RMID,
Page 444 and 445:
$socket = IO::Socket::INET->new(Pee
Page 446 and 447:
16.5.2 网络服务器下面
Page 448 and 449:
($port, $iaddr) = unpack_sockaddr_i
Page 450 and 451:
重新赋值 , 这条命令
Page 452 and 453:
or die "send: $!";}# 时间服
Page 454 and 455:
不过 , 通过不懈的努
Page 456 and 457:
没有实现它们的方法
Page 458 and 459:
现在是你的顶层子过
Page 460 and 461:
在一个发配了的子线
Page 462 and 463:
的函数。( 在不是为
Page 464 and 465:
{lock $var;if ($var == 0) {yield;$v
Page 466 and 467:
thread 2: frob 12thread 3: frob 13d
Page 468 and 469:
条事件以唤醒其他正
Page 470 and 471:
请注意 , 队列和普通
Page 472 and 473:
Thread::Signal 允许你启动
Page 474 and 475:
4. 执行阶段最后 , 就是
Page 476 and 477:
的历史增长模式。最
Page 478 and 479:
这个回合是可选的 ;
Page 480 and 481:
与 Perl 的编译器相比 ,P
Page 482 and 483:
多关于 mod_perl 的东西 ,
Page 484 and 485:
ByteLoader ? 模块是源码
Page 486 and 487:
B::Deparse 是一个很好的
Page 488 and 489:
(CHECK 可以理解为 “ 检
Page 490 and 491:
用的话 , 这样的反序
Page 492 and 493:
很幸运的是 Perl 是在 Un
Page 494 and 495:
#! /bin/sh -- # -*- perl -*- -peval
Page 496 and 497:
放在 *.cmd 文件的第一
Page 498 and 499:
Windows NT 上的 CMD.EXE 程序
Page 500 and 501:
% awk -F: '$7 && $7 !~ /^\/bin/' /e
Page 502 and 503:
一些的说法是你在编
Page 504 and 505:
EXTENSION 用于修改旧文
Page 506 and 507:
next;}open(ARGVOUT, ">$ARGV");selec
Page 508 and 509:
请注意在处理这个开
Page 510 and 511:
find . -mtime +7 -print | perl -nle
Page 512 and 513:
-S 让 Perl 使用 PATH 环境
Page 514 and 515:
Perl 到 C 的代码生成器
Page 516 and 517:
#! 开头并包括字串 “p
Page 518 and 519:
Perl 库文件的目录。
Page 520:
模块使用 PWD, 而 CGI 模
show all

Perl 语言编程 - Linux教程

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?