|
NAMEPerlIO::reverse - Reads lines backward SYNOPSIS open my $rev, '<:reverse', 'foo.txt';
print while <$rev>; # print contents reversely
DESCRIPTIONThe ":reverse" layer reads lines backward like tac(1). EXAMPLEHere is a minimal implementation of tac(1). #!/usr/bin/perl -w
# Usage: $0 files...
use open IN => ':reverse';
print while <>;
__END__
NOTE
SEE ALSOPerlIO::Util. AUTHORGoro Fuji (藤 吾郎) <gfuji (at) cpan.org> LICENSE AND COPYRIGHTCopyright (c) 2008, Goro Fuji <gfuji (at) cpan.org>. Some rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
|