Hallo!
Hab mal folgende Frage/ folgendes Problem:
Ich habe eine database.cgi welche - wer hätte das gedacht - für eine eigene Datenbank zuständig ist.
In dieser Datei habe ich mehrere Subroutinen, welche für verschiedene Teilaufgaben zuständig sind. Die Datei selbst ist ein Teil eines Hauptprogrammes, welches mit require/use geladen wird.
Nun möchte ich aber, das von aussen her natürlich nur auf EINE bestimmte Subroutine zugegriffen werden kann, damit man nicht z.B. die Rechtevergaben überspringen/ abfangen kann.
Wie ist sowas möglich, ohne aus allen Subroutinen eine einzige zu machen?

also perl-code den aufruf von subroutinen zu verbieten, ist eigentlich nicht besonders sinnvoll,
denn wenn ich perl-code schreiben darf, der auf ein modul zugreift (und database.cgi ist
augenscheinlch ein modul, also solltest du es besser auch so nennen), dann kann ich
den code, auf den ich nicht zugreifen können soll, auch selbst schreiben.

in manchen objektorientierten sprachen hat man das konzept von privaten methoden, in
perl ist das einfach nur ein standard, der umgangen werden kann - man benennt solche
methoden mit einem führenden unterstrich.

also erklär mal bitte genauer, was du da machen willst.
wirklich verbieten kann man subroutinenaufruf von aussen nur, wenn es anonyme, lexikalische
subroutinen sind, aber vermutlich brauchst du das gar nicht.

Soll nur aus dem Package heraus die Subroutinen zugegriffen werden?

Zur Not kann man es so machen:

Edit: Oder wie pq es gesagt hat:

Da $test eine lexikalische Variable ist, kann man nicht "von außen" zugreifen.

renee+2008-05-27 13:45:41--

Soll nur aus dem Package heraus die Subroutinen zugegriffen werden?

Zur Not kann man es so machen:

Code (perl): (dl )

1
2
3

    if( $info[0] ne __PACKAGE__ ) {
      print "(test) nicht erlaubt: Aufruf aus Package $info[0]\n";
    }

ja, aber das bringt nix. niemand hält den programmierer davon ab, das richtige
package vor den aufruf zu schreiben, um zu schummeln. darum ging es mir. es ist so nicht möglich.

Ja, so ganz streng wie in anderen Programmiersprachen geht es nicht. Aber ist auch immer die Frage, wie "paranoid" man dabei ist (und wie "schlau" die anderen Programmierer sind).

renee+2008-05-27 13:45:41--

[...] Da $test eine lexikalische Variable ist, kann man nicht "von außen" zugreifen.

Wie man's nimmt – mit PadWalker kann man schon darauf zugreifen.

Naja in der Datenbank gibts halt verschiedene Teilabschnitte wie Berechtigungen, Lesen/ Schreiben, ent/ verschlüsseln,...
Und es sollten halt wirklich alle Funktionen in der richtigen Reihenfolge abgearbeitet werden.
Jemand der sich auskennt, für den ist das sicher kein Thema. Viel mehr ging es darum, das Plugins,... die Datenstrukturen nicht durcheinander bringen.
Die Codebeispiele werd ich mir heute abend mal angucken, vllt lass ich das mit dem abkappseln auch ganzbleiben.

wie gesagt, benenn die routinen einfach um, mach einen unterstrich vornedran.
damit erklärst du sie als privat. dann kannst du's auch nicht aus versehen verwechseln.

renee+2008-05-27 13:45:41--

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl

use strict;
use warnings;

{
  sub test {
    my @info = caller(0);

    if( $info[0] ne __PACKAGE__ ) {
      print "(test) nicht erlaubt: Aufruf aus Package $info[0]\n";
    }
    else{
      print "(test) erlaubt\n";
    }
  }
}

Das hat auch das kleine Problem, dass man Vererbung verhindert. Das kann gewünscht sein, muss aber nicht.

moritz+2008-05-28 10:52:29--

Das hat auch das kleine Problem, dass man Vererbung verhindert. Das kann gewünscht sein, muss aber nicht.

Private Elemente werden normalerweise nicht weitervererbt ;-)