Select Code to Download

PPCODE:
    int i;
    f();

PREINIT:
    int i;
PPCODE:
    f();

PPCODE:
    {
        int i;
        f();
    }

say lengths1(substr("abc", 0, 1));  # 0

say lengths1("abc");  # 16

$_="\x{A0}";               say lengths1($_), "=", length($_);  # 1=1
$_="\x{A0}\x{2660}"; chop; say lengths1($_), "=", length($_);  # 2=1

say lengths1(456), "=", length(456);  # 0=3