Perl Filesystem Encoding erkennen

[beatovich]

hallo

hallo

ich weiß immer noch nicht was Du da machst.

			while (readdir $h) {
				$_ =~ /[^A-Za-z0-9_.-]/ and warn($_);

gibt aus:

[Sat Oct 27 16:29:29 2018] kissedit.pl: musik-noten-fr-gitarre.html at C:/Users/Beat/Documents/beat-stoecklin.ch/html/pl/kissedit.pl line 115.
[Sat Oct 27 16:29:29 2018] kissedit.pl: הצ@€.txt at C:/Users/Beat/Documents/beat-stoecklin.ch/html/pl/kissedit.pl line 115.

HEX zu 1. Datei: 6D7573696B2D6E6F74656E2D66EFA295722D676974617272652E68746D6C

HEX zu 2. Datei: D794D7A6EFA29540E282AC2E747874