From usenet at gmx.eu  Sun Feb  1 06:21:50 2009
From: usenet at gmx.eu (Steffen Liebergeld)
Date: Sun, 1 Feb 2009 14:21:50 +0000 (UTC)
Subject: [Dresden-pm] Dresden Perl Mongers Treffen Februar 2009
References: <E1LSdc4-00060u-Ui@h132974.serverkompetenz.net>
Message-ID: <gm4b5t$bhu$1@ger.gmane.org>

Hi, Mongers,

hat einer von euch schon mit Sqlite und deren Perl-Bindings gearbeitet? Ich
würde mir am Donnerstag gerne mal eure Erfahrungen damit anhören.

Gruß, Steffen


From mailinglisten at renee-baecker.de  Sun Feb  1 06:38:52 2009
From: mailinglisten at renee-baecker.de (=?ISO-8859-1?Q?Renee_B=E4cker?=)
Date: Sun, 01 Feb 2009 15:38:52 +0100
Subject: [Dresden-pm] Dresden Perl Mongers Treffen Februar 2009
In-Reply-To: <gm4b5t$bhu$1@ger.gmane.org>
References: <E1LSdc4-00060u-Ui@h132974.serverkompetenz.net>
	<gm4b5t$bhu$1@ger.gmane.org>
Message-ID: <4985B3FC.5020404@renee-baecker.de>

Hi,

ich setze relativ häufig SQLite mit DBD::SQLite ein und bin sehr 
zufrieden damit. Ich benutze SQLite meistens für schnelle Prototypen 
oder wenn auf die Schnelle kein anderes DB-System zur Verfügung steht. 
Da DBD::SQLite direkt mit SQLite kommt, ist das schnell einsatzbereit.

Gibt es spezielle Fragen von Deiner Seite?

Gruß,
Renée

Steffen Liebergeld schrieb:
> Hi, Mongers,
>
> hat einer von euch schon mit Sqlite und deren Perl-Bindings gearbeitet? Ich
> würde mir am Donnerstag gerne mal eure Erfahrungen damit anhören.
>
> Gruß, Steffen
>
> _______________________________________________
> Dresden-pm mailing list
> Dresden-pm at pm.org
> http://mail.pm.org/mailman/listinfo/dresden-pm
>
>
>   


From ss5 at renormalist.net  Sun Feb  1 12:59:25 2009
From: ss5 at renormalist.net (Steffen Schwigon)
Date: Sun, 01 Feb 2009 21:59:25 +0100
Subject: [Dresden-pm] Dresden Perl Mongers Treffen Februar 2009
In-Reply-To: <gm4b5t$bhu$1@ger.gmane.org> (Steffen Liebergeld's message of
	"Sun, 1 Feb 2009 14:21:50 +0000 (UTC)")
References: <E1LSdc4-00060u-Ui@h132974.serverkompetenz.net>
	<gm4b5t$bhu$1@ger.gmane.org>
Message-ID: <87skmxub4i.fsf@renormalist.net>

Steffen Liebergeld <usenet at gmx.eu> writes:
> Hi, Mongers,
>
> hat einer von euch schon mit Sqlite und deren Perl-Bindings
> gearbeitet? Ich würde mir am Donnerstag gerne mal eure Erfahrungen
> damit anhören.

Ich verwende SQLite zwar üblicherweise via DBIx::Class, da ist die DB
eh halbwegs egal, aber komm vorbei.

Inzwischen schmeckt das Essen nicht mehr so doll, dafür ist der Kaffee
over-featured.

Bring Code mit.

Kind regards,
Steffen 
-- 
Steffen Schwigon <ss5 at renormalist.net>

From usenet at gmx.eu  Thu Feb  5 02:40:52 2009
From: usenet at gmx.eu (Steffen Liebergeld)
Date: Thu, 5 Feb 2009 10:40:52 +0000 (UTC)
Subject: [Dresden-pm] Dresden Perl Mongers Treffen Februar 2009
References: <E1LSdc4-00060u-Ui@h132974.serverkompetenz.net>
	<gm4b5t$bhu$1@ger.gmane.org> <4985B3FC.5020404@renee-baecker.de>
Message-ID: <gmefnk$62c$1@ger.gmane.org>

