Startscript: Kleines Problem mit meinen Ideen ein Tea (Seite 3) (Allgemeines zu Perl)

Dubu

2005-05-16 19:35

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=J-jayz-Z,16.05.2005, 02:31]Wenn du über einer Klammer bist, und wissen willst, wo das gegenstück ist, drückst du einfach = [...][/quote]
%

J-jayz-Z

2005-05-16 23:53

User since
2005-04-13
625 Artikel
BenutzerIn

@Dubu: mein ich doch ;p
ich hab es mit =% verwechselt.
(Rückt einen Abschnitt zwischen zwei Klammern automatisch ein)
@pKai: Das ist jedem das seine denk ich...
So hab ich es mir angewöhnt und ich denke mal, das ich das auch nicht ändern werde. Aber es lässt sich zumindest leichter lesen wie seins...

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

Dubu

2005-05-17 01:36

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=BoSSSpy,15.05.2005, 20:50]Da is deutlich zusehn das der goto befhel seeeehr Pratisch ist.[/quote]
Und es ist schon seit 37 Jahren bekannt, dass man GOTO vermeiden sollte. (Also wohl deutlich laenger, als du programmierst ... ;))

BoSSSpy

2005-05-17 03:12

User since
2005-05-15
11 Artikel
BenutzerIn

Die Argumente sind öde... hab doch gesagt das es möglich wäre, dass ne Schleife entstehen könnte. Aber ick find es einfacher und sehr sehr, sehr viel bequemer nen Goto zu benutzen, als noch ne schleife in einer andere schleife der schleife wenn man was schleift ... da ist es viel praktischer und übersichtlicher für ein Menu ein "GOTO" zu setzen.
GOTO RULZ ^^

Bei Fragen, fragen.

Crian

2005-05-17 17:03

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=BoSSSpy,15.05.2005, 20:50]Ich werde das gesammte Script veröffentlichen wenn's Fertig ist ... das wird aber noch nen paar Stunden dauern ...
Da is deutlich zusehn das der goto befhel seeeehr Pratisch ist.[/quote]
Wenn Du Dich nicht blamieren willst, würde ich an Deiner Stelle goto nur dann verwenden, wenn Du einen wirklich guten Grund dafür hast, hier hast Du keinen Grund dafür!

Aber bitte, Perl lässt Dir auch die Freiheit Dich als Script-Kiddie zu outen und C64-Basic-Style zu programieren äh zu "proggen" ^^

[quote=J-jayz-Z,16.05.2005, 21:53]So hab ich es mir angewöhnt und ich denke mal, das ich das auch nicht ändern werde. Aber es lässt sich zumindest leichter lesen wie seins...[/quote]
Dann gewöhn es Dir mal ganz schnell wieder ab. Und stifte hier nicht auch noch andere dazu an!
Sicherlich ist perldoc perlstyle nicht bindend, aber auch hier gilt, dass man sich daran halten sollte, wenn nicht irgendwelche äußeren Zwänge wie unsinnige Firmenrichtlinien einen davon abhalten.

Anscheined nutzt Du kein use strict und use warnings. Gute Idee, zusammen mit den Goto's wird Dein "Proggie" sicherlich ganz dolle "funtzen" ^^ *argh*
Achtung, der Sarkasmus ätzt sich gerade durch Dein Mainboard...

Lies das, es ist auch auf deutsch: http://wiki.perl-community.de/bin/view/Wissensbasis/UseStrict\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

renee

2005-05-17 17:50

User since
2003-08-04
14371 Artikel
ModeratorIn

@Crian: Ich kann Dir nur zustimmen...

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/

J-jayz-Z

2005-05-17 19:08

User since
2005-04-13
625 Artikel
BenutzerIn

@Crian: Mal ganz davon abgesehen, dass ich dir zustimme, das man goto wirklich nur mit einem _sehr_ triftigen Grund nutzen sollte und use strict; und use warnings; einfach dazu gehört, verstehe ich dein Argument nicht bei der Codefragmentierung.
Ob jetzt jemand

Code: (dl )

if ($foo eq "bar") { print $foo; }

oder

Code: (dl )

if ($foo eq "bar")
{
    print $foo;
}

schreibt, sollte einem, solange es für die anderen keine Zumutung ist zu lesen, durchaus selbst überlassen sein..
Oder nicht?
Hier hat sicherlich jeder 2te ne andere Vorstellung, wie gut formatierter Code auszusehen hat...
Oder?

EDIT: Die Schreibfehler mal wieder...\n\n

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

Strat

2005-05-17 19:38

User since
2003-08-04
5246 Artikel
ModeratorIn

also bei vielen if's/elsif's mit kurzem blockinhalt empfehle ich

Code: (dl )

if    ($action eq 'x1') { print "Action $action\n" }
elsif ($action eq 'x2') { print "Action $action\n" }
elsif ($action eq 'x3') { print "Action $action\n" }
elsif ($action eq 'x4') { print "Action $action\n" }
elsif ($action eq 'x5') { print "Action $action\n" }

(ok, kein besonders sinnvolles beispiel, und koennte man auch mit einem switch-ersatz vielleicht noch besser lesbar loesen, aber sowas finde ich besser lesbar als

Code: (dl )

if ($action eq 'x1') {
  print "Action: $action\n";
}
elsif ...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

J-jayz-Z

2005-05-17 19:49

User since
2005-04-13
625 Artikel
BenutzerIn

Gut, wenn es wirklih so kurz ist, ist es auch fraglich, ob ich es so geschrieben hätte, aber ich finde, solange der Leser des Codes nicht "vergewaltigt" wird beim Lesen, sollte es jeder so machen, wie er es sich angewöhnt hat...

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

Dubu

2005-05-18 00:26

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Naja, wer so schreibt, dass das Lesen eine Qual ist, der braucht sich nicht zu wundern, wenn es dann auch niemand liest.