Namen aus String extrahieren (gelöst) (Allgemeines zu Perl)

[thread]16156[/thread]

Namen aus String extrahieren [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+12 replies
hugenyn

2011-04-05 12:50
User since
2010-10-05
65 Artikel
BenutzerIn
Folgende Textzeilen sollen eingelesen werden.

Quote
Name1 2005 5 112 165 198 287 814.7 910
Name2, W. 2005 4 127 162 193 279 314 430
Name3 Vorname 2006 8 110 192 282 314.3 870

Der Namensteil am Anfang des Strings soll das erste Element eines Arrays sein.
Das/die Leerzeichen zwischen dem Namen und der folgenden Zahl sollen eliminiert werden (in der Datei können Tabs und mehrfache Leerzeichen vorkommen).
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

while (<RE>) { chomp; s/\s+/ /g; /[A-Za-z]*\,?\s?[A-Za-z]*\.? /; my @felder = split / /,$'; (my $str = $&) =~ s/\s+$//; unshift(@felder,$str); push(@daten,\@felder); } close RE;
Der Code funktioniert, aber - es geht doch gewiss eleganter?
Last edited: 2011-04-05 13:11:38 +0200 (CEST)
- +3 replies
- rosti
  
  2011-04-05 15:19
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  Angenommen, das Jahr ist immer vierstellig:
  
  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
  
  use warnings; use strict; my $res = []; while(my $line = <DATA>){ chomp $line; $line =~ /^(.*)\s+(\d{4})\s+(.*)$/; # Name in $1, Jahr in $2 my @meta = split /\s+/, $3; # splitte den Rest push @$res, [$1, $2, @meta]; } foreach my $r(@$res){ printf "Name: %s, Jahr: %u, Monat: %u \n", $r->[0], $r->[1], $r->[2]; } __END__ Name1 2005 5 112 165 198 287 814.7 910 Name2, W. 2005 4 127 162 193 279 314 430 Name3 Vorname 2006 8 110 192 282 314.3 870
  
  Rolf
  - Taulmarill
    
    2011-04-05 16:13
    
    User since
    2004-02-19
    1750 Artikel
    BenutzerIn
    
    Wenn einer der Zahlenwerte vierstellig ist, ist dein Regex in Zeile 7 nicht richtig. Das erste (.*) ist dann zu gierig und sollte durch (.*?) ersetzt werden.
    $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - topeg
    
    2011-04-05 19:47
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Ich würde noch abfragen, ob die Zeile trifft:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    while(my $line = <DATA>) { chomp $line; my @data; if( @data = $line =~ /^(.*?)\s+(\d{4})\s*(.+?)\s*$/ and push(@data,split(/\s+/,pop(@data))) > 8 ) { push @$res, \@data; } else { warn(qq(line "$line" not martch!\n))} }
- +4 replies
- moritz
  
  2011-04-05 15:41
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Code: (dl )
  
  1 2 3
  
  my ($name, $date, $rest) = split /\s+(\d+)\s+/; my @rest = split ' ', $rest; push @daten, [$name, $date, @rest];
  
  Perl 6 - Perls Zukunft
  - +3 replies
  - hugenyn
    
    2011-04-05 19:23
    User since
    2010-10-05
    65 Artikel
    BenutzerIn
    
    @moriz
    
    Code (perl): (dl )
    
    1 2 3
    
    my ($name, $date, $rest) = split /\s+(\d+)\s+/; my @rest = split ' ', $rest; push @daten, [$name, $date, @rest];
    
    Name und date werden korrekt abgetrennt.
    Der String $rest enthält aber nur die erste Zahl des Reststrings ?
    
    modedit Editiert von GwenDragon: Code-Tags repariert
    Last edited: 2011-04-05 19:35:08 +0200 (CEST)
    - +2 replies
    - moritz
      
      2011-04-06 09:57
      
      User since
      2007-05-11
      923 Artikel
      HausmeisterIn
      
      Tja, ich sollte meinen Code auch testen :-). So gehts:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      use Data::Dumper; while (<DATA>) { my ($name, $date, $rest) = split /\s+(\d{4})\s+/, $_, 3; my @rest = split ' ', $rest; print Dumper [$name, $date, @rest]; } __DATA__ Name1 2005 5 112 165 198 287 814.7 910 Name2, W. 2005 4 127 162 193 279 314 430 Name3 Vorname 2006 8 110 192 282 314.3 870
      
      Perl 6 - Perls Zukunft
      - hugenyn
        
        2011-04-06 11:27
        
        User since
        2010-10-05
        65 Artikel
        BenutzerIn
        
        Danke.
        Es geht übrigens auch so einwandfrei:
        
        Code (perl): (dl )
        
        1 2
        
        my ($name, $date, @rest) = split /\s+(\d+)\s+/; push @daten, [$name, $date, @rest];
        
        Gruß.
- +4 replies
- Taulmarill
  
  2011-04-05 16:13
  
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  
  Bist du dir sicher, dass der Code richtig funktioniert? "Name1" wird nämlich wegen der Ziffer nicht als Name erkannt. Soll das so sein?
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +2 replies
  - rosti
    
    2011-04-05 16:36
    
    User since
    2011-03-19
    3472 Artikel
    BenutzerIn
    
    2011-04-05T14:13:52 Taulmarill
    Bist du dir sicher, dass der Code richtig funktioniert? "Name1" wird nämlich wegen der Ziffer nicht als Name erkannt. Soll das so sein?
    
    Code ist getestet und auch Name1 wird erkannt. Unter der Voraussetzung, dass eine Annahme unter bestimmten Bedingungen gültig ist ;)
    
    --rosti
    - Taulmarill
      
      2011-04-05 16:50
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Dir ist aber schon klar, das ich nicht auf deinen Post sondern auf den OP geantwortet habe, oder?
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - hugenyn
    
    2011-04-05 17:36
    User since
    2010-10-05
    65 Artikel
    BenutzerIn
    
    Quote
    Soll das so sein?
    
    Nein, Entschuldigung!
    Die echten Namen enthalten bisher keine Ziffern.
    
    Obwohl ich jetzt bemerke, dass "militärisch" Meier1 vorsichtshalber auch möglich sein sollte.
    
    Ich danke Euch für die lehrreichen Tipps.
    
    Ich habe nun dieses verwendet und bin zufrieden:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    my @daten; while(my $line = <RE>) { chomp $line; $line =~ /^(.*?)\s+(\d{4})\s+(.*)$/; # Name in $1, Jahr in $2 my @meta = split /\s+/, $3; # splitte den Rest push @daten, [$1, $2, @meta]; } close RE; &rech(@daten); # zur Auswertung
    
    Last edited: 2011-04-05 23:12:38 +0200 (CEST)

View all threads created 2011-04-05 12:50.