#!/usr/bin/perl -w
use strict;
#Markus Westphal 14.06.2005
my($short, $long, $hpos, $vpos, $wort, $leer, $i, $lpos, $part);
$short="y";
$leer=" ";
$long=" Dies ist ein substring test! ";
print "Gesucht wird in:$long\n";
$i=0;
do {
$lpos = index($long,$short, $i);
$hpos = index($long,$leer, $lpos);
$vpos = rindex($long,$leer, $hpos-1);

if ($lpos > -1) {
$part = substr($long, $lpos, length($short));
$wort = substr($long, $vpos+1,($hpos-$vpos));
print "gesucht von Stelle $i,\n $part an Stelle $lpos gefunden in $wort ($vpos, $hpos)\n";
}
$i++;
} while($lpos > -1);