For Programmers: Free Programming Magazines  


Home > Archive > PERL CGI Freelance > March 2004 > t









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author t
Lado

2004-03-19, 1:26 pm

#!/usr/bin/perl
$n =" \x4a\x61\x20\x73\x61\x6d\x20\x76\x65\x6c
\x69\x20\x69\x20";
$n .=" \x69\x6d\x61\x6d\x20\6d\x61\x6c\x69\x20\
x2a\x56\x65\x64\x72\x61";
$n .="\x6e\x20\x46\x75\x72\x61\x63";
print "$1 $3 $4$2$5 \x3a\x2d\x29\x0A" if ($n =~ /(^.*)(\s.\s.*)([A-Z]{1}\w+
\s([A-Z]{1}(\w+))$/);

Sponsored Links







Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive

Copyright 2008 codecomments.com