Chinaunix首页 | 论坛 | 博客
  • 博客访问: 226013
  • 博文数量: 36
  • 博客积分: 1188
  • 博客等级: 军士长
  • 技术积分: 802
  • 用 户 组: 普通用户
  • 注册时间: 2010-04-08 21:45
文章分类

全部博文(36)

文章存档

2020年(1)

2017年(2)

2015年(1)

2014年(1)

2013年(1)

2012年(3)

2011年(27)

分类: WINDOWS

2011-08-29 11:29:46

1、读文件
  1. #001一次读入全部内容
  2. my $string = slurp 'sample.txt';
  3. say $string;

  4. #002按行读入文件内容
  5. for open('sample.txt').lines
  6. {
  7.    .say;
  8.  }

  9. #003按行读入文件内容
  10. my @content = lines ('sample.txt');
  11. say @content.join("\n");

2、写文件

  1. my $fh =open "sample.txt",:a;
  2. $fh.print('foo');
  3. $fh.say('bar');
  4. $fh.close;
  5. say slurp('sample.txt')
3、printf、format
  1. say '100.125'.fmt('%.2f');
  2. printf '%.2f','100.125';
4、like #List::Util qw(reduce ) in the perl5
  1. my @ary = 1,2,3,4,5;
  2. say 'Sum: ', [+] @ary;
  3. say 'Product: ', [*] @ary;

5、(2、4、6、8)

  1. for [2, *+2 ... 8] ->$x{
  2.     say $x;
  3. }
  4. say [2, *+2 ... 8];
6、字符类型
  1. my $x; say $x.WHAT; # Any()
  2. my Int $y; say $y.WHAT; # Int()
  3. my Str $z; say $z.WHAT; # Str()
7、like my $str =<> in the perl5
  1. my $str = prompt("Enter a string: ");
8、绑定
  1. my $x = 'foo';
  2. #like {my $y=\$x} in perl5
  3. my $y := $x;
  4. $y = 'bar';
  5. say $x; # 'bar'
9、上下文
  1. my @array = 1, 2, 3;
  2. # generic item context
  3. my $a = @array; say $a.WHAT; # prints Array
  4. # string context
  5. say ~@array; # "1 2 3"
  6. # numeric context
  7. say +@array; # 3
  8. # boolean context
  9. my $is-nonempty = ?@array; say $is-nonempty;
阅读(1981) | 评论(2) | 转发(0) |
给主人留下些什么吧!~~

rubyish2011-09-22 19:10:24

期待aef25u翻译 Synopsis

rubyish2011-09-01 20:06:14

真是挺有趣