horizontal rule

[Bernhard Peissl]

*lol* Hallo Patrick!

-- Wo ist eigentlich der PAF geblieben? Gibts den nimma?

So, hab hier ein kleines Progrämmchen grad mir aus den fingern gesaugt, hoffentlich kannst du damit was anfangen!

Aufruf: perl strrev.pl infile.xyz outfile.xyz

lg Bernhard

-- strrev.pl:

#!/usr/bin/perl -w

use strict;
my ($string, $result);

&getStringFromFile;
$result = scalar reverse $string;
if ($ARGV[1]) { &writeStringToFile; }
else { print $result; }

-------------------------- /MAIN ----------------------------

sub getStringFromFile {
    open (INFILE, $ARGV[0]) || die "Cant open $ARGV[0]: $!";
    while (<INFILE>) { $string .= $_; }
    close (INFILE) || die "Cant close $ARGV[0]: $!";
}

sub writeStringToFile {
    open (OUTFILE, ">$ARGV[1]") || die "Cant open $ARGV[1]: $!";
    print OUTFILE $result;
    close (OUTFILE) || die "Cant close $ARGV[1]: $!";
}

---------------------- ende und aus -------------------------