Проблема с кодировками: аргумент командной строки и переменная кодируются по-разному?

для ARGV надо ещё -CA

Ага, спасибо... Работает! :)

Но! Если указать -CSDA, то печатает белиберду вместо кириллицы, а если -CDA, то при use warnings постоянно говорит про wide characters. Как сделать так, чтобы perl перестал быть недовольным выводом wide characters, при этом не отключая warnings'ы совсем?

utf8::decode($str) // utf8::encode($str)

binmode(STDOUT, ":utf8");

Не-а, либо warning'и, либо нет warning'ов, но печатается белиберда. Пока просто отключил warning'и - проблем никаких, кроме того, что какую-то важную проблему в коде могу пропустить из-за этого.

Зачем такой use utf8; Всегда пишу так и в utf-8 локале всё работает.

vitus@s1:~/devel/projects/perl$ cat find_perl.pl 
#!/usr/bin/perl -w
use strict;
my $rt="Аргумент";
print "Великий $rt=$ARGV[0]\n";
opendir (DIR, ".") or die $!;
while (my $file = readdir(DIR)) {
        print "$file\n" if ($ARGV[0] eq $file);
}
print `find . -iname "$ARGV[0]" -print`;
vitus@s1:~/devel/projects/perl$ ./find_perl.pl файл.txt
Великий Аргумент=файл.txt
файл.txt
./файл.txt

у меня не ругается на wide characters:

perl -w -CSDA -Mutf8 -e '$v="ру";$a=$ARGV[0];printf"v($v): %d a($a): %d\n",utf8::is_utf8($v),utf8::is_utf8($a);' яз
v(ру): 1 a(яз): 1

Зачем такой use utf8; Всегда пишу так и в utf-8 локале всё работает.

потому что у Вас не строки, а байты, length($rt) у Вас = 16, а не 8.

У меня дома на Linux Mint'е почему-то тоже нормально выполняется тот кусок кода, который на работе выполняется с warnings'ами по поводу широких символов. Чудные дела твои, Господи. Может, это бага какая-то именно в используемой мной версии Perl'а. Я как завтра на работу приду, попробую ваш кусок кода запустить: он у меня дома тоже отлично работает.

Перед работой с текстом его нужно декодировать:

use Encode::Locale;
use Encode qw(encode decode);

my $characters = decode locale => $bytes;

При чтении текста из файла можно воспользоваться IOLayer'ом:

binmode $read_filehandle, ":decode(locale)";

Вместо автоматического определения кодировки её можно указать вручную (заменить locale на koi8-r в примерах выше, например).

Теперь если попытаться напечатать $characters, они напечатаются в UTF-8 и будет выведен warning «wide characters in ...». Это потому, что символы перед вводом/выводом нужно закодировать обратно в байты:

$new_bytes = encode locale => $characters;

binmode $write_filehandle, ":encode(locale)";

Для текста в UTF-8 можно использовать специальный IOLayer ":utf8", он работает быстрее, потому что внутри Perl символы хранятся в utf-8 и для их печати достаточно снять флаг «characters» со строки. Для декодирования его тоже можно использовать, если уверены, что вход - 100% валидный UTF-8.

(См. также: perldoc Encode::Locale о локалях console_in и console_out; perldoc perlunitut).