Perls tie()

[hotti]

hi,

PS: Die Datenabstraktion über den MySQL Layer macht die wundervolle Perl-Funktion tie(), in PHP gibts nichts Vergleichbares.

Damit konnte ich bisher gut leben ;) Wenns was nicht gibt, schreib ich mir was oder nutze was anderes, das passt. Es gibt in Lua Dinge, die mir in Perl fehlen, in C Dinge, die ich in PHP vermisse usw. Ist nunmal so *g*

Weil tie() so schön ist ;)

  
# Termin im Backend edit/update  
# Data-Layer binden  
my $yy = tie my %data, 'MySQL::Yearly', (base => 'myweb')  
   or die $@; # mögliche EX, DB nicht erreichbar, etc...  
  
# Klick auf Edit  
# Daten abholen über Termin-ID  
$yy->validate($id)  
    or return $self->errorP(descr => "ID is not valid", title => 'Eingabefehler');  
  
# Alle Eingabefelder werden befüllt  
foreach my $f( qw(month day descr title von bis sta sto)){  
   $self->{STASH}{$f} = $self->ents($self->trim($self->param($f)));  
}  
# ID kommt in ein hidden-Field  
$self->{STASH}{id} = $id;  
  
# nach der Prüfung der Eingaben  
# alles zurück in den Data-Hash  
foreach my $f( @fields ){  
  $data{$f} = $self->trim($self->param($f));  
}  
$yy->write; # persistent in DB  
  
# fertig ;)