#!/usr/local/bin/perl
# 
# rev: 各行の文字の逆順だけでなく，ファイル全体の行の逆順も指定できる rev．
# 
#     [1997/01/22] OSHIRO Naoki.
# 
#     $Log:$
#

require "getopts.pl";
&Getopts("l");

if ($opt_l) {
    &rev_lines;
} else {
    &rev_chars;
}

exit;

sub rev_chars {
    while (<>) {
	chop;
	print join('', reverse split('')) . "\n";
    }
}

sub rev_lines {
    local($i, @l);

    $i=0;
    while (<>) {
	$l[$i++]=$_;
    }
    print reverse @l;
}

# major-mode: perl