[PERL] else if probleem

[Jon]

Met onderstaand scriptje heb ik een probleem:

Producten van 29,90 tot 74,75 worden keurig met korting getoond, van 149,50
en hoger ook.
Maar op een of andere manier krijgen de producten van 74,75 tot 149,50 de
korting van 149,50 en hoger.
Dit else-statement wordt helemaal overgeslagen. Zet ik er bijvoorbeeld in ST
== "74,75" dan wordt ie wel juist berekend
Iemand een oplossing?



if (ST >= "29,90" & ST < "74,75") { document.write("<br></b>U betaalt incl.
korting <B>Totaal (" + window.opener.muntsoort + ") "+ K((schrijfEUR +
6.55 - (schrijfEUR/100)*16.55))); }
if (ST >= "29,90" & ST < "74,75") { document.write('<input type="hidden"
name="teontvangen" value="' + window.opener.muntsoort+ ' ' + K((schrijfEUR +
6.55 - (schrijfEUR/100)*16.55))+'">'); }

else
if (ST >= "74,75" & ST < "149,50") { document.write("<br></b>U betaalt incl.
korting <B>Totaal (" + window.opener.muntsoort + ") "+ K((schrijfEUR +
6.55 - (schrijfEUR/100)*33.18))); }
if (ST >= "74,75" & ST < "149,50") { document.write('<input type="hidden"
name="teontvangen" value="' + window.opener.muntsoort+ ' ' + K((schrijfEUR +
6.55 - (schrijfEUR/100)*33.18))+'">'); }

else
if (ST >= "149,50") { document.write("<br></b>U betaalt incl. korting
<B>Totaal (" + window.opener.muntsoort + ") "+ K((schrijfEUR + 6.55 -
(schrijfEUR/100)*39.83))); }
if (ST >= "149,50") { document.write('<input type="hidden"
name="teontvangen" value="' + window.opener.muntsoort+ ' ' + K((schrijfEUR +
6.55 - (schrijfEUR/100)*39.83))+'">'); }

[John Bokma]

Jon wrote:

> Met onderstaand scriptje heb ik een probleem:

Lijkt niet echt op Perl?

> Producten van 29,90 tot 74,75 worden keurig met korting getoond, van 149,50
> en hoger ook.

.. is de "kommascheider" in de meeste talen. Dus 29.90 etc. Bedragen niet
tussen "" zetten.

John

--
email: mail(at)johnbokma.com (or reply) home: http://johnbokma.com/
Web site hints: http://johnbokma.com/websitedesign/ ~ ICQ 218175426

[Daniel Tryba]

John Bokma <postmaster@castleamber.com> wrote:
>> Met onderstaand scriptje heb ik een probleem:
>
> Lijkt niet echt op Perl?

APS::Perl?

>> Producten van 29,90 tot 74,75 worden keurig met korting getoond, van 149,50
>> en hoger ook.
>
> . is de "kommascheider" in de meeste talen. Dus 29.90 etc. Bedragen niet
> tussen "" zetten.

En wat als de variabele een string is?

Voor iemand die overal als antwoord perl op heeft mis ik toch welk
enkele voor de handliggende opmerkingen:

-& is een bitwise operator niet logical
-het is een bende door het ontbreken van een zichtbare structuur
if(X)
A
if(X)
B
else
if(Y)
C
if(Y)
D
else
if(Z)
E
if(Z)
F

De behoefte om pogen uit te zoeken wat de OP nu daadwerkelijk bedoelde
vergaat me helemaal bij het zie van bovenstaande.

--

Daniel Tryba

[John Bokma]

Daniel Tryba wrote:

> John Bokma <postmaster@castleamber.com> wrote:
>
>>>Met onderstaand scriptje heb ik een probleem:
>>
>>Lijkt niet echt op Perl?
>
> APS::Perl?

't was een vraag...

