Help for this page
use strict; use warnings; ... # outputs a b c a d e undef f g
sub compress { my$x;map{defined($x)?(defined($_)&&($x eq$_)?():($x=$_) +):defined($_)?($x=$_):()}@_; }
www.com | www.net | www.org
No recent polls found