Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]5680[/thread]

Entweder / Oder Bedingung: Wie XOR

Leser: 2


<< |< 1 2 >| >> 14 Einträge, 2 Seiten
format_c
 2003-09-02 12:05
#82853 #82853
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Hi.
Ich wollte eine Bedingung machen mit einer XOR (^) BEdingung.

Dacht mir eigendlich folgendes:
Code (perl): (dl )
1
2
3

if ($string1 ^ $string2) {

}


aber irgendwie will das nicht so recht.
die alternative mit && und || sähe dann halt unschön aus.
Code (perl): (dl )
1
2
3

if ($string1 && !$string2 || !$string1 && $string2) {

}


Geht das nich doch irgendwie mit dem ^ Operator?
mache ich vielleicht was verkehrt?

Gruß Alex
Effizente Linuxshell
Dubu
 2003-09-02 12:23
#82854 #82854
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
Der ^-Operator macht ein bitweises XOR, kein logisches. Du braeuchtest einen '^^'-Operator, den Perl 5 aber nicht bietet. In Perl 6 wird es dafuer den Operator '~~' geben (und '~' wird das neue bitweise XOR). Bis dahin bleibt dir nur die Umschreibung.
Thorium
 2003-09-02 12:24
#82855 #82855
User since
2003-08-04
232 Artikel
BenutzerIn
[Homepage] [default_avatar]
Code (perl): (dl )
1
2
3

if ($string1 xor $string2) {

}


?
Per|li|nist der; -en, -en <zu ↑...ist>: a) Anhänger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.
Thorium
 2003-09-02 12:30
#82856 #82856
User since
2003-08-04
232 Artikel
BenutzerIn
[Homepage] [default_avatar]
achja die korrekte und kleinste boolsche schreibweise für das xor wäre:

Code (perl): (dl )
1
2
3

if ((!($string1 && $string2)) && ($string1 || $string2)) {

}
Per|li|nist der; -en, -en <zu ↑...ist>: a) Anhänger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.
havi
 2003-09-02 12:56
#82857 #82857
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Es gibt doch den Befehl xor in Perl...
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
Dubu
 2003-09-02 13:04
#82858 #82858
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
Autsch, den habe ich doch glatt vergessen... Ich sollte mir das Camelbook wohl mal wieder vornehmen. ;-)
*kopfschuettel*
Relais
 2003-09-02 13:05
#82859 #82859
User since
2003-08-06
2244 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=havi,02.09.2003, 10:56]Es gibt doch den Befehl xor in Perl...[/quote]
in perlop.
Erst denken, dann posten --
26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.

Winter is Coming
kabel
 2003-09-02 13:06
#82860 #82860
User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]
havi ist in der gruppe "Awaiting Authorisation"? wie kann er dann posten?
-- stefan
format_c
 2003-09-02 13:12
#82861 #82861
User since
2003-08-04
1706 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Ach danke.
xor wars natürlich.

Danke Euch allen.

Gruß Alex
Effizente Linuxshell
Relais
 2003-09-02 13:12
#82862 #82862
User since
2003-08-06
2244 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=kabel,02.09.2003, 11:06]havi ist in der gruppe "Awaiting Authorisation"? wie kann er dann posten?[/quote]
Hmm...

...was will Havi in der Gruppe "Awaiting Authorisation"?

...wieso ist er drin gelandet? Freiwillig?

...vielleicht hat er gepostet, als er eben noch normaler Moderator war?

Spukt es in diesem Forum? :ghostface:
Erst denken, dann posten --
26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.

Winter is Coming
<< |< 1 2 >| >> 14 Einträge, 2 Seiten



View all threads created 2003-09-02 12:05.