Hallo Ich habe ein Perl-Programm welches einen Text auf der STDIN liest und dann nach einem Wort fragt, von diesem dann das rechte und das linke Wort ausgibt.... ich möchte aber dass das Programm alle Wörter die rechts sind ausgibt und alle Wörter die links sind!
also nicht nur $stdin_array[$var-1] sondern auch $stdin_array[$var-2] usw... Dass sich der user frei wählen kann wie viel er vom Kontext suchen möchte... ob er nur ein Wort rechts und links suchen möchte oder 2 usw...
ich hoffe mich hat jemand verstanden, hier ist der code:
#! /usr/bin/perluse strict;
use warnings;
print "geben Sie einen Text ein gefolgt von einem Backslash";
my $line = <>;
# Den String an einer Leerstelle splitten, jedes Wort also eigenes Element des Arrays
my @stdin_array = split(/\s+/, $line);
print "Welches Wort moechten Sie suchen?";
my $line2 = <>;
for (my $var = 0; $var <= $#stdin_array; $var++) {
# Regulaerer Ausdruck der das 2. eingegebene Wort mit den Elementen aus dem Text vergleicht
if ($line2 =~ /$stdin_array[$var]/) {
print " linker Kontext: ";
print $stdin_array[$var-123]." Wort: ";
print $stdin_array[$var]." rechter Kontext: ";
print $stdin_array[$var+1]
} else {
# print 'nein';
}
}
Datum: 02.04.2008-09:54
Listenelement
