Opened by Crian at 2004-12-28 16:15
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Öhm *g
Ich hab bei Active State direkt auf den Webseiten gesucht, Du hast natürlich Recht:
Nun probier ich den Schnippsel von Strat mal aus...
Ich hab bei Active State direkt auf den Webseiten gesucht, Du hast natürlich Recht:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
M:\daten\perl\bgr_kalender\bilder\09>ppm
PPM - Programmer's Package Manager version 3.1.
Copyright (c) 2001 ActiveState Corp. All Rights Reserved.
ActiveState is a devision of Sophos.
Entering interactive shell. Using Term::ReadLine::Stub as readline library.
Type 'help' to get started.
ppm> search Win32::API
Searching in Active Repositories
1. Win32-API [0.41] Perl Win32 API Import Facility
2. Win32-API-OutputDebugString [0.03] OutputDebugString Win32 API support
ppm> install 1
Package 1:
====================
Install 'Win32-API' version 0.41 in ActivePerl 5.8.4.810.
====================
Downloaded 36283 bytes.
Extracting 22/22: blib/arch/auto/Win32/API/Callback/Callback.lib
Installing C:\Perl\site\lib\auto\Win32\API\API.bs
Installing C:\Perl\site\lib\auto\Win32\API\API.dll
Installing C:\Perl\site\lib\auto\Win32\API\API.exp
Installing C:\Perl\site\lib\auto\Win32\API\API.lib
Installing C:\Perl\site\lib\auto\Win32\API\Callback\Callback.bs
Installing C:\Perl\site\lib\auto\Win32\API\Callback\Callback.dll
Installing C:\Perl\site\lib\auto\Win32\API\Callback\Callback.exp
Installing C:\Perl\site\lib\auto\Win32\API\Callback\Callback.lib
Installing C:\Perl\html\site\lib\Win32\API.html
Installing C:\Perl\html\site\lib\Win32\API\Callback.html
Installing C:\Perl\html\site\lib\Win32\API\Struct.html
Installing C:\Perl\html\site\lib\Win32\API\Type.html
Files found in blib\arch: installing files in blib\lib into architecture dependent library tree
Installing C:\Perl\site\lib\Win32\API.pm
Installing C:\Perl\site\lib\Win32\API\Callback.pm
Installing C:\Perl\site\lib\Win32\API\Struct.pm
Installing C:\Perl\site\lib\Win32\API\Type.pm
Successfully installed Win32-API version 0.41 in ActivePerl 5.8.4.810.
ppm>
Nun probier ich den Schnippsel von Strat mal aus...
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
use strict; use warnings; Link zu meiner Perlseite