Suchen von Unten nach Oben: Suchen von UNTEN nach OBEN (Allgemeines zu Perl)

[thread]9052[/thread]

Suchen von Unten nach Oben: Suchen von UNTEN nach OBEN

yasukatakaya

2007-05-31 11:57

User since
2007-05-31
68 Artikel
BenutzerIn
[default_avatar]

Hallo,
kann mir jemand sagen, ob man mit Perl auch von unten nach oben eine Datei durchsuchen kann, denn ich will z.B. aus diesen Daten (siehe unten), die in einer bestimmten Datei gespeichert sind, den Text (auch Sonderzeichen, Ziffern enthalten) zwischen den letzten PASS und den FAIL!
Geht es, das ich von unten suche und einfach von FAIL bis zum ersten PASS alles rausfiltere?

12.12.06 PASS
ölaksjfdöljaf
13.12.06 PASS
asälöjaöslkf1
14.12.06 FAIL

GRUSS

vayu

2007-05-31 12:32

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

klar liess es in ein array ein und gehe von hinten nach vorne :)

Code: (dl )

my @file = <FILE>;
foreach($#file .. 0) {
     #do something with $file[$_];
}

oder

Code: (dl )

my @file = reverse(<FILE>);
foreach(@file) {
     #do something with $_;
}

\n\n

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...

2007-05-31 12:41

User since
2003-08-04
12208 Artikel
Admin1

[quote=vayu,31.05.2007, 10:32]

Code: (dl )

foreach($#file .. 0) {

[/quote]
nur dass das nicht geht...

Code: (dl )

foreach(reverse 0 .. $#file) {

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

yasukatakaya

2007-05-31 13:00

User since
2007-05-31
68 Artikel
BenutzerIn
[default_avatar]

Hallo,
danke für die schnelle Antwort, aber irgendwie kriege ich es nicht gebacken, dieses in mein Code einzufügen?!

So sieht mein Kopfprog aus:

#~~~ Datei einlesen und TXT-Datei erzeugen ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

open ($INPUT,"<$quelle") or die "konnte $ziel nicht oeffnen,$!\n";
undef $/;

open (OUTPUT,">$ziel.txt") or die "konnte $ziel nicht oeffnen,$!\n";
$_ = <$INPUT>;
close ($INPUT);

#~~~ Ende ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Nun versuche ich euren Tip zu implementieren:

@file = <$INPUT>;
foreach($#file .. 0)
{
#hier suche ich dann in der gleichen DATEI, die nun umgedreht
#wurde??????
#also z.B.
($fehler) = /(.*?)FAIL/gsm; #ODER geht das nicht so??
}

Sucher

2007-05-31 13:02

User since
2007-03-26
47 Artikel
BenutzerIn
[default_avatar]

Hallo,

wenn die Datei groß ist, bietet sich auch CPAN:

File::ReadBackwards an.

Grüße,

vayu

2007-05-31 15:51

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

[quote=pq,31.05.2007, 10:41][quote=vayu,31.05.2007, 10:32]

Code: (dl )

foreach($#file .. 0) {

[/quote]
nur dass das nicht geht...

Code: (dl )

foreach(reverse 0 .. $#file) {

[/quote]
upsi :0

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...

PerlProfi

2007-06-01 17:31

User since
2006-11-29
340 Artikel
BenutzerIn
[default_avatar]

@yasukatakaya, du hast es noch falsch mit einbebaut.
Nachdem du die Datei geöffnet hast, musst du ihren Inhalt in ein Array einlesen und dann von hinten nach vorne durch iterieren.

Also so:

Code: (dl )

open ($INPUT,"<$quelle") or die "konnte $ziel nicht oeffnen,$!\n";
    my @content = <$INPUT>;
close($INPUT);

for my$i (reverse 0..$#content) {
    # mach was mit $content[$i]
    # die letzte zeile kriegst du hier zuerst
}

MfG

yasukatakaya

2007-06-04 10:41

User since
2007-05-31
68 Artikel
BenutzerIn
[default_avatar]

Hallo Leute,
irgendwie klappt es nicht, da die Datei komplett gedreht wird, d.h.
aus

1: PERL1
2: Perl2

wird

2:2lreP
1:1LREP

wie soll ich das denn in meiner Ausgabedatei lesen können??????

renee

2007-06-04 10:57

User since
2003-08-04
14371 Artikel
ModeratorIn

Wie sieht Dein Code aus? Wie soll dann das Ergebnis aussehen?

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Gast Gast

2007-06-04 11:37

Ich würd wohl der Einfachheit halber ein `tac` zu Hilfe nehmen ...

View all threads created 2007-05-31 11:57.