| Thread (Message) | Date | Author |
Score |
Board |
|---|
| Subroutine Variablenübergabe
(#170114) |
2013-09-11 12:51 |
Muffi
|
 |
Allgemeines zu Perl |
| Mit explizitem return ja :) |
|
| Subroutine Variablenübergabe
(#170113) |
2013-09-11 12:13 |
GwenDragon
|
|
Allgemeines zu Perl |
| [quote="tejste@2013-09-11T09:52:03"]Was für ein tolles Forum. Sorry wegen meiner Fragen; ich will es halt verstehen und nicht nur fertigen Code irgendwo reinpasten.[/quote]Wies entschuldigst du dich… |
|
| Subroutine Variablenübergabe
(#170112) |
2013-09-11 11:52 |
tejste
|
|
Allgemeines zu Perl |
| Was für ein tolles Forum. Sorry wegen meiner Fragen; ich will es halt verstehen und nicht nur fertigen Code irgendwo reinpasten.
Klappt wunderbar und auch für die sonstigen Tipps vielen Dank. |
|
| Subroutine Variablenübergabe
(#170111) |
2013-09-11 11:49 |
GwenDragon
|
|
Allgemeines zu Perl |
| Prototypen sind nur dazu da, bestimmte Übergaben zu erzwingen.
[code=perl]sub zeit(@_){[/code] ist aber falsch als Prototyp!
Wenn du als Parameter ein Liste (wird dann als @ in die Klammer… |
|
| Subroutine Variablenübergabe
(#170110) |
2013-09-11 11:29 |
bianca
|
|
Allgemeines zu Perl |
| [quote="Muffi@2013-09-11T09:16:51"]von payx gabs ja schon einen schönen Lösungsvorschlag.[/quote]
Ist meiner nicht schön? |
|
| Subroutine Variablenübergabe
(#170107) |
2013-09-11 11:13 |
payx
|
|
Allgemeines zu Perl |
| Hallo tejste,
hier ein lauffähiges Beispiel für Deine Anforderung:
[code=perl]#!/usr/bin/perl
use strict;
use warnings;
my $zeitstempel = zeit();
print $zeitstempel;
sub zeit {… |
|
| Subroutine Variablenübergabe
(#170109) |
2013-09-11 11:16 |
Muffi
|
|
Allgemeines zu Perl |
| Hallo,
von payx gabs ja schon einen schönen Lösungsvorschlag.
Es ist in Perl so:
Du kannst Parameter so übergeben wie in anderen Sprachen auch. |
|
| Subroutine Variablenübergabe
(#170108) |
2013-09-11 11:08 |
bianca
|
|
Allgemeines zu Perl |
| Und bitte benutze als Filehandle normale Variablen, keine Konstanten.
Also statt [c]SPEICHGANSBUCH[/c] besser [c]my $fh[/c] |
|
| Subroutine Variablenübergabe
(#170108) |
2013-09-11 11:08 |
bianca
|
|
Allgemeines zu Perl |
| Und bitte benutze als Filehandle normale Variablen, keine Konstanten.
Also statt [c]SPEICHGANSBUCH[/c] besser [c]my $fh[/c] |
|
| Subroutine Variablenübergabe
(#170106) |
2013-09-11 11:06 |
bianca
|
|
Allgemeines zu Perl |
| In Perl schreibt man es so:
[code=perl]sub zeit{
my @date = localtime(time);
my $jahr = $date[5]+1900;
my $monat = $date[4]+1;
"$jahr$monat$date[3]$date[2]$date[1]$date[0]";
}[/code]… |
|
| Subroutine Variablenübergabe
(#170106) |
2013-09-11 11:06 |
bianca
|
|
Allgemeines zu Perl |
| In Perl schreibt man es so:
[code=perl]sub zeit{
my @date = localtime(time);
my $jahr = $date[5]+1900;
my $monat = $date[4]+1;
"$jahr$monat$date[3]$date[2]$date[1]$date[0]";
}[/code]… |
|
| rekursive subroutine
(#173441) |
2014-02-06 22:22 |
hlubenow
|
|
Allgemeines zu Perl |
| Ich schätze mal, Du willst voll auflösen. Das sähe bei mir so aus:
[code=perl]#!/usr/bin/perl
use warnings;
use strict;
sub get_arr {
my $key = shift;
my $href = shift;
my %h =… |
|
| rekursive subroutine
(#173441) |
2014-02-06 22:22 |
hlubenow
|
|
Allgemeines zu Perl |
| Ich schätze mal, Du willst voll auflösen. Das sähe bei mir so aus:
[code=perl]#!/usr/bin/perl
use warnings;
use strict;
sub get_arr {
my $key = shift;
my $href = shift;
my %h =… |
|
| rekursive subroutine
(#173432) |
2014-02-06 18:10 |
guest wer
|
|
Allgemeines zu Perl |
| …
use strict;
use warnings;
use Data::Dumper;
my %data;
my %hits;
my %used;
while(<DATA>) {
next unless /^\s*\[([^\[\]]+)\]:\s*(.+?)\s*$/s;
my $name=$1;
my… |
|
| rekursive subroutine
(#173421) |
2014-02-06 15:24 |
kimmy
|
|
Allgemeines zu Perl |
| Das ist mein Code.
[code=perl]
#!/usr/bin/perl
use strict;
use warnings;
my (%child, @ancestor);
while(<DATA>){
my ($node, $left, $right);
$node = $1, $left = $2, $right = $3… |
|
| rekursive subroutine
(#173421) |
2014-02-06 15:24 |
kimmy
|
|
Allgemeines zu Perl |
| Das ist mein Code.
[code=perl]
#!/usr/bin/perl
use strict;
use warnings;
my (%child, @ancestor);
while(<DATA>){
my ($node, $left, $right);
$node = $1, $left = $2, $right = $3… |
|
| Subroutinen bündeln
(#144737) |
2011-01-17 10:16 |
pq
|
|
Allgemeines zu Perl |
| die 1 gehört in die letzte zeile. die rückgabewerte kannst du so beibehalten.
probiers doch einfach mal aus.
ich würde das übrigens eher mit einem modul machen. |
|
| Subroutinen überschreiben
(#154309) |
2011-11-18 17:22 |
pq
|
|
Allgemeines zu Perl |
| ja, das muss danach erfolgen.
sonst hast du den umgekehrten effekt, dass das original deine modifikation überschreibt. |
|
| rekursive subroutine
(#173420) |
2014-02-06 15:17 |
kimmy
|
|
Allgemeines zu Perl |
| Ich bekomme keine Fehlermeldung oder Warnung. Nur ein falsches Ergenis, das ich nicht haben wollte. Wie Z.B.:
[code]
[2]: c a b, a b
[4]: f d e, d e
[7]: [2] [4]
[8]: j i g h, g h, i g h, g h, i… |
|
| rekursive subroutine
(#173417) |
2014-02-06 15:17 |
kimmy
|
|
Allgemeines zu Perl |
| Hallo Zusammen,
ich habe folgende Liste:
[code]
[1]: a, b
[2]: c, [1]
[3]: d, e
[4]: f, [3]
[5]: g, h
[6]: i, [5]
[7]: [2], [4]
[8]: j, [6]
[9]: [7], [8]
[/code]
Die Liste bedeutet… |
Jemand zu Hause?
Schrift
Wie installiert man ein Modul?
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
