Font
[thread]4502[/thread]

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



<< |< 1 2 3 4 >| >> 35 entries, 4 pages
Ishka
 2004-02-11 17:06
#39488 #39488
User since
2003-08-04
771 articles
HausmeisterIn
[Homepage] [default_avatar]
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
#39489 #39489
User since
2003-08-04
5866 articles
ModeratorIn
[Homepage]
user image
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
#39490 #39490
User since
2003-08-04
5866 articles
ModeratorIn
[Homepage]
user image
[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
#39491 #39491
User since
2003-08-04
7321 articles
ModeratorIn

user image
ich hatte YML vorgeschlagen, damit man die Daten besser in anderen Sachen einbinden kann!
Crian
 2004-02-11 23:01
#39492 #39492
User since
2003-08-04
5866 articles
ModeratorIn
[Homepage]
user image
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
#39493 #39493
User since
2003-08-04
771 articles
HausmeisterIn
[Homepage] [default_avatar]
[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
#39494 #39494
User since
2003-08-04
5866 articles
ModeratorIn
[Homepage]
user image
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
#39495 #39495
User since
2003-08-04
5866 articles
ModeratorIn
[Homepage]
user image
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
#39496 #39496
User since
2003-08-04
771 articles
HausmeisterIn
[Homepage] [default_avatar]
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 dis­play 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
#39497 #39497
User since
2004-01-29
828 articles
BenutzerIn
[Homepage] [default_avatar]
[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.
<< |< 1 2 3 4 >| >> 35 entries, 4 pages



View all threads created 2004-02-10 23:07.