Test for invalid unicode in file name

[billt-lxSQFCZeNF4 at public.gmane.org]

Hi.

I'm not sure if this will work, but try to match all the valid characters.

if ($filename =~ m/[A-Z][a-z][0-9]/) {
  # do something
}

Just a thought

Bill

 Thu, May 05, 2005 at 10:20:48PM -0400, Madison Kelly wrote:
> Hi all,
> 
>    I've run into a problem where a bulk postgres "COPY..." statement is 
> dieing because one of the lines contains a file name with an invalid 
> unicode character. In nautilus this file has '(invalid encoding)' and 
> the postgres error is 'CONTEXT:  COPY file_info_3, line 228287, column 
> file_name: "Femme Fatal\uffff.url"'.
> 
>    Is there a way in perl (something like 'stat') where I can check to 
> make sure a file name has valid encoding? If there is than I can catch 
> this problem before adding it to, and corrupting, my COPY statement? I 
> already 'quote' the file names first but that didn't catch it.
> 
>    Thanks!
> 
> Madison
> 
> PS - I posted this on TPM for anyone subscribed to there but I didn't 
> get any replies so I am hoping for better luck here. :p
> 
> -- 
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
> Madison Kelly (Digimer)
> TLE-BU, The Linux Experience; Back Up
> http://tle-bu.thelinuxexperience.com
> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
> --
> The Toronto Linux Users Group.      Meetings: http://tlug.ss.org
> TLUG requests: Linux topics, No HTML, wrap text below 80 columns
> How to UNSUBSCRIBE: http://tlug.ss.org/subscribe.shtml
--
The Toronto Linux Users Group.      Meetings: http://tlug.ss.org
TLUG requests: Linux topics, No HTML, wrap text below 80 columns
How to UNSUBSCRIBE: http://tlug.ss.org/subscribe.shtml