perl - perl リバース余分な行を削除する方法

Question

誰かが私の間違いを指摘できますか？

while(<STDIN>){
  my $reverse = reverse $_; #(explicit - to force casting)
  if( 5 <length ){
        print "Reverse is $reverse\n";
  }
  else{
    print; #this will print $_ scalar context
  }
}

プログラムを実行し、

1234567
Reverse is
7654321

しかし、もし私 print "Reverse is $reverse\n";がprint "$reverse\n"

1234567

7654321

誰かが何が起こっているのか説明できますか? どうすれば改行を削除できますか？

Answer 1

の逆は"1234567\n"です"\n7654321"。反転する前に改行を取り除きたい場合は、組み込みchomp関数を使用できます。

while(<STDIN>){
  chomp;
  my $reverse = reverse $_; #(explicit - to force casting)
  if( 5 <length ){
        print "Reverse is $reverse\n";
  }
  else{
    print "$_\n"; #this will print $_ scalar context
  }
}

Answer 2

chomp;ループの最初の行として追加し、削除された改行を補うためにsay;orprint "$_\n";の代わりに使用します。print;

use strict;
use warnings;
use feature qw( say );

while (<>) {
   chomp;
   if( 5 < length ){
      say "".reverse;
   } else {
      say;
   }
}