1 Star 0 Fork 6

Jefferson/perl_primer

forked from LoKalafina/perl_primer 
加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
文件
克隆/下载
main.pl 638 Bytes
一键复制 编辑 原始数据 按行查看 历史
LoKalafina 提交于 2015-05-27 18:18 . perl6
for <well met young hero we shall meet later> {
if 'met' ^ff 'meet' {
.say;
}
if rand == 0 ff rand == 1 {
say "This ... probably will never run ...";
}
}
.say if 'B' fff 'B' for <A B C B C B A>;
# A flip-flop can change state as many times as needed:
for <test start print it stop not printing start print again stop not anymore> {
.say if $_ eq 'start' ^ff^ $_ eq 'stop'; # exclude both "start" and "stop",
#=> "print this printing again"
}
sub foo { my @first_arg = @_.shift; say @first_arg;}
foo(\('x', 'y', 'z'));
my @array = 1, 2, 3, 4, 5, 6;
for @array -> $i {
$i.say;
}
Loading...
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
Perl
1
https://gitee.com/wmj-ninety-five/perl_primer.git
[email protected]:wmj-ninety-five/perl_primer.git
wmj-ninety-five
perl_primer
perl_primer
master

搜索帮助