Text-Datei ab dem $x Zeichen $y Zeilen einlesen? (Perl/CGI)

[thread]489[/thread]

Text-Datei ab dem $x Zeichen $y Zeilen einlesen?

x-man

2005-05-06 02:23

User since
2003-09-11
67 Artikel
BenutzerIn
[default_avatar]

Ich habe eine mehrzeilige Text-Datei und möchte diese ab dem $x Zeichen $y Zeilen einlesen, weiss aber nicht, wieviele Zeichen in einer Zeile sind. Wie mach ich das?

esskar

2005-05-06 03:18

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

mit seek (perldoc -f seek) kannst du du zum x-ten Zeichen springen; dass ist jetzt aber Zeilen ubanhängig...
ab dann einfach mit IO::File->getline weiterlesen... und zwar y-mal!

Ronnie

2005-05-06 10:29

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

In einfachen Fällen kann auch ein Skript wie das folgende helfen:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $cur = -10;
my $x = qr'Begin';
my $y = 3;

while (<DATA>) {
  $cur = $. if /$x/;
  print if ($.>$cur and $.<=$cur+$y);
}

_ _DATA_ _
Hello
Welt Begin Test
ALPHA
BETA
GAMMA
DELTA

x-man

2005-05-06 23:46

User since
2003-09-11
67 Artikel
BenutzerIn
[default_avatar]

Danke für Eure schnelle Antwort! IO::File ist ne elegante Lösung. Da meine Aufgabe relativ einfach ist, zähle ich die Zeichen und Zeilen gleichzeitig und ermittle dadurch die Position des Zeigers. Also viele Wege führen zum Ratzingers Golf ;-)

esskar

2005-05-06 23:56

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

[quote=x-man,06.05.2005, 21:46]Also viele Wege führen zum Ratzingers Golf ;-)[/quote]
188.938,88 um genau zu sein! :)

View all threads created 2005-05-06 02:23.