>>>Producten van 29,90 tot 74,75 worden keurig met korting getoond, van 149,50
>>>en hoger ook.
>>
>>. is de "kommascheider" in de meeste talen. Dus 29.90 etc. Bedragen niet
>>tussen "" zetten.
>
>
> En wat als de variabele een string is?

??? Perl converteerd automatisch, het is dus een beetje vreemd om

my $a = "7.75";
print "w00t\n" if $a < "5.00";

te doen, met name de "5.00" en dat bedoelde ik dus, het heeft geen
nut/zin om het bedrag tussen "" te zetten.

> Voor iemand die overal als antwoord perl op heeft mis ik toch welk

Ho ho! Ik heb niet overal als antwoord perl op... Sterker, Google eens,
ik ben *juist* enorm voorstander van "elk probleem haar eigen
oplossing/tool".

> enkele voor de handliggende opmerkingen:

Omdat:

> De behoefte om pogen uit te zoeken wat de OP nu daadwerkelijk bedoelde
> vergaat me helemaal bij het zie van bovenstaande.

Precies ;-)

John

--
email: mail(at)johnbokma.com (or reply) home: http://johnbokma.com/
Web site hints: http://johnbokma.com/websitedesign/ ~ ICQ 218175426

[KLinZ]

Daniel Tryba wrote:
> John Bokma <postmaster@castleamber.com> wrote:
>>> Met onderstaand scriptje heb ik een probleem:
>>
>> Lijkt niet echt op Perl?
>
> APS::Perl?

Lijkt me stug. Het is gewoon client-side javascript. Let op de window.opener
enz. Dat kan je niet server-side doen. Vergissinkje van de OP denk ik.

Wel handig, zo kun je je eigen korting bedingen :-)

--
www.zenobits.com

[robert]

Daniel Tryba <news_nl.internet.www.server-side@canopus.nl>:
> John Bokma <postmaster@castleamber.com> wrote:
>>> Met onderstaand scriptje heb ik een probleem:
>>
>> Lijkt niet echt op Perl?
>
> APS::Perl?

Lijkt meer op Inline::Javascript

--
robert

[Daniel Tryba]

John Bokma <postmaster@castleamber.com> wrote:
>>>. is de "kommascheider" in de meeste talen. Dus 29.90 etc. Bedragen niet
>>>tussen "" zetten.
>>
>>
>> En wat als de variabele een string is?
>
> ??? Perl converteerd automatisch,

Perl converteert wat automatisch?

Volgens OP is ST "74,75". Dus wat is het resultaat van:
- ST >= "74,75"
- ST >= 74,75
- ST >= 74.75

(ik gok op 3 maal true)

> het is dus een beetje vreemd om
>
> my $a = "7.75";
> print "w00t\n" if $a < "5.00";
>
> te doen, met name de "5.00" en dat bedoelde ik dus, het heeft geen
> nut/zin om het bedrag tussen "" te zetten.

Als je een lexicografische verglijking wilt maken?

>> Voor iemand die overal als antwoord perl op heeft mis ik toch welk
>
> Ho ho! Ik heb niet overal als antwoord perl op... Sterker, Google eens,
> ik ben *juist* enorm voorstander van "elk probleem haar eigen
> oplossing/tool".

query: -perl author:John author:Bokma
Related groups

nl.internet.algemeen nl.wetenschap.* (1 group) nl.internet.www.ontwerp
nl.internet.misbruik.* (2 groups)

query: +perl author:John author:Bokma
Related groups

comp.lang.perl.misc nl.internet.www.ontwerp nl.comp.programmeren
nl.internet.www.server-side

Spreekt voor zich

>> De behoefte om pogen uit te zoeken wat de OP nu daadwerkelijk bedoelde
>> vergaat me helemaal bij het zie van bovenstaande.
>
> Precies ;-)

Maar het probleem zit hem niet in de if/else brei....

--

Daniel Tryba

[robert]

