Dear ikegami,

I had never have the intention to submit this little piece of code to Perl 6 core modules...

For me, it was just a funny variation on chomp.

To be constructive, please give some examples because i can't reproduce two of your three remarks

Laziness, impatience, hubris and why not humility.

hth,
PooLpi

I use an in-memory file, but a real file will do just as well.

{  my $f;
   {  open(my $fh, '>', \$f) or die $!;
      print $fh "abc";
   }
   {  open(my $fh, '<', \$f) or die $!;
      chop( $_ = <$fh> );
      print chop while $_;   # ba
      print"\n";
   }
}

{  my $f;
   {  open(my $fh, '>', \$f) or die $!;
      print $fh "012\n";
   }
   {  open(my $fh, '<', \$f) or die $!;
      chop( $_ = <$fh> );
      print chop while $_;   # 21
      print"\n";
   }
}
[download]