nicht angemeldet
use Mosche;
a) Überprüfen ob Verzeichnis vorhanden, wenn nein, anlegen.
mkdir("/bla/blubb/") unless (-e "/bla/blubb/");
Das könnte man vielleicht mit '-d' statt '-e' machen, weil -e nur auf Existenz prüft, nicht ob es tatsächlich ein Verzeichnis ist.
b) Überprüfen ob Datenbank.txt vorhanden, wenn nein, anlegen.
Wenn du in die Datei schreibst, wird sie automatisch angelegt, falls sie nicht existiert.
Oder mit '-e'.
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}