Schrift
[thread]11148[/thread]

Aus der Perl-Giftküche

Leser: 1


<< >> 2 Einträge, 1 Seite
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
RalphFFM
 2008-01-17 13:43
#104828 #104828
User since
2006-11-16
258 Artikel
BenutzerIn
[Homepage] [default_avatar]
Erstes Beispiel, mit netter ;) Schreibweise:
Code (perl): (dl )
mache my $etwas, hallo each %myhash;

Setzt mal Klammern .. :-|

Zweites Beispiel:
Code (perl): (dl )
1
2
3
4
5
6
7
8
sub lock {
  my ($file) = @_;
  return flock $file, LOCK_SH;
}
sub link {
  my ($text) = @_;
  return "<a href=$text>$text</a>";
}

Was passiert beim Aufrufen in welchem Falle? ;-) Neulich kam diese Sache wenn
ich mich richtig erinnere mal in einem Thread vor.

Von beiden Sachen hatte ich vor einiger Zeit gelesen, weiß aber nicht mehr wo.
<< >> 2 Einträge, 1 Seite



View all threads created 2008-01-16 23:48.