Programming Forums - View Single Post - can anyone explain the script to me?thanks!

lunarny · Apr 13th, 2005, 12:41 AM

#!/usr/bin/perl
print while $_=$_{$_};
$_='OTcommailDngATghiliaguans';
1 while s/(.{5})(.{5})?/$_{$2}=$1,$2/e;
print while $_=$_{$_};

Apr 13th, 2005, 12:41 AM	#1
lunarny 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 $_=$_{$_};