Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[gelöst]](/battie/theme/default/icons/tick.png "gelöst"){kind=icon}
Leser: 15
+17 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
my $rechte=$session->param('rechte');
+3 replies
2011-02-10T03:56:25 YagyuIch will eine Online Ausleihe erstellen (Über Perl, ohne SQL)
+2 replies
2011-02-10T08:17:53 YagyuOder reden wir hier jetzt anneinander vorbei?
![[Homepage]](/battie/theme/default/homepage.gif)
DBD::Sprite (mit JSprite emuliert Oracles SQL) oder DBD::CSV sind Textdatenbanken mit SQL und nützlich.
+2 replies
2011-02-10T03:56:25 Yagyualle meine Versuche andem Code so rumzubasteln, dass eben die 5 informationen in die Datenbank geschrieben werden und ausgelesen sowie in die Session geschrieben, dass ich über my $rechte=$session->param('rechte'); auf die Rechte zugreifen kann, schlugen bisher fehl ... und ich verzweifel langsam auch dran, da ich nicht mehr weiter weiß. (ich komme nichtmal soweit, dass alle 5 Informationen in der DB landen.)
Quote[..] wegen der einfacheren Migrirbarkeit und des deutlich simpleren Debuggings würde ich höchst ungern auf sql setzen.
+9 replies
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
#!/usr/bin/perl; use strict; use warnings; use mydb; my $db=mydb->new('test.db'); $db->user({name=>'test1',pass=>'12345',mail=>'test1@example.org', active=>1, rights=>'rwx'}); $db->user({name=>'test2',pass=>'12345',mail=>'test2@example.org', active=>1, rights=>'rwx'}); $db->user({name=>'test3',pass=>'12345',mail=>'test3@example.org', active=>1, rights=>'rwx'}); $db->user({name=>'test4',pass=>'12345',mail=>'test4@example.org', active=>1, rights=>'rwx'}); $db->user('test1')->pass('test1'); $db->user('test2')->pass('test2'); $db->user('test3')->pass('test3'); $db->user('test4')->pass('test4'); for(qw(test1 test2 test3 test4)) { my $user=$db->user($_); print "$_ PASS OK\n" if($user->chk($_)); } for my $user ($db->user_list) { print $user->name."\n"; print " RIGHTS: ".$user->rights."\n"; print " MAIL : ".$user->mail."\n"; print " ACTIVE: ".$user->active."\n"; print "\n"; } $db->del('test1') if($db->has('test1'));
+8 replies
+6 replies
+5 replies
QuoteCan't locate object method "user" via package "mydb" at J:/Xampp/xampp/htdocs/DB/test2.pl line 9.
1 2 3
my $db=mydb->new('geraete.db'); $db->geraete({ID=>0001,name=>'ABCD',kat=>'KategorieXYZ', info=>'text abc'});
1 2 3
my $db=mydb->new('ausleihe.db'); $db->ausleihe({ID=>0001,User=>$name,ger_ID=>0001, date=>$heute, dauer =>7,abgeholt =>'j', zurueck=>'n' });
+4 replies
2011-02-10T16:40:24 Yagyunochmal ein paar Verständnissfragen:
wenn ich dein Beispiel der nutzung so 1:1 kopiere und öffnen will bekomme ich:QuoteCan't locate object method "user" via package "mydb" at J:/Xampp/xampp/htdocs/DB/test2.pl line 9.
was mich gerade schon wieder iwie sehr verwirrt, wenn ich in mydb schaue, is da ja ganz deutlich die sub für user ...
2011-02-10T16:40:24 Yagyuwenn ich das ganze nun auf 3 DB's ausweiten will - (1. User - 2. Geräteübersicht - 3. Ausleihe ansicht)
+3 replies
QuoteFehlermeldung:
Attempt to reload mydb.pm aborted. Compilation failed in require at J:/Xampp/xampp/htdocs/DB/neu/test2.pl line 4. BEGIN failed--compilation aborted at J:/Xampp/xampp/htdocs/DB/neu/test2.pl line 4. ,
+2 replies
1 2 3 4 5 6 7 8 9 10
use strict; use warnings; use utf8; # Datenbank zur Verwaltung von Nutzern package mydb; our %update; ....
Schrift
use strict; use warnings;
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
