История изменений
Исправление vtVitus, (текущая версия) :
Зачем такой 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
Исправление vtVitus, :
Зачем такой 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
Исходная версия vtVitus, :
Зачем такой use utf8; Всегда пишу так и в utf-8 локале всё работает.
vitus@s1:~/devel/projects/perl$ cat find_perl.pl
#!/usr/bin/perl -w
use strict;
print "Аргумент=$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