perl - 如何使用 Perl 增量打印字符串？

Question

my $line2 = ("My cat Garfield");
my $leng2 = length $line2;
my $longmatch;
my $post = 0;
my $letter = 1; 

for(my $post = 0; $post < $leng2; $post++) {
    for($letter = 1; $letter <= $leng2; $letter++) {
        $longmatch = (substr($line2,$post,$letter));
        print $longmatch,  "\n";    
    }   
}

如何消除重复的线条？？

Answer 1

使用 C 风格的循环 -- for (my $i = 0; $i < 10; $i++) -- 不是 perl 的方式。只需使用 for my $i (0 .. 10)而是。

在本例中，我使用隐式变量 $_在脚本后循环中，并使用 say 而不是 print 来获得自动换行符结束:

use v5.10; # used to enable feature say
my $cat = 'my cat is Garfield'; 
say substr($cat, 0, $_) for 1 .. length($cat);