Opened by BrownWolf at 2003-09-23 23:56
User since
2003-08-15
308 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
308 Artikel
BenutzerIn
Also ich hatte die Frage schon einmal gestellt und keine Antwort darauf bekommen.
Ab und zu braucht man ja ein Modul von CPAN und möchte es dann mitbenutzen.
1 Frage) Darf man das Modul ändern ? Also nur die POD Kommentare (ca 20 KB) entfernen ?
Dadurch wird das Modul schon einiges kleiner ....
2 Frage) Am Anfang steht ja immer:
Und mitten im Programm stehen die Subroutinen so:
Jetzt möchte ich dieses Modul aber nicht in den Ordner "Verzeichnis" packen sondern in meinen eigenen Ordner "Modules".
Wie rufe ich dann das Modul auf ?
Iss klar mit:
Und dann mit use Modul einbinden.
Das Problem ist nur das man dann keine einzige Subroutine mehr aufrufen kann ....
Weil alle als Verzeichnis::SUB angegeben sind und nicht als Modules::SUB !!
Hoffentlich versteht mich jemand und kann mir helfen ;)
Ab und zu braucht man ja ein Modul von CPAN und möchte es dann mitbenutzen.
1 Frage) Darf man das Modul ändern ? Also nur die POD Kommentare (ca 20 KB) entfernen ?
Dadurch wird das Modul schon einiges kleiner ....
2 Frage) Am Anfang steht ja immer:
Code (perl): (dl
)
package Verzeichnis::Modul;
Und mitten im Programm stehen die Subroutinen so:
Jetzt möchte ich dieses Modul aber nicht in den Ordner "Verzeichnis" packen sondern in meinen eigenen Ordner "Modules".
Wie rufe ich dann das Modul auf ?
Iss klar mit:
Code (perl): (dl
)
use lib qw(Modules); # Ordner Modules zu @INC hinzufügen
Und dann mit use Modul einbinden.
Das Problem ist nur das man dann keine einzige Subroutine mehr aufrufen kann ....
Weil alle als Verzeichnis::SUB angegeben sind und nicht als Modules::SUB !!
Hoffentlich versteht mich jemand und kann mir helfen ;)
Code (perl): ()
1 2 3
sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};; ${{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};${{}->{q{{{}}}}->[@{{}];} ${{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;