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 "); $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;