Daniel Tryba <news_nl.internet.www.server-side@canopus.nl>:
> Maar het probleem zit hem niet in de if/else brei....

Perl doet overigens niet eens aan 'else if'.

--
robert

[John Bokma]

Daniel Tryba wrote:
> John Bokma <postmaster@castleamber.com> wrote:
>
>>>>. is de "kommascheider" in de meeste talen. Dus 29.90 etc. Bedragen niet
>>>>tussen "" zetten.
>>>
>>>
>>>En wat als de variabele een string is?
>>
>>??? Perl converteerd automatisch,
>
> Perl converteert wat automatisch?

$ perl -e 'print "5" * "3.14";'
15.7

> Volgens OP is ST "74,75". Dus wat is het resultaat van:

antwoorden erachter gezet:

> - ST >= "74,75" "74,75" zal 74 worden, dus 74 >= 74 [1]
> - ST >= 74,75 de , wordt als een , operatie gezien (gevaar!)
> - ST >= 74.75 74 >= 74.75 is false, uiteraard.
>
> (ik gok op 3 maal true)

[1] $st = "74,75" dit zal in een nummerieke vergelijking naar 74 omgezet
worden. Aangezien 74 >= 74.75 is, was het dus 1x fout gegokt (nooit
gokken overigens bij programmeren ;-) ) Met -w en strict krijg je
overigens een waarschuwing:

$ ./tryba
Argument "74,75" isn't numeric in numeric ge (>=) at ./tryba line 7.
Argument "74,75" isn't numeric in numeric ge (>=) at ./tryba line 7.
true1 true false
john@madhuri ~
$ cat tryba
#!/usr/bin/perl -w

use strict;

my $st = "74,75";

print $st >= "74,75" ? "true" : "false";
print $st >= 74,75 ? " true" : " false";
print $st >= 74.75 ? " true" : " false";

Heb zo'n donkerbruin vermoede dat de 1 achter de 1e true dankzij de ,
operatie komt... (het evalueerd nl als ($st >= 74) , (75 ? " true" : "
false"). En dus 1 ("waar") en 75 is ook waar...

[snip]

> Als je een lexicografische verglijking wilt maken?

man perlop (hint relational operators)

(lijkt mij overigens een slag in de lucht omdat het IIRC over kortingen
ging)

>>>Voor iemand die overal als antwoord perl op heeft mis ik toch welk
>>
>>Ho ho! Ik heb niet overal als antwoord perl op... Sterker, Google eens,
>>ik ben *juist* enorm voorstander van "elk probleem haar eigen
>>oplossing/tool".
>
> query: -perl author:John author:Bokma
> Related groups
>
> nl.internet.algemeen nl.wetenschap.* (1 group) nl.internet.www.ontwerp
> nl.internet.misbruik.* (2 groups)
>
> query: +perl author:John author:Bokma
> Related groups
>
> comp.lang.perl.misc nl.internet.www.ontwerp nl.comp.programmeren
> nl.internet.www.server-side
>
> Spreekt voor zich

Ah, ja ik spreek mij vaak positief uit voor perl, maar eh, die overige
10.000 (?) postings dan ;-).

> Maar het probleem zit hem niet in de if/else brei....

Als het perl was, ben ik het hierover oneens.

John

--
email: mail(at)johnbokma.com (or reply) home: http://johnbokma.com/
Web site hints: http://johnbokma.com/websitedesign/ ~ ICQ 218175426

[Wimjan]

John Bokma schreef:
> Daniel Tryba wrote:
> > John Bokma <postmaster@castleamber.com> wrote:
> >
> >>>>. is de "kommascheider" in de meeste talen.
>
Een goede en relevante uitzondering is bijvoorbeeld het Nederlands.

> >>>>Dus 29.90 etc. Bedragen niet tussen "" zetten.
> >>
> >>??? Perl converteerd automatisch,
> >
.... maar de OP had dat if-blok met die strings met komma's toch helemaal
niet in Perl staan maar in Javascript?

Dit:

<citaat uit message vi77q38jvkkebb@corp.supernews.com>

if (ST >= "29,90" & ST < "74,75") { document.write("<br></b>U betaalt
incl.korting <B>Totaal (" + window.opener.muntsoort + ") "+ K((schrijfEUR
+ 6.55 - (schrijfEUR/100)*16.55))); }

