spaltenorientierte aufsplittung (Allgemeines zu Perl)

[thread]13703[/thread]

spaltenorientierte aufsplittung

Leser: 24

Articles: hide open all | hide show old branches

+15 replies
jan999

2009-07-07 11:55

User since
2009-04-02
109 Artikel
BenutzerIn

Moin!

ich habe folgende Datenzeile:

T +53.7953465 +009.4032631 06-Jul-09 00:00:00 0

aus dieser sollen die ersten beiden Zahlen (53.7953465 und 009.4032631) OHNE das Vorzeichen extrahiert werden.

Kann mir einer von Euch sagen wie ich spaltenorientiert aufsplitten kann?

Gruß Jan :-)
- pq
  
  2009-07-07 12:13
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  http://p3rl.org/split
  perlretut
  woran haperst denn genau? was hast du schon versucht?
  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
- Crian
  
  2009-07-08 11:46
  
  User since
  2003-08-04
  5873 Artikel
  ModeratorIn
  
  Das solltest du doch inzwischen selbst hinkriegen.
  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
- +6 replies
- RPerl
  
  2009-07-08 12:57
  User since
  2006-11-26
  384 Artikel
  BenutzerIn
  Vielleicht so aehnlich?
  
  Code: (dl )
  
  $str =~ m/^T \+(.*) \+(.*) \d+-\w+-\d+ \d+:\d+:\d+ \d+/; print $1, " ", $2
  
  Leider weiss ich nicht, wie ich das letzte (.*) dazu bekomme, nicht so gierig zu sein und die komplette restliche Zeile mitzunehmen. (.*?) ging leider nicht...
  - +4 replies
  - nepos
    
    2009-07-08 13:27
    
    User since
    2005-08-17
    1420 Artikel
    BenutzerIn
    
    Statt (.*) vielleicht (\S)+?
    - +3 replies
    - RPerl
      
      2009-07-08 20:19
      
      User since
      2006-11-26
      384 Artikel
      BenutzerIn
      
      2009-07-08T11:27:05 nepos
      Statt (.*) vielleicht (\S)+?
      
      Hat geklappt, obwohl ich mich frage wie das ueberhaupt geht, weil lt. perlre:
      
      "\S Match a non−whitespace character"
      
      Matcht das *alles* was non-whitespace ist oder wie?
      - +2 replies
      - nepos
        
        2009-07-08 20:22
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Genau dieses. Du wolltest ja das die Zahlen, die hinter den Plus stehen. Der Trenner ist ein Leerzeichen/Tab. Drum kannst du einfach sagen, ich will alle nicht-Whitespace-Zeichen, die hinter dem + kommen. Ansonsten kanns dir passieren, dass du auch eventuelle Leerzeichen matched, falls da mehr als das eine steht, das du da in deinem Beispiel hattest.
        
        RPerl
        
        2009-07-08 20:25
        
        User since
        2006-11-26
        384 Artikel
        BenutzerIn
        
        Ah ok. Das hab ich kapiert.
        Danke fuer die Hilfe - schoenen Abend dir noch! :-)
  - renee
    
    2009-07-08 13:41
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Mit split ist es viel besser, wie pq ja schon gesagt hat. Außerdem ist es eher ungeschickt, den Regulären Ausdruck länger zu machen als notwendig, da hier die Regexp Engine evtl. mehr Backtracking machen muss als unbedingt notwendig.
    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/
- +6 replies
- Gast styx-cc
  
  2009-07-08 13:31
  So in der Art wuerde ich es machen:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #!/usr/bin/perl use strict; use warnings; my $cut_first = sub { substr($_[0], 1, length($_[0])) }; my (undef, $nr1, $nr2) = split(/ /, <DATA>); print &$cut_first($nr1) ."\n"; print &$cut_first($nr2) ."\n"; __DATA__ T +53.7953465 +009.4032631 06-Jul-09 00:00:00 0
  
  MfG
  - renee
    
    2009-07-08 13:46
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Guest styx-cc
    So in der Art wuerde ich es machen:
    
    Code: (dl )
    
    my $cut_first = sub { substr($_[0], 1, length($_[0])) };
    
    Das length... ist hier unnötig. Wenn nur 2 Argumente an substr übergeben werden, geht perl automatisch bis zum Ende des Strings.
    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/
  - +4 replies
  - Linuxer
    
    2009-07-08 13:52
    
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    Hi,
    
    warum so kompliziert, wenn es schon alleine mit einem split funktioniert?
    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!
    - +3 replies
    - styx-cc
      
      2009-07-08 14:02
      
      User since
      2006-05-20
      533 Artikel
      BenutzerIn
      
      Wie bekommst du mit einem split gleichzeitig auch die Vorzeichen weg?
      Pörl.
      - +2 replies
      - pq
        
        2009-07-08 14:14
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Code (perl): (dl )
        
        my (undef, $x, $y) = split / \+?/, $s;
        
        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
        
        styx-cc
        
        2009-07-08 14:17
        
        User since
        2006-05-20
        533 Artikel
        BenutzerIn
        
        Interessant!
        Sieht ja so aus als ob nach mehreren verschiedenen Zeichen aufgespaltet werden kann, ich muss mir split noch mal amgucken..
        
        edit: blödsinn, mir faellt jetzt erst auf, das dass n regulärer ist
        Last edited: 2009-07-08 14:19:33 +0200 (CEST)
        Pörl.

View all threads created 2009-07-07 11:55.