Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re^3: Removing unwanted chars from filename.

by haukex (Archbishop)
on Oct 07, 2022 at 06:02 UTC ( [id://11147280]=note: print w/replies, xml ) Need Help??

in reply to Re^2: Removing unwanted chars from filename.
in thread Removing unwanted chars from filename.

I was referring to the fact that the tr simply clobbers all Unicode characters, while Text::CleanFragment uses Text::Unidecode to try to turn them into ASCII:

use warnings;
use strict;
use utf8;
use Text::CleanFragment;

my $s = "Hello.txt";
print clean_fragment($s), "\n";  # prints "Hello.txt"
$s =~ tr/A-Za-z0-9._-//cd;
print "<$s>\n";  # prints "<>" !

(I've actually encountered filenames similar to the above in the wild)

Replies are listed 'Best First'.
Re^4: Removing unwanted chars from filename.
by kcott (Archbishop) on Oct 07, 2022 at 06:29 UTC

    Thanks for the clarification.

    — Ken

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11147280]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (3)
As of 2024-06-19 12:30 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.