</citaat>

Lijkt me toch echt Javascript. En je weet toch helemaal niet wat er
precies in ST staat? En Javascript kan toch prima (en intuitief juist)
expressies als (ST >= "29,90") evalueren als ST bijvoorbeeld de waarde
"30,12" heeft?


> >>>Voor iemand die overal als antwoord perl op heeft mis ik toch welk
> >>
> >>Ho ho! Ik heb niet overal als antwoord perl op... Sterker, Google eens,
> >>ik ben *juist* enorm voorstander van "elk probleem haar eigen
> >>oplossing/tool".
> >
> > query: -perl author:John author:Bokma
> > Related groups
> >
> > nl.internet.algemeen nl.wetenschap.* (1 group) nl.internet.www.ontwerp
> > nl.internet.misbruik.* (2 groups)
> >
> > query: +perl author:John author:Bokma
> > Related groups
> >
> > comp.lang.perl.misc nl.internet.www.ontwerp nl.comp.programmeren
> > nl.internet.www.server-side
> >
> > Spreekt voor zich
>
> Ah, ja ik spreek mij vaak positief uit voor perl, maar eh, die overige
> 10.000 (?) postings dan ;-).
>
Ja dag, da's een inkopper: in de overige berichten probeer je een of
ander Mozilla-derivaat als panacee te pluggen :-)


Groet,

Wimjan

--
Iemands e-mailadres kwijt? Probeer m'n meta e-mail zoeker eens op
<http://inventio.nl/metanamesearch/>

[KLinZ]

Wimjan wrote:

> <citaat uit message vi77q38jvkkebb@corp.supernews.com>
>
> if (ST >= "29,90" & ST < "74,75") { document.write("<br></b>U betaalt
> incl.korting <B>Totaal (" + window.opener.muntsoort + ") "+
> K((schrijfEUR + 6.55 - (schrijfEUR/100)*16.55))); }
>
> </citaat>
>
> Lijkt me toch echt Javascript. En je weet toch helemaal niet wat er
> precies in ST staat? En Javascript kan toch prima (en intuitief juist)
> expressies als (ST >= "29,90") evalueren als ST bijvoorbeeld de waarde
> "30,12" heeft?

Zeker. Maar dan is "11.0" opeens groter dan "101.0". En dat kan natuurlijk
niet de bedoeling zijn.


--
www.zenobits.com

[John Bokma]

Wimjan wrote:

> John Bokma schreef:
>
>>Daniel Tryba wrote:
>>
>>>John Bokma <postmaster@castleamber.com> wrote:
>>>
>>>
>>>>>>. is de "kommascheider" in de meeste talen.
>>
> Een goede en relevante uitzondering is bijvoorbeeld het Nederlands.

lees: programmeertalen, dat was nl. de context ;-).

> Dit:
>
> <citaat uit message vi77q38jvkkebb@corp.supernews.com>
>
> if (ST >= "29,90" & ST < "74,75") { document.write("<br></b>U betaalt
> incl.korting <B>Totaal (" + window.opener.muntsoort + ") "+ K((schrijfEUR
> + 6.55 - (schrijfEUR/100)*16.55))); }
>
> </citaat>
>
> Lijkt me toch echt Javascript. En je weet toch helemaal niet wat er

Zie subject.

> precies in ST staat? En Javascript kan toch prima (en intuitief juist)
> expressies als (ST >= "29,90") evalueren als ST bijvoorbeeld de waarde
> "30,12" heeft?

