0À» ¿¹·Î µé¾îº¾´Ï´Ù.
0ÀÇ °¹¼ö¸¦ ¼¼´Â ¹æ¹ýÀÌÁÒ.

#!/usr/bin/perl

$i = "1101010001";

$i =~ s/[^0]//g; <--0 ÀÌ¿Ü¿¡´Â ÀüºÎ ¾ø¾Ö ¹ö¸°´Ù.

$len = length($i);

print $len;

À½...Àß µÇ´Â ±º¿ä....^^