看不懂。谢了。

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

大师的作品　　　　　　

复制内容到剪贴板

代码:

[color=blue][user@host tmp] $ [/color]cat foo.pl
#!/usr/bin/perl

$_ = 'OTcommailDngATghiliaguans';
1 while s/(.{5})(.{5})?/$_{$2}=$1,$2/e;
print while $_ = $_{$_};
[color=blue][user@host tmp] $ [/color]./foo.pl
guanshiliangATgmailDOTcom

　　　　　　

[QUOTE=fallingleaf]看不懂。谢了。

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


这其实就是下面这一段代码
my $string5='OTcommailDngATghiliaguans';
print join('',reverse (unpack ('A5'x (length ($string5)/5),$string5)));
其运行结果是一样的