Renee Bäcker <mailinglisten at renee-baecker.de> schrieb:
> Hi,
>
> ich setze relativ häufig SQLite mit DBD::SQLite ein und bin sehr 
> zufrieden damit. Ich benutze SQLite meistens für schnelle Prototypen 
> oder wenn auf die Schnelle kein anderes DB-System zur Verfügung steht. 
> Da DBD::SQLite direkt mit SQLite kommt, ist das schnell einsatzbereit.
>
> Gibt es spezielle Fragen von Deiner Seite?

Nein. Ich möchte gerne -wenn ich mal Zeit habe- eine kleine Anwendung
schreiben und wollte dazu Sqlite nutzen. Daher interessiert es mich allgemein
wie gut die Erfahrungen dazu sind.


Gruß, Steffen


From jiabaoyu at gmail.com  Wed Feb 18 00:08:26 2009
From: jiabaoyu at gmail.com (Baoyu Jia)
Date: Wed, 18 Feb 2009 09:08:26 +0100
Subject: [Dresden-pm] periodic
Message-ID: <c0e42edb0902180008k36da3496x49244d12311cf046@mail.gmail.com>

http://www.ozonehouse.com/mark/periodic/
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://mail.pm.org/pipermail/dresden-pm/attachments/20090218/ba830aee/attachment.html>

From dresden-pm at demofreak.de  Wed Feb 18 00:21:22 2009
From: dresden-pm at demofreak.de (Johannes Studt)
Date: Wed, 18 Feb 2009 09:21:22 +0100
Subject: [Dresden-pm] periodic
In-Reply-To: <c0e42edb0902180008k36da3496x49244d12311cf046@mail.gmail.com>
References: <c0e42edb0902180008k36da3496x49244d12311cf046@mail.gmail.com>
Message-ID: <200902180921.22761.dresden-pm@demofreak.de>

Am Mittwoch 18 Februar 2009 09:08:26 schrieb Baoyu Jia:
> http://www.ozonehouse.com/mark/periodic/

Cool :)
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://mail.pm.org/pipermail/dresden-pm/attachments/20090218/207a49e7/attachment.html>

From thomas.rittsche at gmail.com  Thu Feb 19 08:04:09 2009
From: thomas.rittsche at gmail.com (Thomas Rittsche)
Date: Thu, 19 Feb 2009 17:04:09 +0100
Subject: [Dresden-pm] Objektorientierung unter Perl
Message-ID: <584da2df0902190804h69f8e21bm35c6f0fad6bb4786@mail.gmail.com>

Hallo Mongers,
hatten heute einen Dozenten hier, der uns in Sachen Objektorientiertes
Perl fit machen sollte. Leider ist der schon an einem der ersten
Beispiele gescheitert. Die Aufgabe war, eine Klasse "Auto" anzulegen,
die von einer Klasse "Motor" erbt bzw. abgeleitet ist. Irgendwie ist
da wohl was schief gegangen, am Ende war die Verwirrung perfekt,
keiner wusste mehr, wann wo und warum zu blessen ist... ;)

Mit dem Code unten gabs immer ne Fehlermeldung beim Anlegen einer
Instanz von Auto über

use Auto;
$auto = Auto->new();

Könnt ihr uns mal bitte wieder in die Spur bringen?  Vielen Dank!


Hier mal zwei Codeschnipsel, die Klassen lagen natürlich in eigenen Dateien:

#  ####  Klasse Auto

#!/usr/bin/perl -W

package Auto;
use     Motor;

@ISA = qw(Motor);

sub new {
  my ($class, $data) = @_;
  my $self = {};
  bless $self, $class;
  $self->SUPER::new();
  return $self;
}

1;

#  ####  Klasse Motor

#!/usr/bin/perl -W
package Motor;
sub new{
  my ($class, $data) = @_;
  my $typ = shift;
  my $self = {};
  bless $self, $class;
  $self->{zustand}  = 'aus';
  $self->{oelstand} = 0;
  $self->{typ} = $typ;
  return $self;
}

sub zustand{
  my $self = shift;
  return $self->{zustand} unless @_;
  $self->{zustand} = shift;
  return $self;
}

sub starte {
  my $self = shift;
  print "Gestartet \n";
  return $self;
}

sub DESTROY{
  my $self = shift;
  $self = {};
}

1;

