Regex match nicht immer: auslesen aus binärer Datei (Allgemeines zu Perl)

[thread]7910[/thread]

Regex match nicht immer: auslesen aus binärer Datei

GwenDragon

2006-04-20 22:04

User since
2005-01-17
14866 Artikel
Admin1

Code: (dl )

sub myReadLine {
    my $fh = shift;
    
    my $s = '';
    while ( sysread( $fh, my $c, 1 ) ) {
        last if ( $c eq "\x0A" or  $c eq "\x0D" );
        $s = $s. $c;
    }
    return $s;
}

open( my $fh, '<', $oldname ) or die "$oldname: $!";
binmode $fh;
while ( my $s = myReadLine( $fh ) ) {
    ($newname) = $s =~ /\/FullName\s+\(([^)]+)\)/;
    last if defined $newname;
}
close ($fh);
    
warn "$oldname: name of font not found!\n" if not defined $newname;

Ich versuche eine Type 1-Datei auszulesen.
Diese ist zeilenweise aufgebaut, hat jedoch auch binäre Inhalt, der nicht interessiert.

Aus irgendeinem Grund match aber nicht bei allen Dateien das Regex.

Woran liegt das?\n\n

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

GwenDragon

2006-04-20 22:12

User since
2005-01-17
14866 Artikel
Admin1

Ich hätte wohl besser

Code: (dl )

1
2

my $s;
while ( defined ( $s = myReadLine( $fh ) ) )

anstatt

Code: (dl )

while ( my $s = myReadLine( $fh ) ) )

schreiben sollen.
Autsch.

/edit +my $s und zweite code-Zeile\n\n

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

renee

2006-04-20 22:58

User since
2003-08-04
14371 Artikel
ModeratorIn

'' ist aber auch defined

Code: (dl )

C:\Renee>perl
my $s = '';
print "yes" if(defined($s));
^D
yes

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Matze

2006-04-20 23:57

User since
2005-08-29
222 Artikel
BenutzerIn

Quote
'' ist aber auch defined

Ich schreibe dann immer:

Code: (dl )

while ($s = ReadLine($fh) && $s !~ /^$/) {

Und wenn Leerzeichen egal sind kannst du ja noch ein \s* mitreinsetzen.

MfG. Matze

Mit freundlichen Grüßen: Matze

GwenDragon

2006-04-21 00:50

User since
2005-01-17
14866 Artikel
Admin1

typischer Flüchtigkeitsfehler beim Programmieren ;)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

Linuxer

2006-04-21 13:27

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

[quote=renee,20.04.2006, 20:58]'' ist aber auch defined

Code: (dl )

C:\Renee>perl
my $s = '';
print "yes" if(defined($s));
^D
yes

[/quote]
'' ist defined wenn Du es direkt verwendest, wie Du es getan hast.
Anders sieht es als Rückgabe einer Funktion aus:

$ perl

Code (perl): (dl )

sub aaa {
  my $s = '';   
  return $s;
}

if ( $bb = aaa() ) {
  print "TRUE\n";
} else {
  print "FALSE\n";
}

^D
FALSE\n\n

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

bloonix

2006-04-21 14:19

User since
2005-12-17
1615 Artikel
HausmeisterIn

Hallo Linuxer,

[quote=Linuxer,21.04.2006, 11:27]'' ist defined wenn Du es direkt verwendest, wie Du es getan hast.
Anders sieht es als Rückgabe einer Funktion aus:

Code (perl): (dl )

sub aaa {
  my $s = '';   
  return $s;
}

if ( $bb = aaa() ) {
  print "TRUE
";
} else {
  print "FALSE
";
}

^D
FALSE[/quote]

da muss ich dir aber widersprechen, da du "defined" nicht
verwendest! Selbst mit Rückgabewert "0" würde bei dir
FALSE rauskommen!

Code: (dl )

sub aaa {
  my $s = '';
  return $s;
}

my $bb;

if ( defined ($bb = aaa()) ) {
  print "TRUE ";
} else {
  print "FALSE ";
}

TRUE

Greez,
opi\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

Linuxer

2006-04-21 14:43

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Der Widerspruch ist akzeptiert. Habe es in der Eile falsch aufgenommen und dementsprechend falsch wiedergegeben.

Im Booleschen Kontext wird '' als FALSE gewertet und der liegt bei if ( $aa ) vor. if ( defined($aa) ) liefert ein anderes Ergebnis, weil hierbei $aa vom defined() geprüft wird.

Greetz,
Linuxer

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

Crian

2006-04-21 15:14

User since
2003-08-04
5878 Artikel
ModeratorIn

Das wär aber auch fatal, wenn '' undef wäre =)

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

bloonix

2006-04-21 15:26

User since
2005-12-17
1615 Artikel
HausmeisterIn

Mal eine Frage an die Profis hier...

Was passiert eigentlich genau bei defined? Worauf wird intern
geprüft, ob eine Variable nun defined ist oder nicht?

Ich möchte mir gerne vorstellen können, was OS/Perl/Speicher
intern abläuft - überprüft wird. Bislang habe ich den Verdacht,
das mit

Code: (dl )

my $var;

nichts weiter passiert, als das die Variable deklariert ist.
Eine Speicheradresse ist noch nicht zugewiesen.

Mit

Code: (dl )

$var = '';

wird dann erstmals eine Speicheradresse zugewiesen.
defined prüft dann, ob eine Variable eine Speicheradresse hat
oder nicht.

Bin ich auf dem richtigen Dampfer oder liege ich da falsch?

Greez,
opi

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

View all threads created 2006-04-20 22:04.