Leser: 1
9 Einträge, 1 Seite |
pktm+2007-09-13 11:01:24--Wie bekomme ich nochmal raus, wo ein Modul liegt? Es gehtr darum, dass relativ zur Position dieses Moduls Dateien liegen die ich gerne ansprechen würde.
pq+2007-09-13 11:58:24--na dann benutz doch __FILE__
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl use strict; use warnings; use Win32::GuiTest; use lib './perllib'; use Data::Dumper; my @array = (1..3); print Dumper \@array;
1 2 3 4 5 6 7 8 9 10 11 12
package Data::Dumper; use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(Dumper); sub Dumper{ my ($arref) = @_; print "Element: $_\n" for @$arref; print $_,"\n" for keys %INC; }
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
C:\>inc_push.pl
Element: 1
Element: 2
Element: 3
XSLoader.pm
re.pm
warnings/register.pm
ActiveState/Path.pm
Cwd.pm
warnings.pm
base.pm
File/Basename.pm
Config.pm
ActivePerl/Config.pm
Carp.pm
Win32/GuiTest/GuiTest.pc
strict.pm
Exporter.pm
vars.pm
constant.pm
Config_heavy.pl
AutoLoader.pm
Win32/GuiTest.pm
lib.pm
DynaLoader.pm
Data/Dumper.pm
9 Einträge, 1 Seite |