Also ich hab hier nen schönen Text Story

Aufgabe aus dem Tutorial :

Das ganze File soll in einen Array eingelesen werden (dies ist natürlich im Allgemeinen nicht angebracht, da das File sehr gross sein kann, aber wir wollen uns jetzt nicht darum kümmern.) Jede Zeile des Files ist ein Element des Arrays.

Die chop -Funktion mit einem Array als Parameter schneidet den letzten Buchstaben jedes Array-Elementes ab.

Wie wir schon gesehen haben, kann der gesamte Array mit folgender Anweisung zusammengefügt werden: $text = "@lines";

Verwende die split-Funktion mit dem Suchstring als regulärer Ausdruck für die Trennstelle, an welcher der Text unterteilt werden soll. Das Resultat ist ein Array aller Substrings, welche vom Suchstring eingeschlossen sind.

Drucke der Reihe nach jedes Arrayelement, den Suchstring und das nächste Arrayelement aus

Beachte, dass das letzte Element des Arrays @food den Index $#food hat.

Das Prog soll den Text so splitten das er später ca so aussieht

discovered (this is the truth) that when he
t kinds of metal to the leg of a frog, an e
rrent developed and the frog's leg kicked,
l onger attached to the frog, which was dea
normous advances in the field of amphibian
ch it hop back into the pond -- almost. Bu
ond -- almost. But the greatest Electrical
ectrical Pioneer of them all was Thomas Edi

also die "the" so schön unterinander halt nur in meinem Text mit "du".



#!usr/local/bin/perl
#
use strict;
my $z = 1;
my $text = '/SAN/content/cgi-bin/text';
open (INFO, $text);
my @lines = <INFO>;
close (INFO);
foreach my $zeile (@lines)
{
if ($zeile=~/[Dd]u/ ) {

my @lines = split (/[Dd]u/, $zeile);

foreach my $test_element (@lines){

print "$test_element";

}
}
}