Ik vermoed dat JS ook de . gebruikt als decimalenscheidingsteken. Ik
*hoop* dat dat niet afhankelijk is van de taalinstelling van de browser...

[snip]
>>Ah, ja ik spreek mij vaak positief uit voor perl, maar eh, die overige
>>10.000 (?) postings dan ;-).
>>
>
> Ja dag, da's een inkopper: in de overige berichten probeer je een of

author:bokma java
author:bokma c
author:bokma basic
author:bokma pascal
author:bokma tcl
etc. ;-)

> ander Mozilla-derivaat als panacee te pluggen :-)

pa·na·cee (de ~ (v.), ~ën/~s)
1 geneesmiddel tegen alle kwalen => wondermiddel
2 oplossing voor alle mogelijke problemen

Thunderbirds are go!

John

--
email: mail(at)johnbokma.com (or reply) home: http://johnbokma.com/
Web site hints: http://johnbokma.com/websitedesign/ ~ ICQ 218175426

[Wimjan]

KLinZ schreef:
> Wimjan wrote:
>
> > <citaat uit message vi77q38jvkkebb@corp.supernews.com>
> >
> > if (ST >= "29,90" & ST < "74,75") { document.write("<br></b>U betaalt
> > incl.korting <B>Totaal (" + window.opener.muntsoort + ") "+
> > K((schrijfEUR + 6.55 - (schrijfEUR/100)*16.55))); }
> >
> > </citaat>
> >
> > Lijkt me toch echt Javascript. En je weet toch helemaal niet wat er
> > precies in ST staat? En Javascript kan toch prima (en intuitief juist)
> > expressies als (ST >= "29,90") evalueren als ST bijvoorbeeld de waarde
> > "30,12" heeft?
>
> Zeker. Maar dan is "11.0" opeens groter dan "101.0". En dat kan natuurlijk
> niet de bedoeling zijn.
>
En "11,0" ook groter dan "101,0". Je hebt gelijk - daar had ik nog niet
aan gedacht.


Groet,

Wimjan

--
Iemands e-mailadres kwijt? Probeer m'n meta e-mail zoeker eens op
<http://inventio.nl/metanamesearch/>

[Wimjan]

John Bokma schreef:
> Wimjan wrote:
> > John Bokma schreef:
> >>Daniel Tryba wrote:
> >>>John Bokma wrote:
> >>>
> >>>>>>. is de "kommascheider" in de meeste talen.
> >>
> > Een goede en relevante uitzondering is bijvoorbeeld het Nederlands.
>
> lees: programmeertalen, dat was nl. de context ;-).
>
Dat weet je niet. Het (behoorlijk willekeurig) geknipte stukje code van
de OP liet helemaal in het midden hoe hij omgaat met die bedragen: ze
zouden bijvoorbeeld rechtstreeks uit een edit-box kunnen zijn gehaald. Op
een Nederlandstalige website zou ik dan helemaal niet verbaasd zijn als
rationele getallen in stringrepresentatie dan een komma bevatten.

> > Dit:
> >
> > <citaat uit message vi77q38jvkkebb@corp.supernews.com>
> >
> > if (ST >= "29,90" & ST < "74,75") { document.write("<br></b>U betaalt
> > incl.korting <B>Totaal (" + window.opener.muntsoort + ") "+ K((schrijfEUR
> > + 6.55 - (schrijfEUR/100)*16.55))); }
> >
> > </citaat>
> >
> > Lijkt me toch echt Javascript. En je weet toch helemaal niet wat er
>
> Zie subject.
>
Tuurlijk, maar de vraag van de OP ging -als ik hem goed begrijp- helemaal
niet om die stukken Javascript maar om de if-then-else-constructie die
eromheen staat. Die is -als ik het goed lees- wel degelijk perl.

