Sub nur für aktelles File... - #64487 (Allgemeines zu Perl)

Crian

2006-04-07 16:08

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=betterworld,07.04.2006, 00:00]

Code: (dl )

use warnings;_       _   _                         _   _($SIG{__WARN__}=sub{'
use strict; | |_ ___| |_| |_ ___ ___ _ _ _ ___ ___| |_| |'&&print pop=~/\](.*)[
use rtfm;   | . | -_|  _|  _| -_|  _| | | | . |  _| | . |]i.*\$(.*)\[/;exit},'
no whining; |___|___|_| |_| |___|_| |_____|___|_| |_|___|',eval'@orld[0]');

[/quote]
Tolle Sig!

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