nicht angemeldet
use Mosche;
Hallo habe folgenden Variable:
---schnipp---
$webseite="
~Mi~27.11.2002~ ~22:00 - ~7:00~ ~Universitätsklinikum
[...]
~So~1.12.2002~ ~8:00 - ~7:00~ ~Universitätsklinikum "
---schnipp---Jetzt moechte ich alle Zeilen, die NICHT den String '28.11.2002' beinhalten aus dieser Variable loeschen.
Wie geht das?
Das sind doch alles Perl-Basics!
my $searched = '28.11.2002';
$webseite = join("\n", grep { /$searched/ } split(/\n/, $webseite));
siehe dazu:
perldoc -f split
perldoc -f grep
perldoc -f join
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}
$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}