Betrag aus Variabler extrahieren (Allgemeines zu Perl)

[thread]14244[/thread]

Betrag aus Variabler extrahieren

Leser: 23

Articles: hide open all | hide show old branches

+10 replies
Gast Knowbody

2009-11-11 17:57

Hallo Experten,
wie kann ich aus einer Variablen die z.B. "€ 1,84" enthält nur die nackte Zahl extrahieren, gleichzeitig jedoch das Dezimalkomma in einen Punkt umwandeln, sodass nur noch "1.84" übrig bleibt?
Ich danke sehr für hilfreiche Tipps
Knowbody
- +6 replies
- lichtkind
  
  2009-11-11 18:03
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  Code (perl): (dl )
  
  tr/,€ /./d
  
  sollte es tun. tr ist oftmals wesentlich schneller als echte regex. das d am ende sagt das buchstaben die nicht übersetzt (TRansalted) werden halt weggeschnitten (Delete) werden.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - +4 replies
  - lichtkind
    
    2009-11-11 18:04
    
    User since
    2004-03-22
    5697 Artikel
    ModeratorIn + EditorIn
    
    ui sieht aus als haben wir hier UTF problem oder nur mein browser?
    Tutorien in der Wiki, mein zeug:
    kephra, baumhaus, garten, gezwitscher
    
    Es beginnt immer mit einer Entscheidung.
    - +2 replies
    - pq
      
      2009-11-11 18:06
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      was hast du denn genau eingegeben?
      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
      - lichtkind
        
        2009-11-11 18:07
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        hab das eurozeichen aus seinem post kopiert und eingefügt
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
    - pq
      
      2009-11-11 18:48
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      jetzt gehts. musste ein binmode $pipe, ':encoding(utf8)' machen
      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
  - pq
    
    2009-11-11 18:07
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2009-11-11T17:03:36 lichtkind
    
    Code (perl): (dl )
    
    tr/,€ /./d
    
    Code: (dl )
    
    tr/,€ /./d
    
    scheint das syntax-highlighting-programm zu sein, was mit dem euro-zeichen nicht klarkommt.
    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
- pq
  
  2009-11-11 18:05
  User since
  2003-08-04
  12208 Artikel
  Admin1
  was willst du matchen? mehrere ziffern, einen punkt und wieder mehrere ziffern.
  
  Code (perl): (dl )
  
  my ($n1, $n2) = $string =~ m/(\d+),(\d+)/;
  
  nun hast in $n1 und $n2 jeweils die teilzahlen.
  
  Code (perl): (dl )
  
  my $num = "$n1.$n2";
  
  fertig.
  es gibt auch noch andere möglichkeiten:
  
  Code (perl): (dl )
  
  $string =` s/.*(\d+),(\d+).*/$1.$2/;
  
  lies mal perlre
  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
- +2 replies
- Linuxer
  
  2009-11-11 18:29
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hi,
  
  warum willst Du eigentlich die beiden Schritte "gleichzeitig" machen.
  Warum nicht nacheinander? So hättest Du wenigstens eine saubere Trennung der beiden unterschiedlichen Aktionen.
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my $str = 'EUR 1,84'; # 1. Zahl ermitteln my ($num) = $str =~ m/([\d,]+)/; # 2. Komma in Punkt wandeln $num =~ tr/,/./; print $num;
  
  Das kostet nicht viel und bleibt übersichtlicher/verständlicher.
  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!
  - Gast Knowbody
    
    2009-11-11 18:45
    
    Herzlichen Dank für die enorme Menge an Denkanstößen.
    Ich werde mal versuchen was für mich brauchbares daraus zu destillieren.
    Herzlichen Dank an alle Beteiligten.
    Knowbody

View all threads created 2009-11-11 17:57.