Macintosh Dateien unter Win in Perl einlesen! (Allgemeines zu Perl)

Weman

2005-09-20 12:57

User since
2005-08-10
17 Artikel
BenutzerIn
[default_avatar]

Hallo alle,

ich bekomme eine Macintosh-Datei und soll diese mit Perl einlesen. Das Problem ist, dass die Datei nicht wirklich \n etc.. hat sondern alles in Hex gespeichert wurde.

Kann ich denn eine Datei von Hex umwandeln? Sonst habe ich so große Probleme beim Auslesen der Datei. Benötige für diese Datei einen Parser zum Speichern in einer Datenbank!

Vielen lieben Dank!

J-jayz-Z

2005-09-20 13:32

User since
2005-04-13
625 Artikel
BenutzerIn

perldoc -f pack
perldoc -f unpack

Damit geht es. Oder eben perl-externe tools nutzen

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

Weman

2005-09-20 13:38

User since
2005-08-10
17 Artikel
BenutzerIn
[default_avatar]

Servus,

leider sagt mir das überhaupt nichts!

J-jayz-Z

2005-09-20 13:56

User since
2005-04-13
625 Artikel
BenutzerIn

Was sagt dir nichts? perldoc? Perldoc ist ein Nachschlagewerk für Perl Funktionen/Modulen oder anderen Sachverhalten. Kannst du auf der Kommandozeile aufrufen oder online lesen:
pack,
unpack
ansonsten: perldoc online

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

Crian

2005-09-20 14:45

User since
2003-08-04
5867 Artikel
ModeratorIn

Wenn es Mac OS X ist, dann sind die Dateien im normalen Unixformat. Falls sie von einem früheren Mac OS ist das Format etwas anders. Zu ersterem Fall hatten wir hier schon ausführliche Diskussionen, such mal nach recode...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Weman

2005-09-20 15:02

User since
2005-08-10
17 Artikel
BenutzerIn
[default_avatar]

Hi,

danke schon mal für die Antworten!

Ich mache jetzt da schon wirklich eine Zeit rum in der Arbeit und komme auf keinen Grünen Zweig!

Es ist leider nicht Mac OS X! ich verzweifle jetzt bald wie ich die Datei einfach umwandeln kann und ganz normal unter Windows ausgebe!

Crian

2005-09-20 15:17

User since
2003-08-04
5867 Artikel
ModeratorIn

War es unter Mac eine Textdatei? Wenn ja, dann ist diese mit 0x0d getrennt, nicht mit 0x0d 0x0a wie unter Windows oder mit 0x0a, wie unter Linux üblich. Hilft das?

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Ronnie

2005-09-20 15:29

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Das Zeilenendezeichen des alten Mac OS ist \r, Windows verwendet \r\n und Unix benutzt \n. Wenn du denn Beginn deines Programmes wie folgt abänderst sollte es gehen:

Code: (dl )

1
2

    local $/;
    $/="\r";

Genaueres unter: http://perldoc.perl.org/perlport.html#Newlines

format_c

2005-09-20 16:17

User since
2003-08-04
1706 Artikel
HausmeisterIn

Also wie das sich für mich anhört ist die Datei in UTF-8 codiert.
Mit

Code: (dl )

my $latin_text = Unicode::String::utf8($text)->latin1();

dürfte es dann wieder lesbar sein.

Den ZeilenTrenner auf $/="\015"; müsste aber auch gehen.
Gruß Alex

Effizente Linuxshell

Crian

2005-09-20 17:02

User since
2003-08-04
5867 Artikel
ModeratorIn

[quote=Ronnie,20.09.2005, 13:29]Das Zeilenendezeichen des alten Mac OS ist \r, Windows verwendet \r\n und Unix benutzt \n.[/quote]
Vorsicht ... nicht mit \n diskutieren bitte, siehe andere Threads.

[quote=Crian,20.09.2005, 13:17]War es unter Mac eine Textdatei? Wenn ja, dann ist diese mit 0x0d getrennt, nicht mit 0x0d 0x0a wie unter Windows oder mit 0x0a, wie unter Linux üblich.[/quote]

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite