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

[thread]5715[/thread]

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

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

master

2006-04-24 13:40

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

@renee && crain

"sid burn" achtet auch - wie ich - auch die klammern...
*freu* endlich mal jemand wo mir zustimmt :-)

und auf die klammern achtet man nun eben "eher"
( (1+2)*(3+4) ) / 2 alleine schon, weil man es sich vom mathematischen her gewohnt ist, und von anderen Sprachen :)

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

Crian

2006-04-24 13:47

User since
2003-08-04
5873 Artikel
ModeratorIn

Ersetze "man" mit "du" und ich habe damit kein Problem.
Und mit "anderen Sprachen" stimmt das auch nicht, in C/C++ hab ich auch schon so programmiert und war sehr angetan von perldoc perlstyle. Ah und @ "mathematisch" ... bin Mathematiker.

=)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

master

2006-04-24 14:01

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

@Crian
Du hast recht.. das mach ich unschön.

Code: (dl )

ich:
if(1 eq 1) {}

statt:
if (1 eq 1) {}

in dem punkt sollte ich es echt überdenken ;-)
------

ohne Zeilenumbruch = eh unleserlich...

Code: (dl )

if (1 eq 1)
{
   print 'hallo';
   print 'hallo';
   if(2 eq 2) 
   { 
      print 'hallo' 
   }
}

Daher würde ich den Code eher so schreiben:

Code: (dl )

if (1 eq 1)
{
   print 'hallo';
   print 'hallo';
      
   if (2 eq 2) 
   { 
      print 'hallo' 
   }
}

oder

Code: (dl )

if (1 eq 1)
{
   print 'hallo';
   print 'hallo';
      
   if (2 eq 2) { print 'hallo' }
}

wichtig ist der Zeilenumbruch vor der if...
GANZ wichtig... damits nicht untergeht...

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

master

2006-04-24 14:03

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

@crain

eben als Mathematiker, dann achtest du ja auch "eigentlich" auf Klammern.

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

sid burn

2006-04-24 14:12

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

[quote=pq,24.April.2006, 11:34][quote=sid burn,24.04.2006, 11:28]Dein Code bewirkt irgendwie nichts.[/quote]
du musst schon richtig abtippen.
lies dir den code nochmal genau durch und schau, worauf du ^= anwendest.[/quote]
Hmm, ich hab zweimal $a benutzt und dann kommt natürlich das gleich raus. Eigentlich dachte ich, ich hätte Copy&paste gemacht. :O

XOR lässt sich in diesem Fall aber nur bei einer Invetierung von 1 und 0 nutzen. Möchte man 10 -> 5 und 5 -> 10, würde ich lieber den tenären Operator Benutzen.

Und wie beim Style finde ich es einheitlicher wenn man dann bei einer Sache bleibt.

Quote
ein XOR mit sich selbst
ist ein umdrehen des bits. fertig. total einfach!

Ist ein XOR mit sich selbst nicht eher Löschen aller bits? jedenfalls kommt bei einem XOR mit sich selbst immer 0 heraus. Da ja alle bits übereinstimmen, eine 1 aber nur bei unterschiedlichen bits gesetzt wird.

Dezimal 10 = Binar 1010. Mache ich ein XOR mit sich selbst

1010 ^ 1010 = 0000

Ein umdrehen der Bits erhalte ich bei mir eher durch ein Bitweises & mit 0.

1100101 &
0000000
---------
0011010

Oder verstehe ich dich jetzt falsch, oder habe ich jetzt sonst irgendwas falsch verstanden?\n\n

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

Crian

2006-04-24 14:12

User since
2003-08-04
5873 Artikel
ModeratorIn

Ich achte auf Einrückungen bzw. Ebenen, das hat mit Klammern zu tun, aber eben nicht nur.

Im übrigen kannst du deinen Code formatieren wie du möchtest, aber ich fände es erfreulich, wenn du nicht deine individuelle Vorliebe hier als "besser" als die unter Perlprogrammierern weltweit verbreitete und anerkannte Variante aus perldoc perlstyle darstellen würdest.
Wenn du in einer Firma anfängst, musst du dich auch nach den Firmenformatierungsrichtlinien halten, und die Chancen stehen gut, dass diese sich auf perldoc perlstyle berufen.
Klar kann man sich immer mit perltidy behelfen, aber schöne Formatierungen von speziellen, schwierigen Dingen gehen dann verloren.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Crian

2006-04-24 14:15

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=sid burn,24.04.2006, 12:12]Ein umdrehen der Bits erhalte ich bei mir eher durch ein Bitweises & mit 0.

1100101 &
0000000
---------
0011010[/quote]
Falsch, da kommt Null raus ^^

1100101 XOR
1111111
---------
0011010

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

sid burn

2006-04-24 14:44

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

[quote=Crian,24.April.2006, 12:15][quote=sid burn,24.04.2006, 12:12]Ein umdrehen der Bits erhalte ich bei mir eher durch ein Bitweises & mit 0.

1100101 &
0000000
---------
0011010[/quote]
Falsch, da kommt Null raus ^^

1100101 XOR
1111111
---------
0011010[/quote]
Äh stimmt. ich bin gerade davon ausgegangen das bei einen Bitweise & auch eine 1 heraus kommt, wenn beide Werte 0 sind.

Allerdings kommt ein XOR mit sich selber trotzdem 0 heraus.

11010 XOR
11010
------
00000

für ein Invertieren muss ich also alles auf 1 setzen. Aber in dezimalerschreibeweise ist es nicht so ganz logisch das ich

26 ^ 31

schreiben muss um es zu invertieren. Und mit größeren Zahlen muss es angepasst werden.

Gibt es überhaupt eine allgemeine Möglichkeit eine zahl zu invertieren? Ohne die zahl zu kennen?

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

Crian

2006-04-24 15:11

User since
2003-08-04
5873 Artikel
ModeratorIn

Ja zum Invertieren muss man xor auf eine Zahl mit einsen an den relevanten Bitpositionen anwenden, siehe mein Post oben.

probier mal ~$zahl 8)\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

2006-04-24 15:26

User since
2003-08-04
12209 Artikel
Admin1

[quote=sid burn,24.04.2006, 12:12]

Quote
ein XOR mit sich selbst
ist ein umdrehen des bits. fertig. total einfach!

Ist ein XOR mit sich selbst nicht eher Löschen aller bits?[/quote]
jo, hatte mich vertippt, es war ja ein XOR mit 1

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

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