将字符串拆分为固定长度的块，并在Raku中以单独的行写入

Question

我有一个文件测试。txt文件：

Stringsplittingskills

我想读取此文件并写入另一个文件。txt，每行三个字符，如

Str
ing
spl
itt
ing
ski
lls

我所做的

my $string = "test.txt".IO.slurp;
my $start = 0;
my $elements = $string.chars;
# open file in writing mode
my $file_handle = "out.txt".IO.open: :w;
while $start < $elements {
    my $line = $string.substr($start,3);
    if $line.chars == 3 {
        $file_handle.print("$line\n") 
    } elsif $line.chars < 3 {
        $file_handle.print("$line")
    }      
    $start = $start + 3;
}
# close file handle
$file_handle.close

当字符串的长度不是3的倍数时，此操作运行良好。当字符串长度是3的倍数时，它会在输出文件的末尾插入额外的换行符。当字符串长度是3的倍数时，如何避免在末尾插入新行？

我尝试了另一种更短的方法，

my $string = "test.txt".IO.slurp;

my $file_handle = "out.txt".IO.open: :w;
for $string.comb(3) -> $line {
    $file_handle.print("$line\n")
}

但它仍面临同样的问题。

我在这里寻找，在这里，但仍然无法解决它。

Answer 1

正确的答案当然是使用. com b和。加入。

也就是说，这就是您修复代码的方式。

您可以更改if行以检查它是否在末尾，然后使用else。

if $start+3 < $elements {
    $file_handle.print("$line\n") 
} else {
    $file_handle.print($line)
}

就我个人而言，我会对其进行更改，以便只有添加的<代码>\n<代码>是有条件的。

while $start < $elements {
    my $line = $string.substr($start,3);
    $file_handle.print( $line ~ ( "\n" x ($start+3 < $elements) ));
    $start += 3;
}

这是因为

自<代码>真

'abc' x 1;     # 'abc'
'abc' x True;  # 'abc'

'abc' x 0;     # ''
'abc' x False; # ''

如果您非常谨慎，您可以使用x？。
（实际上是3个独立的运算符。）

'abc' x   3; # 'abcabcabc'
'abc' x+? 3; # 'abc'

infix:« x »( 'abc', prefix:« + »( prefix:« ? »( 3 ) ) );

如果我要这样构造它，我可能会使用循环。

loop ( my $start = 0; $start < $elements ; $start += 3 ) {
    my $line = $string.substr($start,3);
    $file_handle.print( $line ~ ( "\n" x ($start+3 < $elements) ));
}

或者，您可以将其添加到除第一行之外的每一行的开头，而不是在每一行的末尾添加新行。

while $start < $elements {
    my $line = $string.substr($start,3);

    my $nl = "\n";

    # clear $nl the first time through
    once $nl = "";

    $file_handle.print($nl ~ $line);

    $start = $start + 3;
}

Answer 2

另一种使用substr-rw的方法。

subset PositiveInt of Int where * > 0;

sub break( Str $str is copy, PositiveInt $length )
{
    my $i = $length;

    while $i < $str.chars
    {
        $str.substr-rw( $i, 0 ) = "\n";
        $i += $length + 1;
    }

    $str;
}

say break("12345678", 3);

输出

123
456
78

Answer 3

spurt "out.txt", "test.txt".IO.comb(3).join("\n")