Thx, hippo, this syntax gets us started

my @children = $pt->children;

, but it seems to draw me away from Path::Tiny because @children appears to be a bunch of strings. (Progress is having them all there, so yay that.)

children are /home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/caption_filled.gif /home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/за
ва‚ /home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/изоб€ажение /home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/подписи /home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/eugene
dyetya is /home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/caption_filled.gif
dyetya is /home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/захват
Can't locate object method "basename" via package "/home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/захват" (perhaps you forgot to load "/home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/захват"?) at ./7.cw2.pl line 83.
$

I suppose one could pull out File::Basename, but that's a module I'm trying to abrogate.

my @children = $vars{cw}->children;
say "children are @children";

foreach my $child (@children) {
  $child = decode( 'UTF-8', $child );
  say "dyetya is $child";
  next unless -d $child;

  my $base_dir = $child->basename;
  say "base dir is $base_dir";
  $vars{$base_dir} = path($child);
  say "dir is $vars{$base_dir}";

}
Update:

I believe that the Path::Tiny way to do this is using the iterator method:

my $iter = $vars{cw}->iterator;
while ( my $next = $iter->() ) { 
say "next is $next";
my $next_decode   = decode( 'UTF-8', $next );
my $base = $next->basename();
say "base is $base";
my $base_decode   = decode( 'UTF-8', $base );
say "next decode is $next_decode";
say "base decode is $base_decode";
 }

[download]
next is /home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/изоб€ажение
base is изоб€ажение
next decode is /home/bob/2.scripts/pages/7.cw/template_stuff/crosswords/изображение
base decode is изображение

In reply to Re^2: help with cyrillic characters in odd places by Aldebaran
in thread help with cyrillic characters in odd places by Aldebaran

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.