say malic;

Notes for Learning Perl Chapter 11 to Chapter 13

• 文件检测操作

[code=c]
die “Oops! A file called ‘$filename’already exists.\n”
if –e $filename;  #是否存在
warn “Config file is looking pretty old!\n” if –M CONFIG > 28;  #检查是否很久没有被修改过了
[/code]

表 11-1 文件检测选项及其含义
检测选项        含义
-r      文件或目录对此(有效的  用户(effective user)或组是可读的
-w      文件或目录对此(有效的  用户或组是可写的
-x      文件或目录对此(有效的  用户或组是可执行的
-o      文件或目录由本(有效的  用户所有
-R      文件或目录对此用户(real user)或组是可读的
-W      文件或目录对此用户或组是可写的
-X      文件或目录对此用户或组是可执行的
-O      文件或目录由本用户所有
-e      文件或目录名存在
-z      文件存在,大小为 0(目录恒为 false)
-s      文件或目录存在,大小大于 0(值为文件的大小,单位:字节 
-f      为普通文本
-d      为目录
-l      为符号链接
-S      为 socket
-p      为管道(Entry is a named pipe(a “fifo&rdquo  )
-b      为 block-special 文件(如挂载磁盘 
-c      为 character-special 文件(如 I/O 设备 
-u      setuid 的文件或目录
-g      setgid 的文件或目录
-k      File or directory has the sticky bit set
-t      文件句柄为 TTY(系统函数 isatty()的返回结果;不能对文件名使用这个测试 
-T      文件有些像“文本”文件
-B      文件有些像“二进制”文件
-M      修改的时间(单位:天 
-A      访问的时间(单位:天 
-C      索引节点修改时间(单位:天 

• 一个使用 -s 的例子

[code=c]
my $size_in_k = (-s) / 1024;    #文件名在默认的$_中
[/code]

[code=c]
#获得本地时间
my $local = localtime;
my $global = gmtime;
[/code]

[code=c]
my @original_files = qw/ fred barney betty Wilma pebbles dino bam-bamm/;
my @big_old_files;
#需要移到备份磁带上去的文件
foreach(@orginal_files){
        push @big_old_files, $_ if (-s) > 100_100 and –A _ > 90;  #这里的  _ 重复利用了刚才-s了$_的结果, 节约了一次系统调用的开销
}
[/code]

• glob, chdir

[code=c]
chdir “/etc”or die “cannot chdir to /etc: $!”;
my @all_files = glob “*”;
my @pm_files = glob “*.pm”;
my @all_files = <*>;    ## 基本上同@all_files = glob “*”一样;
my $dir = “/etc”;
my @dir_files = <$dir/* $dir/.*>;
[/code]

• 删除文件采用unlink

[code=c]
#一次性删除多个文件
unlink glob "*.o";
unlink $file or warn "fail on $file\n";
[/code]

• 重命名文件用rename
• 创建和删除目录mkdir
• 修改权限chmod
• 修改所有者chown
• 修改时间戳utime

• 寻找字串位置

[code=c]
$where = index($big, $small);
my $where2 = index($stuff, “w”, $where+1);
##同样的 还有rindex
[/code]

• 获得子串

[code=c]
$part = substr($string, $initial_position, $length);
#如此实在太imba了啊啊啊
my $string = “Hello, world!”;
substr($string, 0, 5) = “Goodbye”;  # $string 现在变成了 “Goodbye, world!”
substr($string, -20) =~ s/fred/barney/g;
#传统式
my $previous_value = substr($string, 0, 5, “Goodbye&rdquo  ;
[/code]

[code=c]
sub big_money {
        my $number = sprintf “%.2f”, shift @_;
        1 while $number =~ s/^(-?\d+) (\d\d\d)/$1,$2/;
        $number =~ s/^(-?)/$1\$/;
        $number;
}
[/code]

• 自定义排序

[code=c]
sub by_number {
        if($a < $b){-1} elsif($a > $b){1} else {0}
}
#can also be written as
sub by_number {$a <=> $b }
sub case_insenstive {“\L$a”cmp “\L$b”}
my @numbers = sort { $a <=> $b } @some_numbers;
my @result = sort by_number @some_numbers;
#sort by value
my %score = (“barney”=>, “fred”=>205, “dino”=> 30);
my @winners = sort by_score keys %score;
sub by_socre { $score{$b} <=> $score{$a}}
my @winners = sort by_score_and_name keys %score;
sub by_score_and_name {
        $score{$b} <=> $score{$a}
         or
        $a cmp $b;
}
[/code]