Opened by paidopoieo at 2006-07-25 01:29
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Perl nimmt das erste, dass er in @INC findet.
Ich benutze in meinem Modul TagBase.pm folgende Methode, um den Pfad zum Modul herauszufinden:
Ich benutze in meinem Modul TagBase.pm folgende Methode, um den Pfad zum Modul herauszufinden:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
sub _finde_pfad () {
#--------------------------------------------------------------------------
# sub : _ f i n d e _ p f a d
#--------------------------------------------------------------------------
# Autor : CD
# Aufgabe : Sucht den Pfad des Moduls.
# Parameter : keiner (wertet @INC aus)
# Rückgabewert : Verzeichnis
#--------------------------------------------------------------------------
# 0.0.1 - 20.08.2003 - CD - Erstellt
#--------------------------------------------------------------------------
for my $pfad (@INC) {
return $pfad if -e "$pfad/TagBase.pm";
}
return '.';
} # sub _finde_pfads--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite