Help for this page
my $padding = 8 - ($str % 8);
substr $arr[-1], -$padding, $padding, q{} if $padding;
my $padding = 8 - (length($str) % 8);
$ perl -le '$str = q{abc}; $pad = $str % 8; print $pad;' 0 $ perl -le '$str = q{abcdefghijkl}; $pad = $str % 8; print $pad;' 0 $
www.com | www.net | www.org
No recent polls found