|
|
|
|
Thread Tools | Display Modes |
|
|
Apr 13th, 2005, 12:41 AM
|
#1 |
|
Newbie
Join Date: Apr 2005
Posts: 3
Rep Power: 0
 |
can anyone explain the script to me?thanks!
#!/usr/bin/perl
print while $_=$_{$_}; $_='OTcommailDngATghiliaguans'; 1 while s/(.{5})(.{5})?/$_{$2}=$1,$2/e; print while $_=$_{$_}; |
|
|
| Bookmarks |
| Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
| Display Modes | |
|
|
Threaded Mode