Question

I have this code:

opendir(DIR, ".");
while (readdir DIR) {
  print $1, "\n" if $_ =~ /(\w+)/i;
}

It gets only ASCII strings of course. How can I get another non ASCII strings in output with using regexp?

UPD

For example if in “.” directory there are two files file and другойфайл. So when I run this script I get only file in the output but I’d like to get another file with non English name другойфайл

Answer 1

The following code seems to work:

use warnings;
use strict;
use Encode qw(decode);

my $dir = $ARGV[0] || '.';
opendir my $dh, $dir  or die "$0: $dir: $!\n";
while (readdir $dh) {
    $_ = decode 'UTF-8', $_;
    print $1, "\n" if /(\w+)/;
}

This assumes your file system stores names in UTF-8, of course.

Output:

file
другойфайл