Thread Zeilen überspringen im Perl: Wie kann man einige Zeilen überspringen? (9 answers)
Opened by Gast at 2005-07-19 22:37

renee
 2005-07-20 01:42
#56511 #56511
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ich würde (mal wieder) CPAN:Tie::File verwenden:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#! /usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $suchmuster = 'MUSTER';
my $zeilen_ueberspringen = 5;
my $datei = '/pfad/zur/datei.txt';

tie my @array,'Tie::File', $datei or die $!;
my @index = grep{/$suchmuster/}(0..$#array);
for my $ind(@index){
print $array[$ind+$zeilen_ueberspringen];
}
untie @array;
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/

View full thread Zeilen überspringen im Perl: Wie kann man einige Zeilen überspringen?