Datei einlesen von "START" bis "ENDE" - #71502 (Allgemeines zu Perl)

Crian

2006-11-10 14:09

User since
2003-08-04
5875 Artikel
ModeratorIn

[quote=Taulmarill,07.11.2006, 17:10]

Code: (dl )

my @lines = grep { /START/ .. /END/ } <$fh>;

[/quote]
Das finde ich nicht so schön, angenommen die Datei ist sehr groß und der Abschnitt klein, muss hierbei trotzdem die ganze Datei im Speicher behalten werde, oder irre ich mich?

Ich tendiere zu

Code: (dl )

1
2
3

while (<$fh>) {
     push(@lines, $_) if /START/ .. /ENDE/;
}

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite