perl6 file test操作符 （原创）

xiaoyafeng

perl6 越来越近，据我所知，今年推出1.0应该没太大问题。不过perl6语法相当复杂，syn又是英文，可能给大家学习带来了一些困难。我打算有空发表一些小文章，给大家扫扫盲。；）

今天讲file test 操作符：

先来看看perl5:

print "Hello world!\n" if -e test;

简单，但是shell的味道很重，而且如果多个的话，就有点傻：
if (-e $test && -r $test && -w $test){
print "Hello world!\n";
}

下面是perl6语法：

if $filename.:e { say "Hello world!" }

上面的语句很简单，但是阐述了一些perl6特别的东西：

1. if, for 等条件，循环语句，小括号不再强制。

2. 方法引起不再用 ->而是用.

3. 一般来说，任何变量都是一个对象。(例外以后再说）

4. -X 操作符已经被抛弃了，改用pair方法。



当然，在perl6，几乎任何操作你都可以用~~:

if $filename~~:e { say "Hello world!" ;}

在 perl6 的switch语句中,你还可以简单的这样写：

when :r    say "readable!!!";
when :w   say " writable!!!";
when :r :w say " readable and writable!!!";

行了，经过一番介绍，大家可能对perl6 file test操作符有了一定了解。有兴趣的可以下载parrot 0.6.1版本玩玩。至少现在建一个简单对象是没问题的。

P.S parrot下面的perl6叫做rakudo,大家可别搞错了。

hitsubunnu

改变太大了   头晕了

flw

Perl 6 的 file test 确实改进不少。非常值得期待。
不过补充一下楼主的文章：

1. 简单，但是shell的味道很重，而且如果多个的话，就有点傻：
   
2. if (-e $test && -r $test && -w $test){
   
3. print "Hello world!\n";
   
4. }

复制代码

在 Perl 5 里面可以稍微不那么傻一点：

1. if (-e $test && -r _ -w _){
   
2.     print "Hello world!\n";
   
3. }

复制代码

就可以了。
注意 _ 的用法，和 $_ 类似。

xiaoyafeng

原帖由 flw 于 2008-4-25 17:15 发表
Perl 6 的 file test 确实改进不少。非常值得期待。
不过补充一下楼主的文章：
简单，但是shell的味道很重，而且如果多个的话，就有点傻：
if (-e $test && -r $test && -w $test){
print "Hello world!\n" ...

同意flw，不过那样写，初学者容易看不懂。
新发布的5.10支持下面这样的写法：

-f -w -x $file

本来打算卖个关子。。。。。

churchmice

parrot装上了
pugs死都装不上
emerge出现pugs-fps依赖性未满足的错误

redicaps

今年能出1.0?

doiob

还是perl5看着顺眼，不知是否落伍？

riverlee2008

原帖由 doiob 于 2008-4-26 19:23 发表
还是perl5看着顺眼，不知是否落伍？

同意7楼的，落伍就落伍吧

cinanine

xiaoyafeng有空发表一些小文章，给大家扫扫盲。

2gua

对Perl 6的期待，已经转到其他语言身上了。
现在，对Perl 5的一往情深。