nicht angemeldet
use Mosche;
my $searched = '28.11.2002';
$webseite = join("\n", grep { /$searched/ } split(/\n/, $webseite));
Hm, funktionieren tut es bei mir aber nicht.
Da werden alle Zeilen wie bisher angezeigt.
Hast du dir meine Lektürenhinweise angesehen? Ich verbalisiere mal obige Zeile:
Teile deinen Text in mehrere Texte auf, die jeweils durch einen Zeilenumbruch getrennt sind (split()). Daraus nimmst du dir die Zeilen, die den Text '28.11.2002' enthalten (grep). Diese Texte setzt du wieder zu einem einzigen Text zusammen, wieder durch einen Zeilenumbruch getrennt (join()). Programmier das mal ausführlich in Perl, dann wirst du:
a) die richtige Lösung haben und
b) besser Perl können. Das wird dir mehr helfen, als wenn du hier die Lösung vorgekaut bekommst.
use Tschoe qw(Matti);
$a=n(1001010);print chr($a+=$_)for(0,43,-2,1,-84,65,13,1,5,
-12,-3,13,-82,48,21,13,-6,-76,72,-7,2,8,-6,13,-104);sub n{
$b=0;$_=0;for($c=length$_[0];$c;--$c){$_+=_($b)if substr$_
[0],$c-1,1;$b++;}$_}sub _{($d)=@_;for($e=1;$d--;$e*=2){}$e}