From mailinglisten at renee-baecker.de  Thu Feb 19 08:22:45 2009
From: mailinglisten at renee-baecker.de (=?ISO-8859-1?Q?Renee_B=E4cker?=)
Date: Thu, 19 Feb 2009 17:22:45 +0100
Subject: [Dresden-pm] Objektorientierung unter Perl
In-Reply-To: <584da2df0902190804h69f8e21bm35c6f0fad6bb4786@mail.gmail.com>
References: <584da2df0902190804h69f8e21bm35c6f0fad6bb4786@mail.gmail.com>
Message-ID: <499D8755.9000402@renee-baecker.de>

Thomas Rittsche schrieb:
> Hallo Mongers,
> hatten heute einen Dozenten hier, der uns in Sachen Objektorientiertes
> Perl fit machen sollte. Leider ist der schon an einem der ersten
> Beispiele gescheitert. Die Aufgabe war, eine Klasse "Auto" anzulegen,
> die von einer Klasse "Motor" erbt bzw. abgeleitet ist. Irgendwie ist
> da wohl was schief gegangen, am Ende war die Verwirrung perfekt,
> keiner wusste mehr, wann wo und warum zu blessen ist... ;)


in new von "Auto" geht es so:

sub new {
  my ($class, $data) = @_;
  $self = $class->SUPER::new();
  return $self;
}

- Renée


--

Perl-Magazin: http://perl-magazin.de
Perl-Nachrichten: http://perl-nachrichten.de

From thomas.rittsche at gmail.com  Thu Feb 19 08:27:51 2009
From: thomas.rittsche at gmail.com (Thomas Rittsche)
Date: Thu, 19 Feb 2009 17:27:51 +0100
Subject: [Dresden-pm] Objektorientierung unter Perl
In-Reply-To: <499D8755.9000402@renee-baecker.de>
References: <584da2df0902190804h69f8e21bm35c6f0fad6bb4786@mail.gmail.com>
	<499D8755.9000402@renee-baecker.de>
Message-ID: <584da2df0902190827k25268964vc880bcbca8571e12@mail.gmail.com>

Das sieht sinnvoll aus :). Danke!

Und kein bless mehr in der abgeleiteten Klasse nehme ich an...?


2009/2/19 Renee Bäcker <mailinglisten at renee-baecker.de>:
> Thomas Rittsche schrieb:
>> Hallo Mongers,
>> hatten heute einen Dozenten hier, der uns in Sachen Objektorientiertes
>> Perl fit machen sollte. Leider ist der schon an einem der ersten
>> Beispiele gescheitert. Die Aufgabe war, eine Klasse "Auto" anzulegen,
>> die von einer Klasse "Motor" erbt bzw. abgeleitet ist. Irgendwie ist
>> da wohl was schief gegangen, am Ende war die Verwirrung perfekt,
>> keiner wusste mehr, wann wo und warum zu blessen ist... ;)
>
>
> in new von "Auto" geht es so:
>
> sub new {
>  my ($class, $data) = @_;
>  $self = $class->SUPER::new();
>  return $self;
> }
>
> - Renée
>
>
> --
>
> Perl-Magazin: http://perl-magazin.de
> Perl-Nachrichten: http://perl-nachrichten.de
> _______________________________________________
> Dresden-pm mailing list
> Dresden-pm at pm.org
> http://mail.pm.org/mailman/listinfo/dresden-pm
>

From mailinglisten at renee-baecker.de  Thu Feb 19 08:33:21 2009
From: mailinglisten at renee-baecker.de (=?ISO-8859-1?Q?Renee_B=E4cker?=)
Date: Thu, 19 Feb 2009 17:33:21 +0100
Subject: [Dresden-pm] Objektorientierung unter Perl
In-Reply-To: <499D8755.9000402@renee-baecker.de>
References: <584da2df0902190804h69f8e21bm35c6f0fad6bb4786@mail.gmail.com>
	<499D8755.9000402@renee-baecker.de>
Message-ID: <499D89D1.2010902@renee-baecker.de>

Renee Bäcker schrieb:
> in new von "Auto" geht es so:
> 
> sub new {
>   my ($class, $data) = @_;
>   $self = $class->SUPER::new();
>   return $self;
> }
> 
> - Renée

