Ich suche nach Möglichkeiten, um Dateiprüfsummen in Perl zu erhalten, aber nicht durch Ausführen des Systembefehlscksum - möchte dies in Perl selbst tun, da das Skript zwischen UNIX und Windows portierbar sein muss.cksum <FILENAME> | awk '{ print $1 }' funktioniert unter UNIX, aber offensichtlich nicht unter Windows. Ich habe erforschtMD5 Es scheint jedoch, dass ein Datei-Handle erforderlich ist, und im Allgemeinen scheint es keine sehr kompakte Methode zu sein, um diese Daten abzurufen (Einzeiler bevorzugt).

Gibt es einen besseren Weg?