Perl-Sensitive Sunglasses | |
PerlMonks |
Re^2: inclusive randby msh210 (Monk) |
on Mar 13, 2017 at 14:24 UTC ( [id://1184424]=note: print w/replies, xml ) | Need Help?? |
Thanks. That's roughly what others have answered.
$_="msh210";$"=$\;@_=@{[split//,uc]}[2,0];$_="@_$\1";$\=$/;++$_[0]for$...1;print lc substr crypt($_,"@_"),1,6
In Section
Seekers of Perl Wisdom
|
|