noch ne Anmerkung: Ihr solltet strict (siehe auch
http://wiki.perl-community.de/bin/view/Wissensbasis/UseStrict ) verwenden.

Außerdem habt ihr in beiden Konstruktoren ein $data, was ihr nie verwendet.

Dann habt ihr einen getter/setter für zustand in "Motor", benutzt ihn im
Konstruktor aber nicht. In "new" in "Motor" sollte es also anstatt

$self->{zustand} = 'aus';

einfach

$self->zustand( 'aus' );

heißen!


-- 

Perl-Magazin: http://perl-magazin.de
Perl-Nachrichte: http://perl-nachrichten.de

From mailinglisten at renee-baecker.de  Thu Feb 19 08:48:36 2009
From: mailinglisten at renee-baecker.de (=?ISO-8859-1?Q?Renee_B=E4cker?=)
Date: Thu, 19 Feb 2009 17:48:36 +0100
Subject: [Dresden-pm] Objektorientierung unter Perl
In-Reply-To: <584da2df0902190827k25268964vc880bcbca8571e12@mail.gmail.com>
References: <584da2df0902190804h69f8e21bm35c6f0fad6bb4786@mail.gmail.com>	<499D8755.9000402@renee-baecker.de>
	<584da2df0902190827k25268964vc880bcbca8571e12@mail.gmail.com>
Message-ID: <499D8D64.2010704@renee-baecker.de>

Thomas Rittsche schrieb:
> Das sieht sinnvoll aus :). Danke!
> 
> Und kein bless mehr in der abgeleiteten Klasse nehme ich an...?
> 
> 

Falls es Dich interessiert:

http://renee-baecker.de/courses/oo_perl.pdf
http://renee-baecker.de/courses/OOPerl.pdf

- Renée


-- 

Perl-Magazin: http://perl-magazin.de
Perl-Nachrichte: http://perl-nachrichten.de

From pagaltzis at gmx.de  Thu Feb 19 12:53:58 2009
From: pagaltzis at gmx.de (Aristoteles Pagaltzis)
Date: Thu, 19 Feb 2009 21:53:58 +0100
Subject: [Dresden-pm] Objektorientierung unter Perl
In-Reply-To: <584da2df0902190804h69f8e21bm35c6f0fad6bb4786@mail.gmail.com>
References: <584da2df0902190804h69f8e21bm35c6f0fad6bb4786@mail.gmail.com>
Message-ID: <20090219205358.GA6206@klangraum.plasmasturm.org>

* Thomas Rittsche <thomas.rittsche at gmail.com> [2009-02-19 17:05]:
> Die Aufgabe war, eine Klasse "Auto" anzulegen, die von einer
> Klasse "Motor" erbt bzw. abgeleitet ist.

Furchtbar. Seit wann *ist* ein Auto ein Motor?!? Ein Auto HAT
einen Motor! Wahrscheinlich schon wieder eine dieser Einführungen
in OO, die ewig von Vererbung schwurbelt ohne jemals in die Nähe
ihres tatsächlichen Sinns zu kommen.

http://plasmasturm.org/log/340/

Und ich wette, daß er kein Wort über Delegation verloren hat, die
MIT WEITEM ABSTAND wichtiger ist als Vererbung.

> sub DESTROY{
>  my $self = shift;
>  $self = {};
> }

Vollständig überflüssig. Im Allgemeinen ist `DESTROY` in Klassen,
die Teil von Hierarchien bilden, eine häufige Quelle von Gotchas;
nach Möglichkeit zu vermeiden. Selbst in alleinstehenden Klassen
ist es gefährlich, aber ist ja manchmal doch unvermeidlich?

Sorry daß ich hier so heftig auftrete, aber dieser Mensch scheint
wirklich Quark mit Käse aufgetischt zu haben. Falls er Aussagen
zu objektorientiertem Design gemacht haben sollte, so vergesst
sie bitte schleunigst wieder, ihr werdet damit auf keinen grünen
Zweig kommen.

Gruß,
-- 
Aristoteles Pagaltzis // <http://plasmasturm.org/>

