Hallo,

ich habe eine Datei im binären Format. In der Datei steckt irgendwo ne Zeile klartext, und genau die brauche ich. Unter unix benutze ich dazu z.B. Befehl 'strings'. Lösung soll aber Plattform unabhängig funktionieren. Hat jemand eine Idee, wie man das mit Perl am gescheitesten machen kann?

Gruß Alexander

baus halt nach.

wenn du willst, dann paste ich die übrige quelle mal rein :)
ach, ich sehe gerade, die hauptschleife ist knackig kurz ;)

laut strings(1) hat eine zeichenkette mindestens 4 druckbare zeichen und danach kommt ein nicht druckbares.
mit dem modul POSIX müsste es ohne weiteres gehen.

HTH

Unterschied zu strings(1): Es liefert fuer ausfuehrbare Dateien auch Treffer im nicht initialisierten BCC-Teil des Codes, den strings(1) unterdrueckt.

es gibt auch strings für windows!

Quote

es gibt auch strings für windows!

Wirklich? Und wie ruft man die auf? strings in cmd-Fenster funktioniert nicht.:(

Hier gibt es die Perl Power Tools-Implementation von strings. Auch andere Unix-Kommandos sind hier erhaeltlich.

hier downloaden:

http://www.microsoft.com/windows/sfu/downloads/default.asp

danke :)

Ich hab mal ein Modul geschrieben das genau dies macht.
Bei Interesse mail mir einfach.
Bei Gelegenheit kann ich es auch gerne hier posten.

Gruss