RDW #1 - Rätsel der Woche Nummer eins (page 6) (Allgemeines zu Perl)

[thread]6386[/thread]

RDW #1 - Rätsel der Woche Nummer eins (page 6)

Tags: RDW Similar Threads

Readers: 2

Ronnie

2004-07-12 11:42

User since
2003-08-14
2022 articles
BenutzerIn
[default_avatar]

@kabel: Danke!

@all:
Ich finde das es zwar anspruchsvoll war, aber nicht zu kompliziert. Man kann ja in den Anforderungen etwas schwanken - mal leichter mal schwieriger. So bleibt es für alle interessant und jeder kann was dabei lernen.

reply with quote

Crian

2004-07-12 14:09

User since
2003-08-04
5881 articles
ModeratorIn

Es ist schwer einzuschätzen, was schwer ist und was nicht.
Zu den Modulen: File::Find hatte ich ausgeschlossen, da die Lösung damit etwas witzlos ist, aber Data::Dumper zum dumpen der Datenstruktur ist ok, da das Ergebnis die Datenstruktur ist, und nicht die Ausgabefunktion.

Aber vielleicht ist meine Sichtweise nicht die richtige.

Ich bin für Rätselzusendungen dankbar, irgendwer hatte mir doch auch schon was geschickt (steve?), das ist bei mir aber nicht angekommen. (Obwohl ich die Spams danach durchsucht habe.)

Wenn die Aufgaben zu einfach sind, reizen sie ev. auch niemanden.\n\n

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

reply with quote

steve

2004-07-12 14:39

User since
2004-03-04
52 articles
BenutzerIn
[default_avatar]

nene ich hatte dir ne Lösung zukommen lassen.
Ich find die Idee aber toll! Ich warte schon auf die nächste :D

steve

btw. hat jemand ne iterative Lösung ohne File::Find?

reply with quote

sri

2004-07-12 15:25

User since
2004-01-29
828 articles
BenutzerIn

[quote=steve,12.07.2004, 12:39]btw. hat jemand ne iterative Lösung ohne File::Find?[/quote]
Ja meine! :)

Code: (dl )

perl -MData::Dumper -e 'do{for(<$_*>){split m[/]and$.=\%.and push@.,"$_/";$.=$.->{$_[$_]}||=$_==$#_?"":{}for 0..$#_;}}while($_=shift@.);&_;sub _{print Dumper\%.}'

http://mojolicio.us/

reply with quote

Crian

2004-07-12 15:29

User since
2003-08-04
5881 articles
ModeratorIn

Ich stelle heute Abend die restlichen Lösungen auch online zum download.

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

reply with quote

steve

2004-07-12 15:35

User since
2004-03-04
52 articles
BenutzerIn
[default_avatar]

[quote=sri,12.07.2004, 13:25][quote=steve,12.07.2004, 12:39]btw. hat jemand ne iterative Lösung ohne File::Find?[/quote]
Ja meine! :)

Code: (dl )

perl -MData::Dumper -e 'do{for(<$_*>){split m[/]and$.=\%.and push@.,"$_/";$.=$.->{$_[$_]}||=$_==$#_?"":{}for 0..$#_;}}while($_=shift@.);&_;sub _{print Dumper\%.}'

[/quote]
ja ok ..

interessante Lösung ???

reply with quote

Taulmarill

2004-07-12 15:40

User since
2004-02-19
1750 articles
BenutzerIn

user image

versuche nicht per -MO=Deparse drauf zu kommen!
daparse löst $.->{$_[$_]} nach $$.{$_[$_]} auf, was dann aber in einem syntax error landet.
perltidy is nen guter ansatz um das zu verstehen (so wie bei allem anderen obfuscated auch)

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

reply with quote

sri

2004-07-12 16:09

User since
2004-01-29
828 articles
BenutzerIn

Scheint meine Lösung wird zum Rätsel der nächsten Woche! :D

http://mojolicio.us/

reply with quote

renee

2004-07-12 16:12

User since
2003-08-04
14371 articles
ModeratorIn

Ist doch gut, so lernt man auch noch zusätzlich was dazu... @Crian: hast Du die Lösung schon ins Wiki gestellt?? Wenn nein, welche soll ich reinschreiben??

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/

reply with quote

Crian

2004-07-12 16:14

User since
2003-08-04
5881 articles
ModeratorIn

Ich kann erst heute Abend die Dateien hochladen, ich sag dann nochmal Bescheid, danke. Hab auch schon Dubu angemsgt wegen Wiki-Passwort...

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

reply with quote

View all threads created 2004-07-08 21:52.