Kurzfassung If-Bedingung (Allgemeines zu Perl)

[thread]20413[/thread]

Kurzfassung If-Bedingung

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+24 replies
Gast Jan

2018-01-11 15:57
Hallo,

kann man diese beiden Zeilen zu einer zusammenfassen?
Code (perl): (dl )

1 2

if ($description !~/WYSIWYG/ig) {$description =~s/\n/ /g}; $itemSet{'item'}{'description'} = $description;
Ich bekomme es nicht hin, da ich mit der eventuellen Ersetzung nicht klar komme.

Danke
Last edited: 2018-01-11 18:14:04 +0100 (CET)
- Gast payx
 
 2018-01-11 19:21
 Code: (dl )
 
 1 2
 
 perl -wE '$description = qq(fooWYSIWYG\nbar); say $description !~/WYSIWYG/ig ? $description =~s/\n/ /gr : $description;' perl -wE '$description = qq(fooWYSIWOG\nbar); say $description !~/WYSIWYG/ig ? $description =~s/\n/ /gr : $description;'
 
 Last edited: 2018-01-11 19:25:02 +0100 (CET)
- +6 replies
- Gast payx
 
 2018-01-11 19:32
 Code: (dl )
 
 1 2
 
 perl -wE '$description = qq(fooWYSIWYG\nbar); say $description !~/WYSIWYG/ig ? $description =~s/\n/ /gr : $description;' perl -wE '$description = qq(fooWYSIWOG\nbar); say $description !~/WYSIWYG/ig ? $description =~s/\n/ /gr : $description;'
 
 Edit: Also, Deine Zeile müsste dann heißen:
 
 Code (perl): (dl )
 
 $itemSet{'item'}{'description'} = $description !~/WYSIWYG/ig ? $description =~s/\n/ /gr : $description;
 
 Das funktioniert aber erst ab Perl 5.10 (ungefähr), Du brauchst also etwas wie
 
 Code (perl): (dl )
 
 use 5.010;
 
 in Deinem Programm.
 Last edited: 2018-01-11 19:41:44 +0100 (CET)
 - +5 replies
 - Linuxer
 
 2018-01-11 19:44
 
 User since
 2006-01-27
 3891 Artikel
 HausmeisterIn
 
 Edit: In diesem Fall nicht ganz korrekt, man beachte die Regex-Modifier beim s///; Siehe payx' Folge-Hinweis:
 
 Das heisst, wenn das Ergebnis des negierten Regex-Match positiv ist, wird das Ergebnis der Ersetzung (also die Rückgabe des s///ig zugewiesen, ansonsten der Inhalt von $description. Bedenke dabei, dass s/// nicht den modifizierten String zurückliefert.
 Last edited: 2018-01-11 19:52:31 +0100 (CET)
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
 - +4 replies
 - Gast payx
 
 2018-01-11 19:47
 
 Hallo Linuxer,
 
 doch, mit dem Modifyer r eben doch. Aber den gibt es, wie gesagt, noch nicht so lange.
 
 Grüße
 payx
 - +2 replies
 - Linuxer
 
 2018-01-11 19:48
 
 User since
 2006-01-27
 3891 Artikel
 HausmeisterIn
 
 Ach Gottchen, das Ding ist so klein, das überseh ich ja glatt! Danke!
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
 
 Gast payx
 
 2018-01-11 20:02
 
 Wo wir gerade dabei sind: Der g-Modifier (mit i, nicht wie vorhin mit y) ist in diesem Beispiel in der Bedingung unsinnig, denn es ist ja egal, wie oft "WYSIWYG" gefunden wird. Das haben wir beide übersehen ;-)
 Last edited: 2018-01-11 20:03:44 +0100 (CET)
 - Linuxer
 
 2018-01-12 19:15
 
 User since
 2006-01-27
 3891 Artikel
 HausmeisterIn
 
 /r ließ mich nicht so ganz los; habe nochmal nachgesehen. Das wurde wohl mit Perl 5.14.0 eingeführt.
 Basierend auf der Angabe im perldelta 5.14.0 muss man bedenken, dass mit /r mit einer Kopie des originalen Strings gearbeitet wird und der originale String wohl nicht verändert wird.
 
 http://search.cpan.org/dist/perl-5.14.0/pod/perldelta.pod
 ...
 Non-destructive substitution
 
 The substitution (s///) and transliteration (y///) operators now support an /r option that copies the input variable, carries out the substitution on the copy, and returns the result. The original remains unmodified.
 
 my $old = "cat";
 my $new = $old =~ s/cat/dog/r;
 # $old is "cat" and $new is "dog"
 
 This is particularly useful with map. See perlop for more examples.
 
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- Linuxer
 
 2018-01-11 19:55
 User since
 2006-01-27
 3891 Artikel
 HausmeisterIn
 Oder man benutzt map im Kontext einer Liste mit nur einem Element:
 
 Code: (dl )
 
 1 2 3
 
 $foo = "la\nle\nlu"; ( $text ) = map { $_ !~ m/WYSIWYG/ig && s/\n/ /gr } $foo; say "TEXT4: $text";
 
 oder ohne /r-Modifier, was meine erste Idee war:
 
 Code: (dl )
 
 1 2 3
 
 $foo = "la\nle\nlu"; ( $text ) = map { $_ !~ m/WYSIWYG/ig && s/\n/ /g; $_ } $foo; say "TEXT4: $text";
 
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- hlubenow
 
 2018-01-11 22:33
 
 User since
 2009-02-22
 885 Artikel
 BenutzerIn
 
 Guest Jan
 kann man diese beiden Zeilen zu einer zusammenfassen?
 
 Ich wüßte nicht, wozu das gut sein sollte.
 - lichtkind
 
 2018-01-12 12:58
 
 User since
 2004-03-22
 5730 Artikel
 ModeratorIn + EditorIn
 
 manchmal hat noch nicht den kerngedanken einer operation erfasst und es wird nach einer verkürzung klarer. aber in dem fall sehe ich da auch nicht.
 mein zeug:, Leute
 
 Es beginnt immer mit einer Entscheidung.
- +8 replies
- rosti
 
 2018-01-12 14:23
 User since
 2011-03-19
 3749 Artikel
 BenutzerIn
 Mit einer bedingten Zuweisung (ternär Operator) kann man die Zeilen zusammenfassen:
 
 Code (perl): (dl )
 
 1 2 3 4
 
 $itemSet{'item'}{'description'} = $description !~/WYSIWYG/i ? do{ $description =~s/\n/ /g}; $description; } : $description;
 
 Die eigentliche Frage ist die, was man bei einer Revision besser nachvollziehen kann. MfG
 https://www.rolfrost.de/
 
 Forum zu Fragen unserer Zeit
 - +4 replies
 - GwenDragon
 
 2018-01-12 16:07
 
 User since
 2005-01-17
 14889 Artikel
 Admin1
 
 Selbst wenn ich das lesen kann. Aber trotzdem ein: Igitt!
 Das ist fast so schlimm als wenn man mit K&R-C und FORTRAN etwas neues züchten will.
 Solche Konstrukte erschweren viele die Programmpflege und tragen natürlich zum Vorurteil bei, dass Perl etwas verfreakte sei.
 
 Grundsätzlich gilt: "Wenn mann programmiert, dann so verständlich als sei der Nachfolger ein kettensägen-massakrierender reizbarer Psychopath."
 Ich denke mal, der Typ heißt wirklich Tim Towtdi!
 SCNR ;)
 Last edited: 2018-01-12 16:10:09 +0100 (CET)
 die Drachin Gwen
 
 Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
 - +3 replies
 - rosti
 
 2018-01-12 16:45
 
 User since
 2011-03-19
 3749 Artikel
 BenutzerIn
 
 Also ich komme mit diesem ternär Geraffel und do{} Blöcken ganz gut zurecht. Unschön wirds doch nur, wenn x = bedingung ? dies : das über eine Bedingung hinausgeht. Und wenn es einen do{} Block braucht guck ich, daß der hintendran kommt, also wird die Bedingung negiert notiert.
 
 Teamarbeit interessiert mich nicht mehr, ich bin raus. Und warum ich raus bin, liegt daran, daß ich manchmal Stunden brauche um eine bestimmte Logik zu kapieren.
 
 Aber solange ich noch berufstätig war die letzten Jahre, hab ich viel schlimmere Sachen gesehen die man ganz bestimmt nicht machen sollte. Ternäroperationen gehören nicht dazu, die sind ok und auch in JS oder C ist der Syntax wie in Perl.
 
 MfG
 https://www.rolfrost.de/
 
 Forum zu Fragen unserer Zeit
 - +2 replies
 - GwenDragon
 
 2018-01-12 17:09
 
 User since
 2005-01-17
 14889 Artikel
 Admin1
 
 Ja, gut, du bist raus ausm Beruf.
 Aber müssen wir den Newbies hier zeigen, das man Perl schon unverständlich machen kann? Bin ich nicht dafür.
 die Drachin Gwen
 
 Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
 
 rosti
 
 2018-01-12 17:20
 
 User since
 2011-03-19
 3749 Artikel
 BenutzerIn
 
 Nochmal: Der ternäre Operator ist nicht unverständlich. Der gehört zum Handwerkzeug aber hallo!
 https://www.rolfrost.de/
 
 Forum zu Fragen unserer Zeit
 - +2 replies
 - Linuxer
 
 2018-01-12 16:49
 User since
 2006-01-27
 3891 Artikel
 HausmeisterIn
 
 Man könnte es auch ohne ternären Operator machen; klar, ein if braucht's da aber immer noch:
 
 Code (perl): (dl )
 
 1 2 3 4 5 6
 
 $itemSet{'item'}{'description'} = do { $description =~ s{\n}{ }g if $description !~ m{WYSIWYG}i; $description; }; say "TEXT $text";
 
 Find ich etwas klarer zu lesen.
 
 So langsam geht der Gedanke in die Richtung, wenn das häufiger gemacht werden muss, wäre der Einsatz einer eigenen Subroutine dafür zu überlegen.
 
 [edit] Variablen umbenannt auf die hier verwendeten; und code=perl gesetzt
 Last edited: 2018-01-12 16:51:46 +0100 (CET)
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
 - rosti
 
 2018-01-12 17:18
 
 User since
 2011-03-19
 3749 Artikel
 BenutzerIn
 
 Jow, da machen wir den Hash zur Referenz, segnen diese mit dem Namen der aktuellen Package und rufen mit dieser so erzeugten Instanz einfach nur noch Methoden auf:
 
 Code (perl): (dl )
 
 1 2 3 4 5 6 7 8 9 10
 
 my $itemSet = bless{ item => {} }; sub desc{ my $self = shift; my $descr = shift; $descr =~ s{\n}{ }g if $descr !~ m{WYSIWYG}i; $self->{item}{description} = $descr; } $itemSet->desc("hier die Beschreibung mit einem WySi reingefummelt..\nneue Zeile");
 
 . Fertig ;)
 https://www.rolfrost.de/
 
 Forum zu Fragen unserer Zeit
 - Gast payx
 
 2018-01-12 17:53
 
 2018-01-12T13:23:19 rosti
 Mit einer bedingten Zuweisung (ternär Operator) kann man die Zeilen zusammenfassen
 
 Das hatte ich in der ersten Antwort auch schon vorgeschlagen. Und mein Vorschlag (mit Nutzung des modernen r-Modifiers) war nach meinem Geschmack auch eleganter als Deiner und er funktioniert — im Gegensatz zu Deinem, in dem ein } zu viel enthalten ist. MfG
 Last edited: 2018-01-12 18:05:08 +0100 (CET)
