Wie bekomme ich Werte aus Zeichenketten (gelöst) - #181829 (Allgemeines zu Perl)

jan99

2015-08-18 12:01

User since
2008-09-18
439 Artikel
BenutzerIn
[default_avatar]

Moin!

soweit so gut und auch erst einmal ein Dankeschön dafür.

Jetzt muss ich aber wieder einmal etwas ausholen, weil ich wohl etwas mit dem ($wert) vermutlich nicht verstanden habe.

Am Anfang habe ich folgendes schon einmal definiert:

Code (perl): (dl )

my %cuix=(
  macro_type=>'',
  type=>'',
  UID=>'', # Verknüpfungselement zwischen den Ribbons und der Ribbon-Gruppe
  name=>'',
  command=>'',
  SmallImage=>'',
  LargeImage=>'',
);

Jetzt kommt es zu Prüfungen mit unerwarteten Ergebnissen.

Fall 1:

Code (perl): (dl )

  print "Data: ".$_."\n";
  if(index($_,"<MenuMacro") == 0){
    print "\n\n---- Befehl anfang ----\n" if $config{debug} == 1;
    $cuix{UID} = $_ =~ m|<.*UID="([\da-zA-Z.]+)"[^>]+>|i;
    print "UID: ".$cuix{UID}."\n";
    $count_block_start++;
    }

Das Ergebnis ist dann leer - obwohl UID vorliegt wie das Protokoll zeigt:

Quote
Data: <MenuMacro UID="MM_2316">
Suche MenuMacro: 0
---- Befehl anfang ----
UID:

Fall 2:

Code (perl): (dl )

  elsif (index($_,"<SmallImage") == 0){
    print "SmallImage gefunden!: ".$_."\n";
    $cuix{SmallImage} = $_ =~ m|<.*Name="([\da-zA-Z.]+)"[^>]+>|i;
    print "SmallImage: ".$cuix{SmallImage}."\n";
  }

Wenn eine .bmp gefunden wird, dann bekomme ich immer nur eine 1:

Fall 2a:

Quote
LargeImage gefunden!: <LargeImage Name="ICBJ0117.bmp" />
LargeImage: 1

Wenn ein anderer Begriff vorkomme wie jetzt, dann ist das gar leer:

Fall 2b:

Quote
SmallImage gefunden!: <SmallImage Name="RCDATA_16_ZOOPRE" />
SmallImage:

Der Punkt ist doch nicht zwingend oder ???

Vermutlich liegt mein Fehler in der Übergabe - aber auf der anderen Seite bei Command funktioniert das?!?!?!

Jetzt stehe ich mal wieder im Wald und sehe die Bäume nicht !!!

Gruß Jan

perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de