From ss5 at renormalist.net  Mon Feb 23 12:41:55 2009
From: ss5 at renormalist.net (Steffen Schwigon)
Date: Mon, 23 Feb 2009 21:41:55 +0100
Subject: [Dresden-pm] periodic
In-Reply-To: <c0e42edb0902180008k36da3496x49244d12311cf046@mail.gmail.com>
	(Baoyu Jia's message of "Wed, 18 Feb 2009 09:08:26 +0100")
References: <c0e42edb0902180008k36da3496x49244d12311cf046@mail.gmail.com>
Message-ID: <87bpssj370.fsf@renormalist.net>

Baoyu Jia <jiabaoyu at gmail.com> writes:
> http://www.ozonehouse.com/mark/periodic/

Hammer. Da isses wieder. Und brandaktuell. Sehr geil. Danke.

Steffen, morgen im A0-Printshop.
-- 
Steffen Schwigon <ss5 at renormalist.net>
Dresden Perl Mongers <http://dresden-pm.org/>
German Perl-Workshop 2009 <http://www.perl-workshop.de/en/2009>

From ss5 at renormalist.net  Mon Feb 23 12:58:47 2009
From: ss5 at renormalist.net (Steffen Schwigon)
Date: Mon, 23 Feb 2009 21:58:47 +0100
Subject: [Dresden-pm] Objektorientierung unter Perl
In-Reply-To: <20090219205358.GA6206@klangraum.plasmasturm.org> (Aristoteles
	Pagaltzis's message of "Thu, 19 Feb 2009 21:53:58 +0100")
References: <584da2df0902190804h69f8e21bm35c6f0fad6bb4786@mail.gmail.com>
	<20090219205358.GA6206@klangraum.plasmasturm.org>
Message-ID: <87vdr0hnug.fsf@renormalist.net>

Aristoteles Pagaltzis <pagaltzis at gmx.de> writes:
> * Thomas Rittsche <thomas.rittsche at gmail.com> [2009-02-19 17:05]:
>> Die Aufgabe war, eine Klasse "Auto" anzulegen, die von einer
>> Klasse "Motor" erbt bzw. abgeleitet ist.
>
> Furchtbar. Seit wann *ist* ein Auto ein Motor?!?
> [...]
> Sorry daß ich hier so heftig auftrete, aber dieser Mensch scheint
> wirklich Quark mit Käse aufgetischt zu haben.

Muss ich mal zustimmen.

Und wenn ihr eh damit irgendwo grad neu losmacht, *muss* wenigstens
einer sagen, dass ihr mal nach "Moose" schaut:

  http://search.cpan.org/~drolsky/Moose/lib/Moose.pm

Es kostet tatsächlich spürbar Laufzeit (bzw. Startzeit), aber damit
geht das OO ganz natürlich und schon die erste SYNOPSIS ist lesbarer,
als das selbstgebaute rumge"bless"e mit eigenen new-Konstruktoren und
@ISA-Schieberei.

"bless" ist zwar sehr ok und legitim, grad, wenn Perl schnell sein
soll, aber wenn man's eh noch nicht genau verstanden hat, ist es auch
legitim, gleich modern anzufangen.

  http://www.iinteractive.com/moose/

Alle machen Moose heutzutage. Wirklich.
(Ja, und alle Verallgemeinerungen sind falsch.)

Kind regards,
Steffen 
-- 
Steffen Schwigon <ss5 at renormalist.net>
Dresden Perl Mongers <http://dresden-pm.org/>
German Perl-Workshop 2009 <http://www.perl-workshop.de/en/2009>

From thomas.rittsche at gmail.com  Wed Feb 25 09:10:44 2009
From: thomas.rittsche at gmail.com (Thomas Rittsche)
Date: Wed, 25 Feb 2009 18:10:44 +0100
Subject: [Dresden-pm] Objektorientierung unter Perl
In-Reply-To: <87vdr0hnug.fsf@renormalist.net>
References: <584da2df0902190804h69f8e21bm35c6f0fad6bb4786@mail.gmail.com>
	<20090219205358.GA6206@klangraum.plasmasturm.org>
	<87vdr0hnug.fsf@renormalist.net>
Message-ID: <584da2df0902250910v3d5adb0eg5c14e6317748cab6@mail.gmail.com>

Zuerst mal vielen Dank an alle!

Das Motor->Auto Beispiel hatte übrigens schon während der Schulung für
kontroverse Diskussionen gesorgt.

Aristoteles hatte übrigens Recht: der Dozent hat übrigens kein Wort
über "Delegation" verloren. Am Ende waren wir wirklich auf keinem
grünen Zweig und kaum schlauer in Sachen OO und Perl. Von den Basics
hatten wir ja schon mal gehört und mehr als das hatte der Dozent nicht
drauf.
Wir werden jetzt auf jeden Fall auf Grund von nur teilweiser
erbrachter Leistung nicht den kompletten Rechnungsbetrag begleichen.
Und dann auf die Suche nach besseren Dozenten gehen. Wenn also jemand
einen Tipp für uns hat...



2009/2/23 Steffen Schwigon <ss5 at renormalist.net>:
> Aristoteles Pagaltzis <pagaltzis at gmx.de> writes:
>> * Thomas Rittsche <thomas.rittsche at gmail.com> [2009-02-19 17:05]:
>>> Die Aufgabe war, eine Klasse "Auto" anzulegen, die von einer
>>> Klasse "Motor" erbt bzw. abgeleitet ist.
>>
>> Furchtbar. Seit wann *ist* ein Auto ein Motor?!?
>> [...]
>> Sorry daß ich hier so heftig auftrete, aber dieser Mensch scheint
>> wirklich Quark mit Käse aufgetischt zu haben.
>
> Muss ich mal zustimmen.
>
> Und wenn ihr eh damit irgendwo grad neu losmacht, *muss* wenigstens
> einer sagen, dass ihr mal nach "Moose" schaut:
>
>  http://search.cpan.org/~drolsky/Moose/lib/Moose.pm
>
> Es kostet tatsächlich spürbar Laufzeit (bzw. Startzeit), aber damit
> geht das OO ganz natürlich und schon die erste SYNOPSIS ist lesbarer,
> als das selbstgebaute rumge"bless"e mit eigenen new-Konstruktoren und
> @ISA-Schieberei.
>
> "bless" ist zwar sehr ok und legitim, grad, wenn Perl schnell sein
> soll, aber wenn man's eh noch nicht genau verstanden hat, ist es auch
> legitim, gleich modern anzufangen.
>
>  http://www.iinteractive.com/moose/
>
> Alle machen Moose heutzutage. Wirklich.
> (Ja, und alle Verallgemeinerungen sind falsch.)
>
> Kind regards,
> Steffen
> --
> Steffen Schwigon <ss5 at renormalist.net>
> Dresden Perl Mongers <http://dresden-pm.org/>
> German Perl-Workshop 2009 <http://www.perl-workshop.de/en/2009>
> _______________________________________________
> Dresden-pm mailing list
> Dresden-pm at pm.org
> http://mail.pm.org/mailman/listinfo/dresden-pm
>

From ss5 at renormalist.net  Wed Feb 25 12:55:12 2009
From: ss5 at renormalist.net (Steffen Schwigon)
Date: Wed, 25 Feb 2009 21:55:12 +0100
Subject: [Dresden-pm] Objektorientierung unter Perl
In-Reply-To: <584da2df0902250910v3d5adb0eg5c14e6317748cab6@mail.gmail.com>
	(Thomas Rittsche's message of "Wed, 25 Feb 2009 18:10:44 +0100")
References: <584da2df0902190804h69f8e21bm35c6f0fad6bb4786@mail.gmail.com>
	<20090219205358.GA6206@klangraum.plasmasturm.org>
	<87vdr0hnug.fsf@renormalist.net>
	<584da2df0902250910v3d5adb0eg5c14e6317748cab6@mail.gmail.com>
Message-ID: <87ljru1bkf.fsf@renormalist.net>

Thomas Rittsche <thomas.rittsche at gmail.com> writes:
> Und dann auf die Suche nach besseren Dozenten gehen. Wenn also
> jemand einen Tipp für uns hat...

Ich hab schon von Kursen im Linuxhotel gehoert, die scheinbar gut sein
koennten.

Und wenn Geld keine Rolle spielt, kannst Du Damian Conway mieten.  Der
ist richtig teuer, den Kurs vergesst ihr aber vermutlich euer Leben
lang nicht mehr.

Steffen
-- 
Steffen Schwigon <ss5 at renormalist.net>

From create-soft at freenet.de  Thu Feb 26 11:18:02 2009
From: create-soft at freenet.de (create-soft at freenet.de)
Date: Thu, 26 Feb 2009 20:18:02 +0100
Subject: [Dresden-pm] Objektorientierung unter Perl
Message-ID: <E1LclkA-0007OQ-SC@www16.emo.freenet-rz.de>

On Wed, 25 Feb 2009, at 18:10:44, Thomas Rittsche <thomas.rittsche at gmail.com>  wrote:


>Zuerst mal vielen Dank an alle!
>
>Das Motor->Auto Beispiel hatte =FCbrigens schon w=E4hrend der Schulung f=FCr
>kontroverse Diskussionen gesorgt.
>
>Aristoteles hatte =FCbrigens Recht: der Dozent hat =FCbrigens kein Wort
>=FCber "Delegation" verloren. Am Ende waren wir wirklich auf keinem
>gr=FCnen Zweig und kaum schlauer in Sachen OO und Perl. Von den Basics
>hatten wir ja schon mal geh=F6rt und mehr als das hatte der Dozent nicht
>drauf.
>Wir werden jetzt auf jeden Fall auf Grund von nur teilweiser
>erbrachter Leistung nicht den kompletten Rechnungsbetrag begleichen.
>Und dann auf die Suche nach besseren Dozenten gehen. Wenn also jemand
>einen Tipp f=FCr uns hat...

 Vielleicht kannst du dir das Buch:
 "Objektorientiert Programmieren mit Perl"
 von Damian Conway besorgen.
 (C) 2001 by ADDISON-WESLEY Verlag

 Torsten







#adBox3 {display:none;}




From create-soft at freenet.de  Fri Feb 27 22:42:00 2009
From: create-soft at freenet.de (create-soft at freenet.de)
Date: Sat, 28 Feb 2009 07:42:00 +0100
Subject: [Dresden-pm] Objektorientierung unter Perl
Message-ID: <E1LdItc-0006Ju-3d@www11.emo.freenet-rz.de>

Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://mail.pm.org/pipermail/dresden-pm/attachments/20090228/f4ff941f/attachment.html>
-------------- nächster Teil --------------
On Mon, 23 Feb 2009, at 21:58:47, Steffen Schwigon <ss5 at renormalist.net> wrote:
>Aristoteles Pagaltzis <pagaltzis at gmx.de> writes:
> Sorry daß ich hier so heftig auftrete, aber dieser Mensch scheint
> wirklich Quark mit Käse aufgetischt zu haben.
#!/usr/bin/perl -w
#*** breakfast.pl ***#
#-------------------------------------------------
 package ClassMakeBreakfast;
 use strict;
 sub new
  {
  my ($class, %args) = @_;
  my $self = { };
  bless($self, ref($class) || $class);
  $self->_Initialize(%args);
  return $self;
  }
#-------------------------------------------------
 package ClassMilk;
 @ClassMilk::ISA = qw(ClassMakeBreakfast);
 sub _Initialize
  {
  my ($self, %args) = @_;
  # ...
  }
#-------------------------------------------------
 package ClassCheese;
 @ClassCheese::ISA = qw(ClassMakeBreakfast ClassMilk);
 sub _Initialize
  {
  my ($self, %args) = @_;
  # ...
  }
#-------------------------------------------------
 package ClassCurd;
 @ClassCurd::ISA = qw(ClassMakeBreakfast ClassMilk);
 sub _Initialize
  {
  my ($self, %args) = @_;
  # ...
  }
#-------------------------------------------------
 package ClassSandwich;
 @ClassSandwich::ISA = qw(ClassMakeBreakfast ClassCheese ClassCurd);
 sub _Initialize
  {
  my ($self, %args) = @_;
  $self->$_(%args) for(map { $_->can('_Initialize') || () } @ClassSandwich::ISA);
  # ...
  }
 sub Breakfast
  {
  my ($self, %args) =  @_;
  my $count = defined($args{-count}) ? delete($args{-count}) : 0;
  print("Eating $count sandwichs\n") if($count);
  }
 #------------------------------------------------
 package main;
 my $sandwich = ClassSandwich->new();
 $sandwich->Breakfast(-count => 2);
#-------------------------------------------------
 Denke OO,
 Lebe OO,
 Handle OO,
 und es lernt sich wie von selbst ... :-)
 
 Torsten


Gesendet von freenetMail-
Mehr als nur eine E-Mail-Adresse
http://email.freenet.de/dienste/emailoffice/produktuebersicht/basic/mail/index.html?pid=6828