Leser: 3
![]() |
|< 1 2 3 >| | ![]() |
22 Einträge, 3 Seiten |
Quote... mitzubekommen sondern schon mit perl -c. Finde ich.
Quotesub default_color { die "Methode default_color muss definiert werden!" }
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!perl
use strict;
use warnings;
sub test($);
sub hallo(\@$);
my @array = qw(3 2 1);
test('hallo','welt');
hallo(@array,'foo');
sub test($){
print join(" ",@_);
}
sub hallo(\@$){
print scalar(shift),' ',shift;
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
package Loam;
use Class::Trait (
'TPrintable' => {
alias => { "strVal" => "stringValue" },
exclude => "stringValue",
}
);
sub stringValue { print 'done' }
1;
package main;
use strict;
use Loam();
1;
![]() |
|< 1 2 3 >| | ![]() |
22 Einträge, 3 Seiten |