Leser: 5
![]() |
|< 1 ... 5 6 7 8 9 10 11 ... 13 >| | ![]() |
124 Einträge, 13 Seiten |
Inline::C.
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem1
2
3
4
5
6
7
sub ($a, $b, *@rest) {} # statt:
sub {
my $a = shift;
my $b = shift;
my @rest = @_;
}1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
class Heart::Gold {
has int $.length;
} # statt:
package Heart::Gold;
sub new {
bless {length => 0 }, shift;
}
sub length {
my $self = shift;
my $length = shift;
if ($length) {$self->{length} = $length}
else {$self->{length} }
}1
2
for %hash.kv -> $key, $value { say "$key => $value" } # statt:
for my $key (keys %hash) {print "$key => $hash{$key}\n"}$a = $b // $c; statt: $a = defined $b ? $b : $c;
![]() |
|< 1 ... 5 6 7 8 9 10 11 ... 13 >| | ![]() |
124 Einträge, 13 Seiten |