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 回复于：2008-04-25 17:07:41
改变太大了 头晕了 :em06: :em06:
flw 回复于：2008-04-25 17:15:29
Perl 6 的 file test 确实改进不少。非常值得期待。
不过补充一下楼主的文章：
简单，但是shell的味道很重，而且如果多个的话，就有点傻：
if (-e $test && -r $test && -w $test){
print "Hello world!\n";
}
在 Perl 5 里面可以稍微不那么傻一点：
if (-e $test && -r _ -w _){
print "Hello world!\n";
}
就可以了。
注意 _ 的用法，和 $_ 类似。
xiaoyafeng 回复于：2008-04-25 17:25:49
引用：原帖由 flw 于 2008-4-25 17:15 发表 [url=http://bbs.chinaunix.net/redirect.php?goto=findpost&pid=8280433&ptid=1087214]
Perl 6 的 file test 确实改进不少。非常值得期待。
不过补充一下楼主的文章：
简单，但是shell的味道很重，而且如果多个的话，就有点傻：
if (-e $test && -r $test && -w $test){
print "Hello world!\n" ...
同意flw，不过那样写，初学者容易看不懂。
新发布的5.10支持下面这样的写法：
-f -w -x $file
本来打算卖个关子。。。。。
churchmice 回复于：2008-04-25 21:42:22
parrot装上了
pugs死都装不上
emerge出现pugs-fps依赖性未满足的错误
redicaps 回复于：2008-04-26 14:25:33
今年能出1.0?
doiob 回复于：2008-04-26 19:23:15
还是perl5看着顺眼，不知是否落伍？:mrgreen:
riverlee2008 回复于：2008-04-26 19:43:15
引用：原帖由 doiob 于 2008-4-26 19:23 发表 [url=http://bbs.chinaunix.net/redirect.php?goto=findpost&pid=8284095&ptid=1087214]
还是perl5看着顺眼，不知是否落伍？:mrgreen:
同意7楼的，落伍就落伍吧 :)
|
