Den obigen Text mit den Regeln und der Aufgabe findet man
>>> hier <<< nochmal zum download.
Ich habe auch nochmal eine Testsuit erzeugt (ein Verzeichnisbaum mit leeren Dateien), den man
>>> hier <<< herunterladen kann.
Es handelt sich dabei um die Datei
rdw01_testsuit.tgz mit folgender Größe und Inhalt:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
crian@blitz:~/perl/rdw/rdw01> ls -l rdw01_testsuit.tgz
-rw-r--r-- 1 crian users 345 2004-07-08 22:24 rdw01_testsuit.tgz
crian@blitz:~/perl/rdw/rdw01> tar tvzf rdw01_testsuit.tgz
drwxr-xr-x crian/users 0 2004-07-08 22:04:02 rdw01_testsuit/
drwxr-xr-x crian/users 0 2004-07-08 22:03:56 rdw01_testsuit/dir1/
drwxr-xr-x crian/users 0 2004-07-08 22:03:17 rdw01_testsuit/dir1/subdir1.1/
-rw-r--r-- crian/users 0 2004-07-08 22:03:13 rdw01_testsuit/dir1/subdir1.1/file1.1.1
-rw-r--r-- crian/users 0 2004-07-08 22:03:17 rdw01_testsuit/dir1/subdir1.1/file1.1.2
drwxr-xr-x crian/users 0 2004-07-08 22:03:22 rdw01_testsuit/dir1/subdir1.2/
-rw-r--r-- crian/users 0 2004-07-08 22:03:22 rdw01_testsuit/dir1/subdir1.2/file1.2.1
drwxr-xr-x crian/users 0 2004-07-08 22:02:57 rdw01_testsuit/dir1/subdir1.3/
-rw-r--r-- crian/users 0 2004-07-08 22:03:52 rdw01_testsuit/dir1/file1.1
-rw-r--r-- crian/users 0 2004-07-08 22:03:54 rdw01_testsuit/dir1/file1.2
-rw-r--r-- crian/users 0 2004-07-08 22:03:56 rdw01_testsuit/dir1/file1.3
-rw-r--r-- crian/users 0 2004-07-08 22:04:00 rdw01_testsuit/file1
-rw-r--r-- crian/users 0 2004-07-08 22:04:01 rdw01_testsuit/file2
-rw-r--r-- crian/users 0 2004-07-08 22:04:02 rdw01_testsuit/file3
Lustig, ich meinte doch mich irgendwoher an das oben verwendete Format zur Beschreibung der Dateien zu erinnern, habe es aber einfach so hingeschrieben, es stimmt aber mit tar's Ausgabe überein =)\n\n
<!--EDIT|Crian|1089318551-->
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