| Thread (Message) | Date | Author |
Score |
Board |
| subroutine mit foreach schleife
(#76717) |
2007-05-14 20:15 |
blaise4714
|
 |
Allgemeines zu Perl |
| Hi!
Zum Beispiel: bei einer erster Anfrage(foreach durchlauf); wird "was" zurückgegeben nach der 2. "wie" usw. |
|
| subroutine mit foreach schleife
(#76718) |
2007-05-14 20:30 |
Froschpopo
|
 |
Allgemeines zu Perl |
| Ausm Bauch heraus und ungetestet:
Vielleicht sowas?
[code]
my $next_index = sub {
my @array= (was, wie,wo,wann,wozu,wieso);
return defined $array[$_[0]+1] ? $array[$_[0]+1] … |
|
| subroutine mit foreach schleife
(#76719) |
2007-05-14 21:18 |
Ronnie
|
 |
Allgemeines zu Perl |
| Das wäre ein Iterator:
[code]
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
sub iterator (@) {
my @items = @_;
return sub { return shift @items };
}
my $next_item =… |
|
| subroutine mit foreach schleife
(#76720) |
2007-05-14 21:30 |
lichtkind
|
 |
Allgemeines zu Perl |
| ne so wird das nichts, das ruft nach einer closure oder einer state variable wenn du ein bleed perl hast
[perl]sub beispiel {
my $zaehler;
@array= (was, wie,wo,wann,wozu,wieso);
return =… |
|
| subroutine mit foreach schleife
(#76721) |
2007-05-14 21:41 |
Froschpopo
|
 |
Allgemeines zu Perl |
| [code]
my $next_index = sub {
my @array= (was, wie,wo,wann,wozu,wieso);
return defined $array[$_[0]+1] ? $array[$_[0]+1] : $array[0];
}
$callback = $next_index->(2);
[/code]
fängt bei 0… |
|
| subroutine mit foreach schleife
(#76722) |
2007-05-15 00:06 |
topeg
|
 |
Allgemeines zu Perl |
| … gibt es doch die Objektorientierung:
[perl]package liste;
sub new
{
my $self={list=>[@_]};
bless($self);
return $self;
}
sub next
{
my $self=shift(@_);
my $l=$self->{list}… |
|
| subroutine aufruf von formular
(#29605) |
2006-01-17 01:56 |
esskar
|
 |
Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl |
| [quote=Taulmarill,16.01.2006, 16:43]bevor man sich 'nen eigenen dispatcher baut, sollte man evtl. auch mal einen blick auf [URL=http://catalyst.perl.org/]Catalyst[/URL] werfen.[/quote]
Taulmarill++ |
|
| Hash in Subroutinen
(#186302) |
2017-03-31 12:56 |
rosti
|
 |
Allgemeines zu Perl |
| Referenzen Typeglobs usw.
http://rolfrost.de/refs.html
Bin grad am Schreiben ;) |
|
| Hash in Subroutinen
(#186302) |
2017-03-31 12:56 |
rosti
|
 |
Allgemeines zu Perl |
| Referenzen Typeglobs usw.
http://rolfrost.de/refs.html
Bin grad am Schreiben ;) |
|
| Hash in Subroutinen
(#186302) |
2017-03-31 12:56 |
rosti
|
 |
Allgemeines zu Perl |
| Referenzen Typeglobs usw.
http://rolfrost.de/refs.html
Bin grad am Schreiben ;) |
|
| Datenbankzugriffe in Subroutinen
(#181684) |
2015-07-29 12:10 |
Raubtier
|
 |
Datenbanken und Verzeichnisdienste |
| Das &-Zeichen verändert den Funktionsaufruf, indem es erstens Prototypen ignoriert und zweitens übergibt es dir beim Aufruf ohne Klammern @_. Das sind beides Dinge, die man normalerweise nicht will. |
|
| Subroutine optionales Argument (Any)
(#181438) |
2015-06-27 19:32 |
Kuerbis
|
 |
Raku / Perl 6 |
| Achso, [c]undef[/c] gibt es auch in perl6:
[code=perl]
my $d = with-optional();
if ! defined $d {
say "undefined";
}[/code]
Es gibt nur keine Warnung mehr bei der Ausgabe. |
|
| Konsolenbefehl als Subroutine (Substitution)
(#162015) |
2012-09-24 10:11 |
topeg
|
 |
Allgemeines zu Perl |
| Suche im Internet mal nach [c]perl open pipe[/c] Da findest du eine Reihe von Informationen. |
|
| Subroutine optionales Argument (Any)
(#181440) |
2015-06-27 21:01 |
lichtkind
|
 |
Raku / Perl 6 |
| wofür genau hättest du gerne warnungen? |
|
| Konsolenbefehl als Subroutine (Substitution)
(#161974) |
2012-09-21 11:11 |
topeg
|
 |
Allgemeines zu Perl |
| Die Übertragung war nicht ganz korrekt, und du hast ein paar Tippfehler gemacht.
[code=perl]my $usb = '/dev/ttyUSB-1-4';
my $command = '0015070400a4';
die("Error run 'send' ($!)") unless(… |
|
| Subroutine in Package
(#147495) |
2011-04-09 13:59 |
lichtkind
|
 |
Allgemeines zu Perl |
| [code=perl]
my @param = @_;
my $user = $#param == 1 ? $param[1] : $param[0];[/code]
numerische werte vergleicht man besser mit == statt eq was eher für textvergleiche ist, denn 0 == 0.00 aber… |
|
| Subroutine in Package
(#147496) |
2011-04-09 14:20 |
rosti
|
 |
Allgemeines zu Perl |
| 2x shift?
Wenn die Sub eine Methode ist, wird sie so aufgerufen:
[code=perl]
$obj->method($param);
sub method{
my $self = shift; # object see call above
my $param = shift;
}
[/code]… |
|
| Hash in Subroutinen
(#186298) |
2017-03-31 11:10 |
guest Andi123
|
 |
Allgemeines zu Perl |
| Ok, jetzt hab ich es. Vielen Dank für eure Mühen.
Mir persönlich ist der Weg der Übergabe des Hashs und das Auffangen desselben per [code]%content = @_;[/code] am eingängisten. |
|
| Subroutine optionales Argument (Any)
(#181442) |
2015-06-29 11:11 |
lichtkind
|
 |
Raku / Perl 6 |
| gut, was ich allerdings fragte welche fehlermeldung perl 6 bringen soll, weil ich dich so verstand das du bestimmte sahen verbieten willst, wie mit strict. |
|
| Subroutine mehrere male ausführen
(#177898) |
2014-10-20 00:05 |
guest Line
|
 |
Allgemeines zu Perl |
| Guten Abend,
ich habe folgende Situation
[code]my @names = &getid($firstcookie,$first_mech,'test');
foreach my $names(@names) {
&getid($firstcookie,$first_mech,$names);
undef $names… |