Perl Filesystem Encoding erkennen

[beatovich]

hallo

ohne encode

				if( $file =~ /\.(?:$filetypes)$/ && -f $file && -r $file ){
#					$list.= encode("utf8",  
					$list.=  
						sprintf(qq{<option value="%s/%s">%s/%s  [%s]</option>\n}, 
							$f, $_ , $f, $_ ,
							( -w $file ? '+r+w' : '+r')
					); 
				}

ergebnis: äöü.txt not found

mit encode

				if( $file =~ /\.(?:$filetypes)$/ && -f $file && -r $file ){
					$list.= encode("utf8",  
#					$list.=  
						sprintf(qq{<option value="%s/%s">%s/%s  [%s]</option>\n}, 
							$f, $_ , $f, $_ ,
							( -w $file ? '+r+w' : '+r')
					)); 
				}

ergebnis: äöü.txt found

Wenn ich aber in der Datei ein € im Namen habe, schlägt beides fehl.

Du bist dran.