Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

BRIANDFOY / PerlPowerTools-1.051 / bin / rev 

            

              
1
—
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
—
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120

              
#!/usr/bin/perl
=begin metadata
Name: rev
Description: reverse lines of a file
Author: Andy Murren, andy@murren.org
License: gpl
=end metadata
=cut
use strict;
use File::Basename qw(basename);
use Getopt::Std qw(getopts);
use constant EX_SUCCESS => 0;
use constant EX_FAILURE => 1;
my $Program = basename($0);
# unbuffer output to make it look speedier
$|++;
our $VERSION = '1.5';
getopts('') or usage();
my $rc = EX_SUCCESS;
foreach my $file (@ARGV) {
        if (-d $file) {
                warn "$Program: '$file' is a directory\n";
                $rc = EX_FAILURE;
                next;
        }
        my $fh;
        unless (open $fh, '<', $file) {
                warn "$Program: cannot open '$file': $!\n";
                $rc = EX_FAILURE;
                next;
        }
        rev($fh);
        if ($!) {
                warn "$Program: '$file': $!\n";
                $rc = EX_FAILURE;
        }
        unless (close $fh) {
                warn "$Program: cannot close '$file': $!\n";
                $rc = EX_FAILURE;
                next;
        }
}
rev(*STDIN) unless @ARGV;
exit $rc;
sub rev {
        my $fh = shift;
        while (<$fh>) {
                chomp;
                my $r = reverse;
                print $r, $/;
        }
}
sub usage {
        print "usage: $Program [file ...]\n";
        exit EX_FAILURE;
}
sub VERSION_MESSAGE {
        print "$Program version $VERSION\n";
        exit EX_SUCCESS;
}
__END__
=pod
=head1 NAME
rev - reverse lines of a file
=head1 SYNOPSIS
rev [file ...]
=head1 DESCRIPTION
The rev utility copies the specified files to the standard output,
reversing the order of characters in every line.  If no files are
specified, the standard input is read.
=head2 OPTIONS
I<rev> accepts the following options:
=over 4
=item  --version
Print version number then exit
=back
=head1 BUGS
I<rev> has no known bugs.
=head1 AUTHOR
This Perl implementation of I<rev> was written by Andy Murren,
I<andy@murren.org>.
=head1 COPYRIGHT and LICENSE
This program is covered by the GNU Public License (GPL).
See I<http://www.gnu.org/copyleft/gpl.html> for complete detail of the license.
=cut