Thread Aus der Perl-Giftküche (1 answers)
Opened by Ronnie at 2008-01-16 23:48

Ronnie
 2008-01-16 23:48
#104808 #104808
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen,

ich habe gerade ein Skript wiederentdeckt, wo ich mit Prototypen und Currying rumgespielt habe:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/perl

use strict;
use warnings;

sub multiply($$) { (pop)*(pop) } 

print multiply 4, 5;
print "\n";

sub to ($) { (shift) }      # just syntactic sugar
sub on ($) { (shift) }      # also syntactic sugar

sub add {                   # currying
    my $op = shift;
    return sub { (shift) + $op }
}

print add(5)->(on add(3)->(to 4));

Ist an sich nichts so außergewähnliches, aber mir ging es um Kleinigkeiten, die in Perl möglich, aber seltener verwendet werden.

Mich interessiert: Was habt ihr so in der Giftküche liegen, was syntaktisch ungewöhnliches erlaubt, oder Ansätze verwendet, die in Perl nicht unbedingt üblich sind?

Gruß,
Ronnie

View full thread Aus der Perl-Giftküche