nicht angemeldet
Hallo Patrick!
Mist, ich glaub ich hab dein Problem nicht so ganz verstanden. Aber nach ca. 13maligem Durchlesen deines Beitrags und runterladen deiner Schrift hab ichs glaub ich gecheckt worums geht ;-)
Hier also nochmal die abgeänderte Version, sie lest zeile für Zeile ein, dreht die Richtung der Zeile um, liest die nächste ein, dreht sie wieder um, ... usw ... aber die erste Zeile des Quelldokuments bleibt auch die erste Zeile des Zieldokuments.
Also, Version 2:
#!/usr/bin/perl -w
use strict;
my $result = "";
&getStringFromFile;
if ($ARGV[1]) { &writeStringToFile; }
else { print $result; }
-------------------------- /MAIN ----------------------------
sub getStringFromFile {
open (INFILE, $ARGV[0]) || die "Cant open $ARGV[0]: $!";
while (<INFILE>) { $result .= scalar reverse $_; }
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 -------------------------
Getestet habe ich es am Text eines meiner Lieblingslieder:
http://www.unet.univie.ac.at/~a9827041/giveaway.mp3
Habs ins Wordpad kopiert, in deiner schrift ausgedruckt, vor den spiegel gestellt, und ... ich habs lesen können :o) Ein bissl blöd bin ich mir dabei schon vorgekommen, aber naja *g* -- hier noch der Text zum Selberprobieren:
STHGIN NEKNURD NEVES
,thgin yadnoM no emoh tnew I sA
.eb dluoc knurd sa knurd sa
,rood eht edistuo esroh a was I
.eb dluohs esroh dlo ym erehw
:reh ot dias I dna efiw ym dellac I
,em ot llet yldnik uoy lliW
,rood eht edistuo esroh taht snwo ohw
?eb dluohs esroh dlo ym erehw
knurd er'uoy ,knurd er'uoy ,hO
.ees tonnac uoy llits dna ,loof dlo yllis uoy
.em ot tnes rehtom ym taht wos ylevol a s'tahT
,erom ro selim derdnuh a ,delevart ev'I yad a ynam s'ti ,lleW
.erofeb was reven I ,erus ,wos a no elddas a tub
,thgin yadseuT no emoh tnew I sA
.eb dluoc knurd sa knurd sa
,rood eht dniheb taoc a was I
.eb dluohs taoc dlo ym erehw
:reh ot dias I dna efiw ym dellac I
,em ot llet yldnik uoy lliW
,rood eht dniheb taoc taht snwo ohw
?eb dluohs taoc dlo ym erehw
knurd er'uoy ,knurd er'uoy ,hO
.ees tonnac uoy llits dna ,loof dlo yllis uoy
.em ot tnes rehtom ym taht teknalb neloow a s'tahT
,erom ro selim derdnuh a ,delevart ev'I yad a ynam s'ti ,lleW
.erofeb was reven I ,erus ,teknalb a no snottub tub
,thgin yadsendeW no emoh tnew I sA
.eb dluoc knurd sa knurd sa
,riahc eht nopu epip a was I
.eb dluohs epip dlo ym erehw
:reh ot dias I dna efiw ym dellac I
,em ot llet yldnik uoy lliW
riahc eht nopu epip taht snwo ohw
.eb dluohs epip dlo ym erehw
knurd er'uoy ,knurd er'uoy ,hO
.ees tonnac uoy llits dna ,loof dlo yllis uoy
.em ot tnes rehtom ym taht ,eltsihw-nit ylevol a s'tahT
,erom ro selim derdnuh a ,delevart ev'I yad a ynam s'ti ,lleW
.erofeb was reven I ,erus ,eltsihw-nit a ni occabot tub
,thgin yadsruhT no emoh emac I sA
.eb dluoc knurd sa knurd sa
,deb eht ediseb stoob owt was I
.eb dluohs stoob dlo ym erehw
:reh ot dias I dna efiw ym dellac I
,em ot llet yldnik uoy lliW
deb eht ediseb stoob meht snwo ohw
.eb dluohs stoob dlo ym erehw
knurd er'uoy ,knurd er'uoy ,hO
.ees tonnac uoy llits dna ,loof dlo yllis uoy
.em ot tnes rehtom ym stop rewolf ylevol owt er'yehT
,erom ro selim derdnuh a ,delevart ev'I yad a ynam s'ti ,lleW
.erofeb was reven I stop rewolf ni secal tub
,thgin yadirF no emoh emac I sA
.eb dluoc knurd sa knurd sa
,deb eht nopu daeh a was I
.eb dluohs daeh dlo ym erehw
:reh ot dias I dna efiw ym dellac I
,em ot llet yldnik uoy lliW
,deb eht nopu daeh taht snwo ohw
.eb dluohs daeh dlo ym erehw
knurd er'uoy ,knurd er'uoy ,hO
.ees tonnac uoy llits dna ,loof dlo yllis uoy
.em ot tnes rehtom ym taht ,yob ybab a s'tahT
,erom ro selim derdnuh a ,delevart ev'I yad a ynam s'ti ,lleW
.erofeb was reven I ,erus ,no sreksihw sih htiw yob ybab a tub
,thgin yadrutaS a no emoh emac I sA
eb dluoc knurd sa knurd sa
,stsaerb reh nopu sdnah owt deips I
.eb dluohs sdnah dlo ym erehw
:reh ot dias I dna efiw ym ot dellac I
,em ot llet yldnik uoy lliW
,stsaerb ruoy nopu eseht era sdnah s'ohW
?eb dluohs sdnah dlo ym erehw
,knurd er'uoy ,knurd er'uoy ,hO
ees tonnac uoy llits dna ,loof dlo yllis uoy
.em ot evag llessuR enaJ arB gniviL a tub gnihton siT'
,erom ro selim derdnuh a dellevart ev'I yad a ynam s'ti ,lleW
.erofeb was reven I ,arB gniviL a no slianregnif tub
,thgin yadnuS no emoh emac I nehw woN
.eerht retfa elttil a
rood eht tuo gninnur nam a was I
.eenk sih tuoba stnap sih htiw
:reh ot dias I dna efiw ym ot dellac I oS
,em ot llet yldnik uoy dluow
rood eht tuo gninnur nam taht saw ohw
?eenk sih tuoba stnap sih htiw
,knurd er'uoy ,knurd er'uoy hO
,ees tonnac uoy llits dna ,loof dlo yllis uoy
.em ot tnes neeuQ eht rotcelloc xat eht tub gnihton sawT
,erom ro selim derdnuh a ,dellevart ev'I yad a ynam s'ti ,lleW.erofeb was reven I eerht llit' tsal dluoc taht namhsilgnE na tuB
;-)
liebe grüsse,
Bernhard