Welche Schreibweise verwendet ihr ?: ... nur aus Interesse (Seite 10) (Allgemeines zu Perl)

[thread]5715[/thread]

Welche Schreibweise verwendet ihr ?: ... nur aus Interesse (Seite 10)

Leser: 3

Question: Welche Schreibweise verwendet ihr ?: ... nur aus Interesse
	Variante 1
	Variante 2
	Variante 3
	ich will ein Bier
You have to log in to vote.
57 voter(s) so far

renee

2006-04-24 15:59

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=master,24.04.2006, 11:35]du behauptest, das dass:

Code: (dl )

if()
{
  # Code
}

weniger konzept habe als das:

Code: (dl )

1
2
3

if() {
  # Code
}

[/quote]
Nein, das habe ich nie behauptet. Bei dem was ich kritisiert habe, war immer noch der else-Teil dabei und es war Kritik an Deiner Methode!

Ein

Code: (dl )

if()
{
   # Code
}
else
{
   # Code
}

ist mir auch recht, weil hier das else auch nicht untergeht...\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

GwenDragon

2006-04-24 16:06

User since
2005-01-17
14848 Artikel
Admin1

Ich schreibe
wenn es einzeilig geht:

Code: (dl )

if (BOOL) { Makewhat() } else { Dothis(FAST) }

ansonsten

Code: (dl )

if (BOOL) { 
  Makewhat();
} 
else { 
  Dothis(FAST);
  Make(That); 
}

ist das Schreiben der { in die zweite Zeile nicht der uralte Kerningham-Richie-C-Stil?\n\n

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

master

2006-04-24 16:07

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

@renee
ok, entschuldige.... dann habe ich wohl nicht genau gelesen..

Übrigens der nutzt das else auch wie ich :-) :

Programmierrichtlinien\n\n

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;

Taulmarill

2006-04-24 16:08

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

um die stildiskussion noch etwas anzuheitzen:

für einzelne befehle benutze ich statt der blockschreibweise if als nachgestellten operator. also z.b.

Code: (dl )

print "foo is defined\n" if defined $foo;

imho lässt sich guter stil aber nicht in feste regeln gießen. die vorgaben aus perlstyle sind gut, "Perl Best Practices" ist noch besser. beides kann aber einen gewissen sinn für ästhetik nicht ersetzen.

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

master

2006-04-24 16:12

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

@Gwen
Kerningham-Richie-C-Stil? Keine Ahnung... naja kann sein...

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;

master

2006-04-24 16:31

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

@Taulmarill
Die nachgestellte Methode ist "vom denken her" klever...
aber oft braucht man ja mehr als nur 1 Befehl.

Daher bleibe ich pers. bei einer dem standard if+Block.

Ausnahmen: Fremdcode, nicht so wichtigen Stellen oder wenn eine Zuweisung recht kurz sein soll.

Code: (dl )

$a = 1 if $a = 0;

Nachgestellt tanzt halt etwas aus der Rolle und geht halt schneller zum schreiben... Ist aber eine persönliche Ansicht.

Vorallem bekommst Du ein Problem wenn du im nachhinein einen zweiten befehl z.b. kurz ein $a++ reinhängen willst.

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;

renee

2006-04-24 16:51

User since
2003-08-04
14371 Artikel
ModeratorIn

Geht schon:

Code: (dl )

~ 3> perl
$a = 0;
$a = 4, $a++ if($a == 0);
print $a,"\n";
^D
5
~ 4> perl -le '$a = 0; $a = 4, $a++ if($a == 1); print $a;'
0
~5>

aber das ist nicht wirklich schön...\n\n

Matze

2006-04-24 16:54

User since
2005-08-29
222 Artikel
BenutzerIn

Ich benutze auch immer den 1 Stil.
Es sei denn es ist nur ein Befehl, dann setze ich if hinten dran.
Oder zwei kurze, dann auch if hinten dran:

Code: (dl )

($a = 0,$b = 1) if $a == 1;

Das geht auch!

Ich finde den zweiten Stil nicht so schön, weil ich mich an den
ersten schon gewöhnt habe, und immer nach dem if/while/...
nach der öffnenden Klammer gucke.
Allerdings wurde das ja auch schon mal geschrieben.

Ich finde ausserdem noch, dass die öffnende Klammer in Variante
2 irgendwie bei größeren Skripten schneller untergeht als in
Variante 1.

Und das Leerzeichen hinter dem if/... finde ich zwar wichtig,
aber man kann es auch ruhig weglassen, der Code ist dann
immer noch gut zu lesen.

MfG. Matze

Mit freundlichen Grüßen: Matze

Relais

2006-04-24 17:04

User since
2003-08-06
2261 Artikel
ModeratorIn

[quote=Taulmarill,24.04.2006, 14:08]um die stildiskussion noch etwas anzuheitzen:

für einzelne befehle benutze ich statt der blockschreibweise if als nachgestellten operator. [...] die vorgaben aus perlstyle sind gut, "Perl Best Practices" ist noch besser. beides kann aber einen gewissen sinn für ästhetik nicht ersetzen.[/quote]
Da muss ich wohl meine PBC-Bildungsluecke vorfuehren.
Meine Daumenpeilung geht so:
- Ist die Bedingung oder ihr Effekt wichtiger?
... - Was auch immer wichtiger ist, soll dem Leser des Codes zuerst ins Auge fallen und steht daher links.

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming

master

2006-04-24 17:09

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

@Matze
Naja ist halt schon etwas Gewohnheitssache.

Quote
Ich finde ausserdem noch, dass die öffnende Klammer in Variante 2 irgendwie bei größeren Skripten schneller untergeht als in Variante 1.

Das stimmt defintiv nicht...
{
Die öffnende klammer am ende, sieht man als schlechter
}

als wenn man sich auf den zeilenanfang konzentriert... du liest ja auch von links nach rechts oder? :-)

zudem geht sie eher unter:

Code: (dl )

$sdfsdfsdfsdfsdfsdfsdfsd_fsdfsd=0;
if($blablafksfksfdfsdlfsd) {
   #fksfksfdf sdlfsd fksf() {}ksfdfsd lfsd
}

als so (nun erkennst du den block sofort):

Code: (dl )

$sdfsdfsdfsdfsdfsdfsdfsd_fsdfsd=0;
if($blablafksfksfdfsdlfsd)
{
    #fksfksfdf sdlfsd fksf() {}ksfdfsd lfsd
}

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;

View all threads created 2003-09-11 23:56.