Re^2: Contacting the author of a module?

Replies are listed 'Best First'.
Re^3: Contacting the author of a module? by BernieC (Pilgrim) on Jan 07, 2023 at 00:30 UTC
I expect that none of you really care about this or will run into this problem, but y'all were so helpful as I wandered on my fool's errand I'd like to share the end result of it. You might be amused at the way I got rid of the Unicode characters.. :o) #!/usr/bin/perl # Remove the Unicode characters from file names # $Id: removeunicode.pl 1.2 2023/01/07 00:21:49 bernie Exp $ use v5.10 ; use strict; use warnings ; use Getopt::Std ; # getopts(<flags>, \%args) ; my %args ; use Win32::LongPath ; getopts("v", \%args) or Usage(); sub Usage { die "Usage: removeunicode [-v] <DIR>\n" ; } my $dir = $ARGV[0] ; Usage() unless $dir ; chdir $dir or die "can't connect to $dir: $!\n" ; trace("connected to $dir") ; my $d = Win32::LongPath->new() ; $d->opendirL(".") or die "Can't open $dir: $!\n" ; for my $file ($d->readdirL($d)) { my $fixedfile = sanitize($file) ; next if $fixedfile eq $file ; # No unicode this filename trace("working on $file") ; trace("changing to $fixedfile") ; renameL($file, $fixedfile) or die "didn't rename! $!"; } exit ; #Remove all the unicode characters from a string sub sanitize { my $unicode = $_[0] ; my $ascii ; for my $char (split(//, $unicode)) { $ascii .= $char if ord($char) < 256 } return $ascii; } sub trace { say $_[0] if $args{v} } [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Contacting the author of a module?
by BernieC (Pilgrim) on Jan 07, 2023 at 00:30 UTC

#!/usr/bin/perl

# Remove the Unicode characters from file names

# $Id: removeunicode.pl 1.2 2023/01/07 00:21:49 bernie Exp $

use v5.10 ;
use strict;
use warnings ;
use Getopt::Std ;  # getopts(<flags>, \%args) ;
my %args ;
use Win32::LongPath ;   

getopts("v", \%args) or Usage();

sub Usage
{   die "Usage: removeunicode [-v] <DIR>\n" ; }

my $dir = $ARGV[0] ;
Usage() unless $dir ;

chdir $dir or die "can't connect to $dir: $!\n" ;
trace("connected to $dir") ;

my $d = Win32::LongPath->new() ;
$d->opendirL(".") or die "Can't open $dir: $!\n" ;
for my $file ($d->readdirL($d))
{   my $fixedfile = sanitize($file) ;
    next if $fixedfile eq $file ;  # No unicode this filename
    trace("working on $file") ;
    trace("changing to $fixedfile") ;
    renameL($file, $fixedfile) or die "didn't rename! $!";
}
exit ;

#Remove all the unicode characters from a string
sub sanitize
{   my $unicode = $_[0] ;
    my $ascii ;
    for my $char (split(//, $unicode)) 
    {   $ascii .= $char if ord($char) < 256  }
    return $ascii; 
}

sub trace
{   say $_[0] if $args{v} }
[download]

[reply]
[d/l]