- +5 replies
- Linuxer
 
 2018-01-12 15:17
 User since
 2006-01-27
 3891 Artikel
 HausmeisterIn
 Warum willst Du das eigentlich zusammenfassen? Grundlegend ist das doch gut so.
 
 Nur aus "falschem Schönheitssinn" würde ich das nicht umstellen oder zwanghaft zusammenfassen.
 
 Je nach persönlicher Präferenz könnte man das if noch nachstellen, aber ansonsten passt das doch.
 
 Code (perl): (dl )
 
 1 2 3
 
 $description =~ s{\n}{ }g if $description !~ m{WYSIWYG}i; $itemSet{'item'}{'description'} = $description;
 
 edit: Regex-Begrenzer editiert, um Syntax-Highlighting zu verbessern.
 Last edited: 2018-01-12 19:02:41 +0100 (CET)
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
 - rosti
 
 2018-01-13 09:38
 
 User since
 2011-03-19
 3749 Artikel
 BenutzerIn
 
 Quote
 Warum willst Du das eigentlich zusammenfassen? Grundlegend ist das doch gut so.
 
 Dieselbe Frage stellt sich mir auch. Weil es i.d.R. ohnehin besser ist, Code auf mehrere Zeilen bzw. sichbare und nachvollziehbare Schritte aufzuteilen. Ich finds z.B. auch leserlicher, ternäre Operationen, sonstige Zuweisungen und auch return's auf mehrere Zeilen umzubrechen. Genauso wie Padding innerhalb von Klammern, das gibt sozusagen mehr Luft, also ( $par ) statt ($par)
 
 Hash-Keys zu quoten verbessert auch nicht die Lesbarkeit ganz im Gegenteil. So ist ein {item} besser lesbar als {'item'} und an dieser Stelle wird ohnehin ein String erwartet den man nicht extra noch quoten muss.
 
 Das sind so Hinweise die ich geben würde wenn es um die Lesbarkeit geht. Schließlich steckt ja auch dahinter eine gewisse Logik. Ob hier in Codebeispielen eine Klammer zuviel ist oder fehlt, ist für mich kein Anlass für irgendwelche Diskussionen; i.d.R. prüfe ich den Syntax bevor ich hier was poste. Tippfehler sind bei mir gesundheitlich bedingt.
 
 MfG
 Last edited: 2018-01-13 12:00:33 +0100 (CET)
 https://www.rolfrost.de/
 
 Forum zu Fragen unserer Zeit
 - +3 replies
 - Gast payx
 
 2018-01-14 11:30
 
 Die Frage von OP war:
 Guest Jan
 kann man diese beiden Zeilen zu einer zusammenfassen?
 – Nicht, ob wir das gut und schön finden.
 Last edited: 2018-01-14 11:43:13 +0100 (CET)
 - +2 replies
 - Linuxer
 
 2018-01-14 19:37
 
 User since
 2006-01-27
 3891 Artikel
 HausmeisterIn
 
 Ups, hab ich Dir auf den Schlips getreten mit der Frage oder was soll das jetzt?
 
 Hab ich irgendwas anderes behauptet?
 
 Warum darf ich nicht nach den Hintergründen fragen?
 Warum darf ich keine von der Frage abweichende Gegenfrage stellen?
 meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
 Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
 - Gast payx
 
 2018-01-14 21:52
 
 Hallo Linuxer,
 
 bitte entschuldige, ich wollte Dir nicht auf den Schlips treten, wirklich nicht, und fühle mich auch selbst nicht auf denselben getreten, zumal ich gar keinen trage und in diesem Thread (wie überhaupt im Forum) ja nur Gast bin.
 
 Dieser Thread enthält mindestens vier Beiträge, die anstelle einer Antwort auf die Frage nur Belehrungen enthalten, die sinngemäß lauten: "Das ist eine dumme Frage." – zumindest können sie von OP (der sich ohnehin offenbar verabschiedet hat) leicht so verstanden werden. Mindestens zwei weitere Posts lassen das am Rande einer Antwort zumindest anklingen. Wenn ich mich nicht verzählt habe.
 
 Dabei heißt es doch immer, es gebe keine dummen Fragen, bzw. als Denksportaufgabe war die Frage doch auf jeden Fall interessant. Gesucht war ja vermutlich nicht eine Lösung mit dem ternären if, sondern eine mit einer Regex mit lookahead und lookbehind, die aber wegen der Negation kaum möglich sein dürfte, zumindest bin ich auf keinen Trichter gekommen.
 
 Polemisieren wollte ich aber nicht, schon gar nicht gegen Dich, darum bitte ich Dich nochmals um Entschuldigung, wenn das so rüberkam.
 
 Viele Grüße
 payx
 Last edited: 2018-01-14 23:42:26 +0100 (CET)

View all threads created 2018-01-11 15:57.