GED: Module und Namensräume: wie umgeht man Namenskonflikte? (Seite 3) (Projekte)

Ishka

2004-02-11 17:06

User since
2003-08-04
771 Artikel
HausmeisterIn

Noch ein Bugreport: Wenn man zwei Verbindungslinien übereinander macht, können sie nicht mehr gelöscht werden.

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

Crian

2004-02-11 17:40

User since
2003-08-04
5866 Artikel
ModeratorIn

Version 0.0.29 ist da.

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

Crian

2004-02-11 18:08

User since
2003-08-04
5866 Artikel
ModeratorIn

[quote=Ishka,11.02.2004, 15:27]Bugreport: wenn debug auf 0 steht wird immer noch alles mögliche ausgegeben.[/quote]
Hast Du nur in der ged.pl debug auf Null gesetzt, oder auch alle Debugs in den Modulen?

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-02-11 19:25

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

ich hatte YML vorgeschlagen, damit man die Daten besser in anderen Sachen einbinden kann!

Crian

2004-02-11 23:01

User since
2003-08-04
5866 Artikel
ModeratorIn

Also der Transfer nach und von XML sollte mir auch ohne Modulhilfe leichtfallen, schließlich mach ich das auch beruflich.
Ich kann das ja mal mit niedriger Priorität auf die Liste setzen.
Dabei ist es dann aber so, dass "echte" Anwender, die Reihenfolge der Abarbeitung beeinflussen können, wenn es gut begründet ist :-D

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

Ishka

2004-02-12 19:20

User since
2003-08-04
771 Artikel
HausmeisterIn

[quote=Crian,11.02.2004, 17:08][quote=Ishka,11.02.2004, 15:27]Bugreport: wenn debug auf 0 steht wird immer noch alles mögliche ausgegeben.[/quote]
Hast Du nur in der ged.pl debug auf Null gesetzt, oder auch alle Debugs in den Modulen?[/quote]
Nur in ged.pl

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

Crian

2004-02-10 20:44

User since
2003-08-04
5866 Artikel
ModeratorIn

lol, da hab ich "for," statt "form" geschrieben - aua

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

Crian

2004-02-10 20:23

User since
2003-08-04
5866 Artikel
ModeratorIn

Programme kann man aber wohl nicht ins CPAN stellen, oder?

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

Ishka

2004-02-10 22:01

User since
2003-08-04
771 Artikel
HausmeisterIn

Jetzt bist du auch auf meiner Downloadseite verlinkt und die Downloads funzen.

Zu einem Punkt der Todo-Liste (- Kanten wahlweise so zeichnen, dass sie nur an die Ecken stoßen und nicht bis zum Mittelpunkt gehen! (Ohne die Verzierungen müsste man ja nur die beiden Ecken jeweils neuzeichnen).)
kennst du den Befehl
$canvas->raise(tagOrId, ?aboveThis?)
Move all of the items given by tagOrId to a new position in the display list just after the item given by aboveThis. If tagOrId refers to more than one item then all are moved but the relative order of the moved items will not be changed. AboveThis is a tag or id; if it refers to more than one item then the last (topmost) of these items in the display list is used as the destination location for the moved items. Note: this method has no effect on window items. Window items always obscure other item types, and the stacking order of window items is determined by the raise and lower widget commands, not the raise and lower methods for canvases. This method returns an empty string.

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

sri

2004-02-10 20:29

User since
2004-01-29
828 Artikel
BenutzerIn

[quote=Crian,10.02.2004, 19:23]Programme kann man aber wohl nicht ins CPAN stellen, oder?[/quote]
Nicht dierekt, aber wenn du dein Programm so umbaust das es zu einer Modulsammlung zum bau eines graphen editors wird! ;)

Das eigentliche Skript wird dann als Beispiel beigelegt.

Es muss halt anderen die einen graphen editor bauen wollen wollen von nutzen sein.

http://mojolicio.us/