Perl & RegEx (gelöst) (Allgemeines zu Perl)

[thread]20736[/thread]

Perl & RegEx [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+8 replies
RalphFFM

2020-02-01 17:50
User since
2006-11-16
258 Artikel
BenutzerIn
Hallo Gemeinde,

ich möchte gerne alle im String der Variablen $segmente enthaltenen Zahlen in ein Array schubsen.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#!/usr/bin/perl use strict; use warnings; use Data::Dumper; $Data::Dumper::Useqq = 1; my $segmente = q( "nodes": [ 272447305, 272447306, 272447307, 272447308, 272447305 ]); my @zahlen; @zahlen = $segmente =~ /"nodes": \[\s+(\d+),\n\s+(\d+)/; print Dumper \@zahlen; # => entspricht der Erwartung, die ersten beiden Zahlen landen im Array. @zahlen = $segmente =~ /"nodes": \[(?:\s+(\d+),?\n)+/g; print Dumper \@zahlen; # => klappt nicht. Wieso landet nur die erste Zahl im Array, und nicht alle?
Im voraus Danke für Rat.
- +4 replies
- rosti
  
  2020-02-01 18:26
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  Das Array kriegste mit eckigen Klammern
  
  Code (perl): (dl )
  
  1 2
  
  my $r = [ $segmente =~ /\d+/g ]; puts Dumper $r;
  
  und dem /g Modifier .
  
  MFG
  - +3 replies
  - RalphFFM
    
    2020-02-01 19:10
    User since
    2006-11-16
    258 Artikel
    BenutzerIn
    
    Die eckigen Klammern und die Globalsuche haben das Biest nicht so recht zähmen können. Habe zwischenzeitlich nun eine wie es scheint funktionierende Variante gefunden. Mit dem s-Modifier. Der Kern des Problems war offenbar das "nodes"-Dings am Stringanfang gewesen.
    
    Code: (dl )
    
    1 2
    
    my ($temp) = $segmente =~ /"nodes": \[(.+)\]/s; my @zahlen = $temp =~ /(\d+),?/g;
    - +2 replies
    - rosti
      
      2020-02-02 10:30
      
      User since
      2011-03-19
      3492 Artikel
      BenutzerIn
      
      Kann ich nicht nachvollziehen. Die Rex die ich hier gestern postierte funktioniert auf meiner Kiste einwandfrei.
      
      Schön Sonntag.
      - RalphFFM
        
        2020-02-02 11:15
        
        User since
        2006-11-16
        258 Artikel
        BenutzerIn
        
        Ja, beim beschriebenen Testfall werden die Zahlen rausgefischt. Ok.
        Da der separierte Testfall in einem größeren/längerem Kontext steht, hat mich das dazu bewegt noch weiter zu forschen.
        
        Selbstverständlich Dir vielen Dank!
        Last edited: 2020-02-02 11:26:07 +0100 (CET)
- hlubenow
  
  2020-02-01 20:23
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Ich würde das eher so angehen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
  
  #!/usr/bin/perl use strict; use warnings; sub PythonDictStringToPerlHash { my $s = shift; my @a = split(/:/, $s); my $key = $a[0]; $key =~ s/"//g; $key =~ s/ //g; my $b = $a[1]; $b =~ s/\n//g; $b =~ s/"//g; $b =~ s/\[//g; $b =~ s/\]//g; $b =~ s/ //g; my @vals = split(/,/,$b); my %h; $h{$key} = \@vals; return \%h; } my $segmente = q( "nodes": [ 272447305, 272447306, 272447307, 272447308, 272447305 ]); my %h = %{PythonDictStringToPerlHash($segmente)}; my @hkeys = keys(%h); my @zahlen = @{$h{$hkeys[0]}}; for my $i (@zahlen) { print "$i\n"; }
- +2 replies
- haj
  
  2020-02-01 22:54
  User since
  2015-01-07
  558 Artikel
  BenutzerIn
  2020-02-01T16:50:23 RalphFFM
  
  Code (perl): (dl )
  
  1 2
  
  @zahlen = $segmente =~ /"nodes": \[(?:\s+(\d+),?\n)+/g; print Dumper \@zahlen; # => klappt nicht. Wieso landet nur die erste Zahl im Array, und nicht alle?
  
  Da hast Du Dich mit Deinen Testdaten selber aufs Glatteis geführt.
  Es landet gar nicht die erste Zahl im Array, sondern die letzte. Die beiden sind bei Deinen Testdaten gleich, deswegen sieht man das nicht. Das kommt so:
  
  Der /g-Modifier zieht nicht, denn "nodes": [ kommt nur einmal vor. Du bekommst also auf jeden Fall nur einen Match, mit oder ohne /g.
  Mit der +-Wiederholung wendet Perl immer wieder die Regex in der Klammer an und überschreibt damit das Ergebnis der ersten Capture.
  
  Du hast ja selbst schon eine Lösung gefunden, in der Du den Präfix abspaltest und dann den "wiederholbaren" Teil mit /g durchsuchst.
  - RalphFFM
    
    2020-02-02 10:28
    
    User since
    2006-11-16
    258 Artikel
    BenutzerIn
    
    Oha, tatsächlich.
    
    Mein eingangs erwähntes 2-Zahlen-rauspicken-Pattern
    $segmente =~ /"nodes": \[\s+(\d+),\n\s+(\d+)/;
    hatte mich zu der Annahme verführt, daß eine "(...)+"-Lösung ebenfalls zielführend sein müßte.
    
    Nochmals Danke an alle.

View all threads created 2020-02-01 17:50.