use v6;
#perl6中讀取文件方法
#:r 只讀， :w 只寫, ：rw 讀寫, :a 追加

my $fp = open ‘filename.txt‘, :rw;
for $fp.^methods -> $method {
  say $method;
}

#向文件寫入， 可以用say或print或print或spurt
$fp.say(‘hello, world‘);
$fp.print("two\n");
$fp.say("three");
$fp.close;
my $filedata = ‘This is a data
  From the function
  of spurt!!
 
‘;
spurt ‘filedata.txt‘, $filedata;

#讀取文件, 可用get一次讀一行， 或用lines一次讀取所有行
#讀進一個標量， 會變成指向數組的指針
#讀進數組， 文件一行一個元素

my $ffp = open ‘filename.txt‘, :r;
#say $ffp.get;
#my $lines = $ffp.lines;
#say $lines.perl;
#say $lines.WHAT;
#say $lines[2];
#exit;
my @all_lines = $ffp.lines;
say @all_lines.elems;
say @all_lines
 
;
say @all_lines.perl;
$ffp.close;
#這個lines可以這樣來讀取
#my @all_lines = lines ‘filename.txt‘.IO;


#slurp一次把文件讀進一個變量， 與lines不同的是， lines讀進數組或變量時， 一行一個元素
#而slurp不是， 他是全部內容一起算一個元素
my $data = slurp ‘filename.txt‘;
say $data;

perl6文件操作