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

SirLant

2003-09-13 18:08

User since
2003-08-04
516 Artikel
BenutzerIn
[default_avatar]

Ich bilde zusammenhängende Blöcke, das heißt Stellen die
zusammengehören werden direkt untereinander geschrieben,
kommt etwas anderes, mache ich eine Leerzeile.
So kann es sein, dass ich für 3Zeilen 2Leerzeilen benötige(also
5Zeilen), aber anderst würde ich den Code nicht mehr als gut
Strukturiert betrachten.

--Programming today is a race between Software Enginers striving to build bigger and better idiot-proof Programs,
and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning!

havi

2003-09-13 18:14

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=Relais,12.09.2003, 11:03]# ...und hier sollte ich vielleicht über CPAN:

use Switch; nachdenken...[/quote]
... das ist richtig!

Viele Leute kennen use Switch noch gar nicht!

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

SirLant

2003-09-13 18:17

User since
2003-08-04
516 Artikel
BenutzerIn
[default_avatar]

Switch ist ja gut und recht, aber dazu benötige ich ein weiteres
Modul, da bevorzuge ich diese variante:

Code: (dl )

SWITCH: {
	$var eq 'foo' && do { print $var;    last SWITCH;  };
	$var eq 'bar' && do { print $var;    last SWITCH;  };
}

\n\n

--Programming today is a race between Software Enginers striving to build bigger and better idiot-proof Programs,
and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning!

havi

2003-09-13 18:20

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=SirLant,13.09.2003, 16:17]Switch ist ja gut und recht, aber dazu benötige ich ein weiteres
Modul, da bevorzuge ich diese variante:

Code: (dl )

SWITCH: {
	$var eq 'foo' && do { print $var;    last SWITCH;  };
	$var eq 'bar' && do { print $var;    last SWITCH;  };
}

[/quote]
Was hast du gegen ein weiteres Modul ?

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

havi

2003-09-13 18:26

User since
2003-08-04
2036 Artikel
BenutzerIn

Switch ist bei Perl 5.8 schon standardmäßig dabei und die Installation bei Perl 5.6 über ppm dauert ca. 2 min!

Ergebnis:

Code: (dl )

use Switch;

switch ($val) {

   case 1          { print "number 1" }
   case "a"        { print "string a" }
   case [1..10,42] { print "number in list" }
   case (@array)   { print "number in list" }
   case /\w+/      { print "pattern" }
   case qr/\w+/    { print "pattern" }
   case (%hash)    { print "entry in hash" }
   case (\%hash)   { print "entry in hash" }
   case (\&sub)    { print "arg to subroutine" }
   else            { print "previous case not true" }

}

Gruss\n\n

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

SirLant

2003-09-13 18:27

User since
2003-08-04
516 Artikel
BenutzerIn
[default_avatar]

Jedes weitere Modul kostet Zeit beim laden und ist mehr Overhead.
Also benutze ich möglichst wenige Module, und gerade Dinge
wie das Switch geht doch auch wunderbar ohne ein Modul.

--Programming today is a race between Software Enginers striving to build bigger and better idiot-proof Programs,
and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning!

havi

2003-09-13 18:30

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=SirLant,13.09.2003, 16:27]Jedes weitere Modul kostet Zeit beim laden und ist mehr Overhead.
Also benutze ich möglichst wenige Module, und gerade Dinge
wie das Switch geht doch auch wunderbar ohne ein Modul.[/quote]
Tut mir leid, aber diese Meinung kann ich nicht teilen!

Warum etwas schon vorhandenes und gut funktionierentes neu erfinden ???

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

[E|B]

2003-09-13 19:35

User since
2003-08-08
2561 Artikel
HausmeisterIn

Tut mir Leid für die blöde frage, aber was ist denn foo.bar genau?

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

eisbeer

2003-09-13 21:00

User since
2003-08-29
347 Artikel
BenutzerIn

Hmm :)
Das ist ein ausspruch aus, ich glaub 'Ein Soldat namens James Ryan'.
In irgendeiner Szene sagt jemand das Wort. Es steht für
-> fucked up beyond all recognition

Also frei: "Keine Ahnung, was das ist" :)

Bzw ein 'Foobar' ist ein 'Dingsbums', um wieder mal auf meine Frage zurückzukommen, wieso in meinem Perl kurz&gut auf ein Dingsbums verwiesen wird :)
http://board.perl-community.de/cgi-bin....0#idx12\n\n

Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...

Crian

2003-09-14 01:47

User since
2003-08-04
5866 Artikel
ModeratorIn

Ich hab mich schon mehrfach hin- und her umgewöhnt, je nach den Vorgaben des Arbeitgebers, aber die Klammer direkt am if erregt bei mir in jeder Sprache eine unererklärbar starke Abneigung, genau wie eingeklammerte "Argumente" von return...

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

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