Perl Filesystem Encoding erkennen

[beatovich]

hallo

Tach!

Gibt es in Perl eine Methode, direkt die Kodierung des Dateisystems auszulesen, ohne das OS zu befragen?

Wie befragt man denn das OS nach der Dateisystemkodierung?

Der Fall hier

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

encode_utf8 funkioniert auf meinem win8.1 zufälligerweise.

Ich will aber die für das Filesystem korrekte Kodierung.