Opened by rasidrasid at 2013-12-10 09:06
User since
2013-12-10
16 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2013-12-10
16 Artikel
BenutzerIn
Hallo,
ich würde gerne ein Perlprogramm erstellen wollen, das aus einer Datei ein Stück
herausschneidet und es dann verarbeitet. Die Datei die ich einlese sieht so aus:
suchstelle1
$ Spalte1 Spalte2 Spalte3 Spalte4
$ Spalte1 Spalte2 Spalte3 Spalte4
$ Spalte1 Spalte2 Spalte3 Spalte4
$ Spalte1 Spalte2 Spalte3 Spalte4
$ Spalte1 Spalte2 Spalte3 Spalte4
.
.
.
.
suchstelle2
Die Datei soll geöffnet werden und innerhalb von suchstelle1 und suchstelle2 sollen
nur die Spalte1 und 2 in eine neue Datei geschrieben werden. Das habe ich:
Komme aber noch nicht ganz klar.
Danke.
ich würde gerne ein Perlprogramm erstellen wollen, das aus einer Datei ein Stück
herausschneidet und es dann verarbeitet. Die Datei die ich einlese sieht so aus:
suchstelle1
$ Spalte1 Spalte2 Spalte3 Spalte4
$ Spalte1 Spalte2 Spalte3 Spalte4
$ Spalte1 Spalte2 Spalte3 Spalte4
$ Spalte1 Spalte2 Spalte3 Spalte4
$ Spalte1 Spalte2 Spalte3 Spalte4
.
.
.
.
suchstelle2
Die Datei soll geöffnet werden und innerhalb von suchstelle1 und suchstelle2 sollen
nur die Spalte1 und 2 in eine neue Datei geschrieben werden. Das habe ich:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/local/bin/perl -w -l
#
#
use strict; # Dadurch muss man jetzt my einfügen, Deklaration von Variablen
use POSIX; # Erweiterte mathematische Funktionen
my @array;
my $suche1 = "suchstelle1";
my $suche2 = "suchstelle2";
open(IN, "<$ARGV[0]") || die "die Datei $_[1]nicht gefunden\n";
while(<IN>) {
if ($_=~ $suche1) {
open(OUT, ">out.txt");
while(<IN>)
{
if ($_=~ $suche2) { goto LOOP }
}
}
}
LOOP:do
close(OUT);
close(IN);
Komme aber noch nicht ganz klar.
Danke.