Opened by deepblack at 2005-02-15 16:33
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Falls Du nicht-oo schreibst, benutz lieber kein EXPORT, sondern höchstens EXPORT_OK.
Rumpf:
Falls oo, dann kein Exporter.\n\n
<!--EDIT|Crian|1108482307-->
Rumpf:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
package MeinModul;
use strict;
use warnings;
use base qw/Exporter/;
our @EXPORT = qw//;
our @EXPORT_OK = qw/meine_funktion/;
our %EXPORT_TAGS = (ALL => [qw/meine_funktion/]);
sub meine_funktion {
my ($bla, $blubb) = @;
return $bla . $blubb;
}
1;
Falls oo, dann kein Exporter.\n\n
<!--EDIT|Crian|1108482307-->
s--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