Opened by x-man at 2005-05-06 02:23
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
In einfachen Fällen kann auch ein Skript wie das folgende helfen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/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