> > precies in ST staat? En Javascript kan toch prima (en intuitief juist)
> > expressies als (ST >= "29,90") evalueren als ST bijvoorbeeld de waarde
> > "30,12" heeft?
>
[blijkt toch niet helemaal te werken - zie KLinZ' bericht]

> Ik vermoed dat JS ook de . gebruikt als decimalenscheidingsteken.
>
Zeker. Maar strings kunnen alfabetisch met elkaar vergeleken worden met
==, > en <. Net zoals je dat in perl kunt met eq, gt en lt.

> Ik *hoop* dat dat niet afhankelijk is van de taalinstelling van de browser...
>
Nee hoor. Trouwens: da's toch wel zo in MS Office-talen? Of ben ik nu
abuis?

[snip reclame :-)]


Groet,

Wimjan

--
Iemands e-mailadres kwijt? Probeer m'n meta e-mail zoeker eens op
<http://inventio.nl/metanamesearch/>

[John Bokma]

Wimjan wrote:

> John Bokma schreef:
>
>>Wimjan wrote:
>>
>>>John Bokma schreef:
>>>
>>>>Daniel Tryba wrote:
>>>>
>>>>>John Bokma wrote:
>>>>>
>>>>>
>>>>>>>>. is de "kommascheider" in de meeste talen.
>>>>
>>>Een goede en relevante uitzondering is bijvoorbeeld het Nederlands.
>>
>>lees: programmeertalen, dat was nl. de context ;-).
>>
>
> Dat weet je niet. Het (behoorlijk willekeurig) geknipte stukje code van

Eh, hallo, ik schreef dat, dat de "." de kommascheider (brr, ik bedoelde
dus het decimalenscheidingsteken of zoiets) was.

> de OP liet helemaal in het midden hoe hij omgaat met die bedragen: ze
> zouden bijvoorbeeld rechtstreeks uit een edit-box kunnen zijn gehaald. Op

En als die ze dan al wilt vergelijken zal hij/zij een zoek "," en
vervang door "." moeten doen.

> een Nederlandstalige website zou ik dan helemaal niet verbaasd zijn als
> rationele getallen in stringrepresentatie dan een komma bevatten.

Wel in JS. Stel je voor, anders zou je in JS moeten kijken in welke taal
de client staat... Erger, ik gebruik een Engelstalige IE, op een
Engelstalig OS maar zou best wel eens de ',' kunnen gebruiken...

[snip]

> Tuurlijk, maar de vraag van de OP ging -als ik hem goed begrijp- helemaal
> niet om die stukken Javascript maar om de if-then-else-constructie die
> eromheen staat. Die is -als ik het goed lees- wel degelijk perl.

Vrees van niet. Maar zelfs als het wel perl was, dan is het fout. Ik
kijk net even terug, en ik vrees toch echt dat het geen perl is.


> Zeker. Maar strings kunnen alfabetisch met elkaar vergeleken worden met
> ==, > en <. Net zoals je dat in perl kunt met eq, gt en lt.

$ perl -e 'print "1000000" lt "2"'
1

$ perl -e 'print "1000000" > "2"'
1

Om kortingen te berekenen hoop ik dat je > en vrienden gebruikt, en niet
gt en vrienden :-)

>>Ik *hoop* dat dat niet afhankelijk is van de taalinstelling van de browser...
>
> Nee hoor. Trouwens: da's toch wel zo in MS Office-talen? Of ben ik nu
> abuis?

Ik geloof dat je dat in kan stellen. Heb al een tijdje niks meer in
Office gedaan qua VBA. Weet wel dat ik er ooit tegenaan liep. Ooit zelfs
in een VBA (of heette dat toen anders?) gewerkt met NLtalige opdrachten,
vreemd... ALS bla bla DAN brrrr...

> [snip reclame :-)]

Wat nu, reclame, ik verkoop niks, vraag geen geld etc. ;-)

John

--
email: mail(at)johnbokma.com (or reply) home: http://johnbokma.com/
Web site hints: http://johnbokma.com/websitedesign/ ~ ICQ 218175426