🚀 go-pugleaf

Dr.Ruud wrote:

> Toen ik John Bokma kietelde, kwam er dit uit:
>> Dr.Ruud:
> 
>>> Nog zo'n voorbeeld:
>>>
>>>      if ((sex == 'F') || ((sex == 'f') && (sex = 'F'))) do_female;
>>>      else if ((sex == 'M') || (sex = 'M')) do_male;
> 
> Je had toch wel gezien dat het de bedoeling was dat deze code 
> hetzelfde
> resultaat oplevert als die switch? (ik heb het niet getest)

Ik ook niet, maar ik snap de bedoeling van de shortcuts. 

>>> Ik hou de literals overigens graag links van de '==', dus zo:
>>>
>>>      if (('F' == sex) || (('f' == sex) && (sex = 'F'))) do_female;
>>>      else if (('M' == sex) || (sex = 'M')) do_male;
> 
>> Wat ik vreselijk onlogisch vind,
> 
> Je bent dan vast e1n van de velen die de "==" en "!=" niet echt als
> symmetrische symbolen lezen. Ik zie veel liever een
> if (NULL != lange-en-complexe-expressie)
> dan andersom (en het liefst dus inclusief de onnodige "NULL !="),
> want je weet meteen waarmee vergeleken wordt.

Laatste eens, tenminste heb dat veel gedaan in C, expliciet aangeven 
waarmee vergeleken werd.

In Perl gebruikt men vaak de volgende grap:

$variable ||= 3;

Wat gelijk is aan:

$variabele = 3 unless $variabele;

Wordt vaak gebruikt om in een functie een niet meegegeven parameter een 
waarde toe te kennen.

Dit kan erg mis gaan, voorbeeld:

sub create_file {

    	my ( $filename ) = @_;

    	$filename ||= 'default.txt';
}

Probeer nu maar eens het bestand 0 aan te maken (nul).

Mijn C kennis is outdated, maar als een pointer naar geheugenadres 0 kan 
wijzen, en null kan zijn, dan geeft:

if ( ptr ) {

} else {

    	printf("ptr is een NULL pointer!");
}

Toch die melding?

> Heheh, dat kun je zelfs gebruiken om vreemde toekenningen
> mee te "documenteren":
> 
>      if (('F' == sex) || (('f' == sex) && (NULL != (sex = 'F'))))
> do_female;
>      else if (('M' == sex) || (NULL != (sex = 'M'))) do_male;
> 
> of zo:
> 
>      if (('F' == sex) || (('f' == sex) && ('F' == (sex = 'F'))))
> do_female;
>      else if (('M' == sex) || ('M' == (sex = 'M'))) do_male;
> 
> Als motivatie voor het gebruiken van dit soort code stel ik me voor:
> Scheelt warnings, en de compiler optimaliseert het wel schoon.

Laatste eens. Maar zie mijn reaktie op Johan m.b.t. warnings.

>> en volgens mij ooit verzonnen om assignments in een if te ontdekken.
> 
> Ik legde het op aan beginnende C-programmeurs, dat scheelde een hoop
> fouten en verdriet. Maar dan deden ze vervolgens natuurlijk zoiets:
> 
>   unsigned int uiLen;
>   int i;
>     :
>     :
>   for (i = 0; i++; i < uiLen) ...
> 
> en dan wilde dat soms niet stoppen.

Probleem is: het is inderdaad een beginnersvalkuil, maar beter om ze 
daar in te laten vallen dan krom codeergedrag aan te leren, vind ik.

Ik ben een groot voorstander van programmeren in pseudo Engels, dus

if ( sex == 'F' ) { .... }

Als geslacht is vrouwelijk ....

Vandaar ook mijn plezier in Perl:

open .... or die ....

next if $line eq '';    	# volgende als de regel leeg is
$a == 3 and print "yes";    	# $a moet 3 zijn om print yes te zijn

defined $a or die    	    	# $a moet gedefinieerd zijn of anders

unless ( $a == 4 ) {    	# tenzij $a gelijk aan 4 is ...
...
}

Vooral unless maakt Perl stukken leesbaarder vind ik. Leesbaarder dan

if (! ... )    	    	    	 

>> Ik meen mij te herinneren dat een
>> beetje compiler daar een waarschuwing op geeft ( op: if ( sex = 'F' )
>> that is ).
> 
> Als je het warning-level hoog genoeg zet, wel. En anders was er nog
> lint.

Ik zet dat altijd maximaal :-D.

>> En zoniet, ik ga niet krom programmeren :-D.
> 
> Liever niet zeg. Toch zijn "How *NOT* to do it" lijstjes erg leerzaam,
> nog veel meer als er een-verhaal-met-humor in de voorbeelden zit.

Oh, zeker. Maar ik wil graag mijn code leesbaar houden :-D Zie boven.

-- 
John Bokma
                 Voorbeeldscripts in Perl: http://johnbokma.com/perl/
Ervaren Perl / Java programmeur beschikbaar:  http://castleamber.com/
Tevreden opdrachtgevers:     http://castleamber.com/testimonials.html