Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6168[/thread]

0 <=> 1: schnellste lösung

Leser: 2


<< |< 1 2 3 4 >| >> 32 Einträge, 4 Seiten
lichtkind
 2004-03-28 01:06
#81313 #81313
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
[Homepage]
user image
wie kann man eigentlich am schnellsten zwischen den variableninhalt 0 und 1 wechseln, einen bool gibt ja nicht in perl und 1 und -1 kommt bei meiner lösung nicht in frage,

danke im vorraus\n\n

<!--EDIT|lichtkind|1080428944-->
Wiki:Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
[E|B]
 2004-03-28 01:14
#81314 #81314
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
HiHo!

Code: (dl )
1
2
$var = 0;
$var++;


Wie meinst du sonst?
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]
lichtkind
 2004-03-28 01:20
#81315 #81315
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
[Homepage]
user image
hin und zurück
ich dachte es gäbe ne lösung ohne if
Wiki:Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
[E|B]
 2004-03-28 01:23
#81316 #81316
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Höchstens so:

Code: (dl )
$var ? $var-- : $var++;


Arbeitet intern aber auch mir if-else.
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]
lichtkind
 2004-03-28 01:55
#81317 #81317
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
[Homepage]
user image
als c veteran müsste ich selbst drauf kommen,
danke
ich dachte es gibt etwas perlishes wie switch -b $var
oder so
Wiki:Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
Crian
 2004-03-28 05:05
#81318 #81318
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
$var = 1- $var
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
esskar
 2004-03-28 06:16
#81319 #81319
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=Crian,28.03.2004, 03:05]$var = 1- $var[/quote]
ob das perlish ist? :)

aber gut ist es!
[E|B]
 2004-03-28 13:50
#81320 #81320
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Das Problem bei dieser Lösung ist nur, dass wenn man den Wert "0" bereits vorher hat, den neuen Wert "-1" erhält. Da tut es mein Vorschlag oben glaube ich schon besser, bei dem kein anderer Wert als "0" und "1" selber existieren kann.
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]
renee
 2004-03-28 15:29
#81321 #81321
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
wie kommst Du bei
Code: (dl )
$var = 1- $var
auf -1 ??
$var = 1 - 0; # = 1 ; $var war 0
$var = 1 - 1; # = 0 ; $var war 1
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/
kabel
 2004-03-28 15:30
#81322 #81322
User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]
wie wäre es mit einem XOR?
Quote
C:\WINDOWS\Desktop>perl
my $var = 0;
sub p { print "$var\n" }
foreach (1 .. 4) {
  $var ^= 1;
  p;
}

1
0
1
0

C:\WINDOWS\Desktop>
-- stefan
<< |< 1 2 3 4 >| >> 32 Einträge, 4 Seiten



View all threads created 2004-03-28 01:06.