Q2) How do I convince Path::Tiny to give me all these paths?
use strict;
use warnings;
use utf8;
use Test::More tests => 2;
use Path::Tiny;
use Encode ('decode');
my $dir = '/tmp/foo';
mkdir $dir unless -d $dir;
mkdir "$dir/eugene" or die $!;
mkdir "$dir/захват" or die $!;
my $pt = path ($dir);
my @children = $pt->children;
is (decode ('UTF-8', "$children1"), "$dir/eugene");
is (decode ('UTF-8', "$children[0]"), "$dir/захват");
$pt->remove_tree;
Your environment may use some other collation but the above works just fine for me.
(PS. You will have to fix up the line of the first test to put the square brackets back in. <pre> required as usual for the UTF-8 strings.)
In reply to Re: help with cyrillic characters in odd places
by hippo
in thread help with cyrillic characters in odd places
by Aldebaran
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |