Ersetzung von Variablen in einem String (gelöst) (Allgemeines zu Perl)

[thread]20127[/thread]

Ersetzung von Variablen in einem String [gelöst]

Tags: perl5 regex Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+10 replies
Gast Meier123

2016-07-28 16:32

Hallo liebe Community,
ich habe eine Datei, welche ich einlese. Aufgrund der unterschiedlichen Struktur der Files, stehen im Array immer andere Integer Werte. Diese Integer Werte zeigen mir an, an welcher Stelle in einer Zeile aus dem dort forhandenen ein ; gemacht werden soll. Pro Zeile kann dies n mal vorkommen, weshalb ich die Werte in einem Array ablege. So weit so gut.
Was ich aktuell nicht hinbekomme, ist das Ersetzen in der Zeile, z.B der erste Wert im Array ist eine 8, also soll an der 8ten Stelle in der Zeile das dort vorhandene Zeichen durch ein ; ersetzt werden usw.
Ich hatte erst an substr gedacht, aber das wird nicht funktionieren. Ich habe gesehen, dass es so ein paar schöne, allerdings sehr abstrakte Ersetzungsformeln gibt.

Hat damit jemand von euch Erfahrung ?

Vielen Dank
Last edited: 2016-07-28 16:40:54 +0200 (CEST)
- +4 replies
- Relais
  
  2016-07-28 16:44
  
  User since
  2003-08-06
  2246 Artikel
  ModeratorIn
  
  Mit split kannst Du aus einem String einen Array erstellen.
  Mit splice kannst Du an bestimmter Stelle des Arrays u.a. auch ein Element auswechseln.
  
  edit: Links korrigiert. pod Links tun leider nicht das, was ich erwartet hatte.
  Last edited: 2016-07-28 16:47:16 +0200 (CEST)
  Erst denken, dann posten --
  27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.
  
  Winter is Coming
  - renee
    
    2016-07-28 17:25
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Das geht ziemlich einfach:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    #!/usr/bin/perl use v5.10; use strict; use warnings; my $line = 'Das ist eine Zeile Deiner Datei'; my @pos = (1, 7, 10, 26); # diese Positionen sollen durch ';' ersetzt werden say $line; for my $pos ( @pos ) { substr $line, $pos-1, 1, ';'; } say $line;
    
    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/
  - +2 replies
  - Linuxer
    
    2016-07-28 17:47
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    POD-Links auf interne Funktionen funktionieren so, wie es in der Formatierungshilfe (Link über dem Textfeld, wenn man einen Beitrag schreibt) angegeben ist. Die internen Funktionen stecken in der perldoc perlfunc, dass muss man mit angeben.
    
    Code: (dl )
    
    1 2
    
    [pod]perlfunc.split[/pod] [pod]perlfunc.splice[/pod]
    
    perlfunc split
    perlfunc splice
    
    ;-)
    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!
    - Relais
      
      2016-07-29 00:02
      
      User since
      2003-08-06
      2246 Artikel
      ModeratorIn
      
      Ah, Dankeschön!
      Erst denken, dann posten --
      27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.
      
      Winter is Coming
- +5 replies
- Gast janus
  
  2016-07-28 17:26
  Machs doch gleich richtig und arbeite byteorientiert mit Längenangaben.
  
  Code (perl): (dl )
  
  1 2 3
  
  $s = 'foo bar'; $bytesequenz = pack('N', length $s).$s;
  
  Die Längenangabe hat stets 32 Bit, also 4 Byte. Das ergibt einen ganz einfachen Algorithmus: 4 byte lesen, das ergibt eine Längenangabe und mit dieser Angabe dann den String selbst lesen. Ab hier kann sich das Spiel wiederholen: 4 byte lesen.....
  
  Im einfachstn Fall speichers Du damit ein Array. Willst du einen Hash speichern, ändert sich am Algorithmus nichsts, du nimmst nur die Werte paarweise. Soll es ein Hash-of-Hashes sein, nimmst Du immer 3 elements zusammen als Schlüssel-Schlüssel-Wert.
  
  Das Ganze ist dann auch binary safe.
  Last edited: 2016-07-28 18:38:12 +0200 (CEST)
  - +4 replies
  - Gast Meier123
    
    2016-07-29 13:29
    Vielen Dank für Eure Antworten, ich habe das so umgesetzt :
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    if ($laenge == $globla) { for my $stellen (@stellen) { substr $row2, $stellen,1,';'; } # $line=$row2; print $fh2 $row2;
    
    Die Ausgabe auf der Kommandozeile ist wunderbar, aber er bearbeitet die Zeilen nicht in der Datei sondern scheint immer eine neue zu schreiben, was nicht gut ist.
    Wo liegt da mein Denkfehler ?
    
    Danke für Eure Mühen
    Last edited: 2016-07-29 13:33:18 +0200 (CEST)
    - +3 replies
    - Gast Meier123
      
      2016-07-29 14:37
      
      Hier ist noch einmal der gesamte Code:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
      
      my $filename2 = 'beispiel.csv'; if (open(my $fh2, '+<:encoding(UTF-8)', $filename2)) { while (my $row2 = <$fh2>) { my $laenge=length($row2); if ($laenge == $globla) { for my $stellen (@stellen) { substr $row, $stellen,1,';'; } print $fh2 $row2; } } } else { warn "Could not open file '$filename2' $!"; }
      
      @stellen und $globla wurde vorher definiert.
      
      Danke für Eure Unterstützung
      Last edited: 2016-07-29 14:42:35 +0200 (CEST)
      - +2 replies
      - Muffi
        
        2016-07-29 15:51
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Das geht so nicht so einfach.
        Ich würd hier entweder eine 2. Datei zum Rausschreiben anlegen und die zum Schluss umbenennen oder man könnte auch sowas wie Tie::File benutzen.
        1 + 1 = 10
        
        Gast Meier123
        
        2016-07-29 17:38
        
        Vielen Dank.
        Der Tipp hat geholfen, in eine andere Datei funktioniert es perfekt.
        Last edited: 2016-07-29 18:29:13 +0200 (CEST)

View all threads created 2016-07-28 16:32.