Избавиться от предупреждения

[vika]

Собственно, здравствуйте. Заранее извиняюсь, если кому-то уже надоела, но тем не менее, прошу помощи...
Дело то вот в чем. Понадобилось раскодировать base64, стандартный mime:base64 не раскодировал толком utf-8, мучилась с encode, decode, в результате плюнула и написала небольшую функцию для раскодировки base64 (по аналогии с javascript)

Код: (Perl)

sub base64decode {

my ($str) = @_;
             
$b64chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_';
$b64decoded = '';

for ($i = 0; $i < length $str;) {
$enc1 = index ($b64chars,substr($str, $i++, 1));
$enc2 = index ($b64chars,substr($str, $i++, 1));
$enc3 = index ($b64chars,substr($str, $i++, 1));
$enc4 = index ($b64chars,substr($str, $i++, 1));

$chr1 = ($enc1 << 2) | ($enc2 >> 4);
$chr2 = (($enc2 & 15) << 4) | ($enc3 >> 2);
$chr3 = (($enc3 & 3) << 6) | $enc4;

$b64decoded = $b64decoded . chr($chr1);

if ($enc3 < 64) {
$b64decoded .= chr($chr2);
}

if ($enc4 < 64) {
$b64decoded .= chr($chr3);
}
}
return $b64decoded;
}

При использовании опции -w, перл недовольно ворчит предупреждением, дескать, вот тут

Код: (Perl)

$enc4 = index ($b64chars,substr($str, $i++, 1));

мы вышли за строку. Как так, ума не приложу, хотя скрипт отрабатывает, как надо. Подскажите, в чем дело, пожалуйста.

[RXL]

По моему диагноз ясен. Твой код не будет выдавать предупреждение только с входной строкой кратной четырем.

Нет, не надоела, но грустно смотреть на такое. Руки надо выпрямлять, а голову — просвещать!
Может лучше вернемся к «стандартный mime:base64 не раскодировал толком utf-8» и «мучилась с encode, decode» — это куда более интересная тема?

[vika]

По моему диагноз ясен. Твой код не будет выдавать предупреждение только с входной строкой кратной четырем.

Странно, в дваскрипте такого нету. Хотя, этот мой "быдлокод" неплохо выполняет свою задачу, а прагму -w можно и отключить

Нет, не надоела, но грустно смотреть на такое. Руки надо выпрямлять, а голову — просвещать!
Может лучше вернемся к «стандартный mime:base64 не раскодировал толком utf-8» и «мучилась с encode, decode» — это куда более интересная тема?

Спасибо, толкьо стандартный base64 почему то упорно не работает c utf8, толком объяснений нет нигде, вот и пришлось изворачиваться...

[RXL]

Давай теперь подробно разберем. От тебя нужно:

1. Код с mime:base64.
2. Пример входной строки.
3. Пример выходной строки, как она у тебя получается.
4. Пример выходной строки, как ты ее ожидаешь видеть.

[Sla]

RXL, я посчитал, там 64 символа, может я ошибся..
Тут вопрос тогда след
for ($i = 0; $i < length $str;) {
$enc1 = index ($b64chars,substr($str, $i++, 1));
Здесь чему i равно
$enc2 = index ($b64chars,substr($str, $i++, 1));
А здесь?
$enc3 = index ($b64chars,substr($str, $i++, 1));
А здесь?

$enc4 = index ($b64chars,substr($str, $i++, 1));
А здесь?