1 # /usr/bin/perl6 2 3 use v6; 4 5 my $file = 'filename.txt'; 6 7 my $data = open $file; 8 9 for $data.lines -> $line { 10 11 say $line; 12 13 }
相关链接: Perl6_逐行读取文件
管理
1 # /usr/bin/perl6 2 3 use v6; 4 5 my $file = 'filename.txt'; 6 7 my $data = open $file; 8 9 for $data.lines -> $line { 10 11 say $line; 12 13 }
相关链接: Perl6_逐行读取文件
浙公网安备 33010602011771号