Opened by Gast at 2007-10-15 13:01
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Einfach die einzelnen Schritte als CodeRefs in ein Array stecken und drüber iterieren:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#!/usr/bin/perl use strict; use warnings; my $steps = [ sub { return "Hello: " . shift @_ }, sub { return shift }, sub { die "died on: " . shift @_}, sub { return shift }, sub { return shift }, ]; eval { print $steps->[$_]->($_) . "\n" for 0..$#$steps; }; print "at the end ...\n";