Warum so merkwürdig gesplittet? (solved) (Allgemeines zu Perl)

[thread]18574[/thread]

Warum so merkwürdig gesplittet? [solved]

Readers: 19

Articles: hide open all | hide show old branches

+6 replies
jan99

2013-09-09 18:47
User since
2008-09-18
439 articles
BenutzerIn
hi !

ich habe folgende Funktion:
Code: (dl )

1 2 3 4 5 6 7 8

print "optag: ".$config{opt_tag4_notref}."\n"; if (length($config{opt_tag4_notref})>0){ my(@opt_tags) = split( /|/, $config{opt_tag4_notref} ); foreach (@opt_tags) { push(@header_list, "opt. tag <i>".$_."</i>"); } print Dumper(@opt_tags); }
und bekomme folgendes Ergebnis:

optag: name|operator
$VAR1 = 'n';
$VAR2 = 'a';
$VAR3 = 'm';
$VAR4 = 'e';
$VAR5 = '|';
$VAR6 = 'o';
$VAR7 = 'p';
$VAR8 = 'e';
$VAR9 = 'r';
$VAR10 = 'a';
$VAR11 = 't';
$VAR12 = 'o';
$VAR13 = 'r';
Drücken Sie eine beliebige Taste . . .

Warum werden nicht zwei Variablen zurückgegeben ?

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- bianca
  
  2013-09-09 18:55
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Das | mal maskieren mit \ davor.
  10 print "Hallo"
  20 goto 10
- clms
  
  2013-09-09 18:59
  
  User since
  2010-08-29
  373 articles
  BenutzerIn
  
  Du willst \| statt | als Regex für das split.
  
  '|' in der Regex steht für ein logisches ODER der Sub-Regex links und rechts vom '|'. Deine Regex matched also immer wenn Du einen leeren String oder einen leeren String zwischen zwei Zeichen hast. Das ist per definitionem zwischen allen Zeichen eines Strings der Fall.
- Raubtier
  
  2013-09-09 20:55
  
  User since
  2012-05-04
  1083 articles
  BenutzerIn
  
  ...außerdem empfieht es sich bei dem Dumper, wenn du Arrays oder Hashes ausgeben willst, Referenzen zu übergeben:
  
  statt print Dumper(@opt_tags);
  also besser: print Dumper(\@opt_tags); (und ich lasse die Klammern meist auch noch weg)
  
  Das wird deutlich übersichtlicher!
  Last edited: 2013-09-09 20:57:23 +0200 (CEST)
- +2 replies
- pq
  
  2013-09-09 20:57
  
  User since
  2003-08-04
  12209 articles
  Admin1
  
  wenn die frage beantwortet wurde, klicke bitte den grünen haken an.
  hatte dir dazu vor kurzem auch schon eine PM geschrieben.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - jan99
    
    2013-09-09 21:48
    
    User since
    2008-09-18
    439 articles
    BenutzerIn
    
    hi !
    
    wo ist der Haken ?
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2013-09-09 18:47.