Hallo,
wenn man mehrer Variablen auf einmal initialisieren kann:
my ($a,$b,$c,$d);
kann man mehren V. auch in einer Zeile einen Wert zuweisen?
($a,$b,$c,$d) = 1; # weist nur $a einen Wert zu! Warum?
Geht das in einer Zeile?
Gerhard Wolf
> Hallo,
>
> wenn man mehrer Variablen auf einmal initialisieren kann:
>
> my ($a,$b,$c,$d);
Das ist eine Variablendeklaration/-definition, keine Initialisierung.
> kann man mehren V. auch in einer Zeile einen Wert zuweisen?
>
> ($a,$b,$c,$d) = 1; # weist nur $a einen Wert zu! Warum?
Weil LISTE = LISTE werteweise verfährt:
($a, $b) = (2, 3); # $a = 2, $b = 3
Und wenn in der rechten Liste nicht genug Werte stehen, wird eben mit
undef aufgefüllt, d.h. es passiert folgendes:
($a,$b,$c,$d) = (1,undef,undef,undef);
> Geht das in einer Zeile?
Ja. Such dir was aus:
($a, $b, $c, $d) = map 1, 1 .. 4;
($a, $b, $c, $d) = (1) x 4;
$a = ($b = ($c = ($d = 1)));
$a = $b = $c = $d = 1;
$_ = 1 for $a, $b, $c, $d;
HTH, Lukas
Gerhard Wolf
> Hallo,
>
> wenn man mehrer Variablen auf einmal initialisieren kann:
>
> my ($a,$b,$c,$d);
>
> kann man mehren V. auch in einer Zeile einen Wert zuweisen?
>
> ($a,$b,$c,$d) = 1; # weist nur $a einen Wert zu! Warum?
>
> Geht das in einer Zeile?
($a,$b,$c,$d) = (1,1,1,1);
oder
($a,$b,$c,$d) = (1)x4;
--
Slaven Rezic - slaven
tkruler - Perl/Tk program for measuring screen distances
http://ptktools.sourceforge.net/#tkruler
hallo,
ich biege mal das Thema:
öfters stehe ich vor einem anderem init-Problem (default oder anderer Wert):
my$samples=input("enter oder anzahl: ");
$samples=1024 unless $samples;
solche häßlichen Zweizeiler sollten sich doch elegant verkürzen lassen,
oder?
(ohne strict ginge leichter)
Frank
f.ballandt schrieb:
> hallo,
>
> ich biege mal das Thema:
>
> öfters stehe ich vor einem anderem init-Problem (default oder anderer
> Wert):
>
Hallo,
z.B. so :
my$samples=input("enter oder anzahl: ") ||1024;
# $samples=1024 unless $samples;
>
>
> solche häßlichen Zweizeiler sollten sich doch elegant verkürzen lassen,
> oder?
Grüße, Christoph
--
perl -e "print scalar reverse q/ed.enilno@ergn.l.hc/"
Ch Lamprecht schrieb:
> f.ballandt schrieb:
> > hallo,
> >
> > ich biege mal das Thema:
> >
> > öfters stehe ich vor einem anderem init-Problem (default oder anderer
> > Wert):
> >
> Hallo,
> z.B. so :
> my$samples=3Dinput("enter oder anzahl: ") ||1024;
Funktioniert aber nur sachgemäß, wenn 0 kein gültiger Wert ist.
Schreib doch sub input so, daß ein weiterer Parameter für
default-Wert übergeben wird.
Ingo Menger schrieb:
> Ch Lamprecht schrieb:
>
>
>>f.ballandt schrieb:
>>
>>>hallo,
>>>
>>>ich biege mal das Thema:
>>>
>>>öfters stehe ich vor einem anderem init-Problem (default oder anderer
>>>Wert):
>>>
>>
>>Hallo,
>>z.B. so :
>>
oder eben so:
my $samples=defined(input("enter oder anzahl: ")) ||1024;
>
>
> Funktioniert aber nur sachgemäß, wenn 0 kein gültiger Wert ist.
> Schreib doch sub input so, daß ein weiterer Parameter für
> default-Wert übergeben wird.
>
Grüße, Christoph
--
perl -e "print scalar reverse q/ed.enilno@ergn.l.hc/"
Ch Lamprecht schrieb:
> Ingo Menger schrieb:
>
>> Ch Lamprecht schrieb:
>>
>>
>>> f.ballandt schrieb:
>>>
>>>> hallo,
>>>>
>>>> ich biege mal das Thema:
>>>>
>>>> öfters stehe ich vor einem anderem init-Problem (default oder anderer
>>>> Wert):
>>>>
>>>
>>> Hallo,
>>> z.B. so :
>>>
>
> oder eben so:
>
> my $samples=defined(input("enter oder anzahl: ")) ||1024;
Hallo,
sorry - Das war natürlich quatsch!
my $test;
my $samples = defined( $test = input())? $test:'default';
Christoph
>
>>
>>
>> Funktioniert aber nur sachgemäß, wenn 0 kein gültiger Wert ist.
>> Schreib doch sub input so, daß ein weiterer Parameter für
>> default-Wert übergeben wird.
>>
>
> Grüße, Christoph
--
perl -e "print scalar reverse q/ed.enilno@ergn.l.hc/"
Ch Lamprecht schrieb:
> Ch Lamprecht schrieb:
>> my $samples=defined(input("enter oder anzahl: ")) ||1024;
>
> Hallo,
> sorry - Das war natürlich quatsch!
>
> my $test;
> my $samples = defined( $test = input())? $test:'default';
Siehst du, wie lang das ist und wie leicht du hierbei Fehler machen
kannst? (Du hast es ja gerade gezeigt!)
Die beste Lösung ist, einfach input einen zweiten (ggf. optionalen)
Parameter zu für input zu nehmen und dann im Programm
$test = input('xy oder enter', 1024);
aufzurufen.
Wolf
"Ingo Menger"
> Ch Lamprecht schrieb:
>
> > f.ballandt schrieb:
> > > hallo,
> > >
> > > ich biege mal das Thema:
> > >
> > > öfters stehe ich vor einem anderem init-Problem (default oder anderer
> > > Wert):
> > >
> > Hallo,
> > z.B. so :
> > my$samples=input("enter oder anzahl: ") ||1024;
>
> Funktioniert aber nur sachgemäß, wenn 0 kein gültiger Wert ist.
> Schreib doch sub input so, daß ein weiterer Parameter für
> default-Wert übergeben wird.
>
Oder man freut sich auf perl 5.10:
my$samples=input("enter oder anzahl: ") // 1024;
--
Slaven Rezic - slaven
Lost in your Tk widget tree? Try
http://user.cs.tu-berlin.de/~eserte/src/perl/Tk-WidgetDump/
Ingo Menger wrote:
>
> Ch Lamprecht schrieb:
> > z.B. so :
> > my$samples=input("enter oder anzahl: ") ||1024;
>
> Funktioniert aber nur sachgemäß, wenn 0 kein gültiger Wert ist.
Tut doch der Orginal code auch.
Struppi.
J Strübig schrieb:
> Ingo Menger wrote:
> >
> > Ch Lamprecht schrieb:
> > > z.B. so :
> > > my$samples=3Dinput("enter oder anzahl: ") ||1024;
> >
> > Funktioniert aber nur sachgemäß, wenn 0 kein gültiger Wert ist.
>
> Tut doch der Orginal code auch.
Stimmt, die Frage ist nur, ob das beabsichtigt ist. Und, wenn es hier
beabsichtigt war, ob es immer beabsichtigt ist, wenn man die
"häßlichen 2 Zeilen" verkürzen möchte.