perl one liner : suche string in einer spalte/feld und ersetzen (Allgemeines zu Perl)

[thread]19980[/thread]

perl one liner : suche string in einer spalte/feld und ersetzen

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+11 replies
bora99

2016-02-08 09:02
User since
2009-12-05
54 Artikel
BenutzerIn
Hallo,

in einer Datei ( Field seperator = # ) soll in einer Spalte/Feld ein String ersetzt werden.

Meine Variante funktioniert nur , wenn keine Leerzeichen vorhanden sind

Datei:
f1#f2#f3#f4#f5

Ersetzen in Spalte 4 von String "4" durch "44"
Code: (dl )

perl -lan -e '@arr = split ("#",$F[-1]); $f_new= $arr[3]; $f_new =~ s/4/44/ig; print "$arr[0]#$arr[1]#$arr[2]#$f_new#$arr[4]" ' datei
Wenn die Datei Leerzeichen enthält, dann funktioniert es nicht mehr
Datei:
f1#f2#f3#f4#f5# #
- GwenDragon
  
  2016-02-08 10:06
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  So geht es
  
  $ cat datei
  f1#f2#f3#f4#f5# #
  11#22#33#44#55
  1#2#3#4#5
  
  $ perl -nE 'chomp; @arr = split "#"; $arr[3] =~ s/4/44/ig; say join "#",@arr ' datei
  f1#f2#f3#f44#f5
  11#22#33#4444#55
  1#2#3#44#5
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- Linuxer
  
  2016-02-08 13:32
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Wenn Du schon autosplit (-a) einsetzt, solltest Du auch das Trennmuster entsprechend setzen (-F).
  Wenn Du das Trennzeichen nicht abänderst, wird das Leerzeichen benutzt.
  
  Code: (dl )
  
  1 2
  
  $ echo "f1#2#3#4#5# " | perl -anF# -E '$F[3] =~ s/4/44/; say join "#", @F' f1#2#3#44#5#
  
  Siehe perlrun
  
  edit: minor text fix
  Last edited: 2016-02-08 22:24:59 +0100 (CET)
  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!
- +8 replies
- GwenDragon
  
  2016-02-08 14:09
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Aus Interesse: wolltest du eine awk-Kommandozeile in Perl nachbilden?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +7 replies
  - bora99
    
    2016-02-29 13:00
    
    User since
    2009-12-05
    54 Artikel
    BenutzerIn
    
    2016-02-08T13:09:13 GwenDragon
    Aus Interesse: wolltest du eine awk-Kommandozeile in Perl nachbilden?
    
    Ja, wollte ich. Mit awk ist es erheblicher Aufwand und perl bietet mit den Switch Optionen viel mehr Möglichkeiten
    - +6 replies
    - bora99
      
      2016-02-29 13:05
      
      User since
      2009-12-05
      54 Artikel
      BenutzerIn
      
      Kleine Anmerkung zu
      Quote
      perl -E
      ist ein Feature von Version Perl 5.10.0 ? Habe es unter 5.8.8 getestet , da funktioniert es nicht
      - GwenDragon
        
        2016-02-29 13:14
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ja, erst ab 5.10.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +4 replies
      - Raubtier
        
        2016-02-29 13:17
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Ja, kannst du in perldelta nachlesen: http://perldoc.perl.org/perl5100delta.html
        
        Es ist wie -e, nur dass die jeweils neuen Features der Perl-Version an sind. Also insbesondere ist "say" verfügbar.
        
        Beachte auch, dass 5.8.8 uralt ist.
        
        +3 replies
        
        clms
        
        2016-02-29 17:44
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        2016-02-29T12:17:02 Raubtier
        Ja, kannst du in perldelta nachlesen: http://perldoc.perl.org/perl5100delta.html
        
        Nicht in der Doku von 5.8.8 :-|
        
        2016-02-29T12:17:02 Raubtier
        Beachte auch, dass 5.8.8 uralt ist.
        
        Es dürfte aber immer noch die am weitesten verbreitete Version sein. Auf der Arbeit muss ich das auch verwenden.
        
        GwenDragon
        
        2016-02-29 17:47
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Dass -E erst ab 5.10 existiert weiß man doch, wenn man nicht gerade ein Anfänger ist ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        pq
        
        2016-02-29 19:50
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2016-02-29T16:44:11 clms
        Es dürfte aber immer noch die am weitesten verbreitete Version sein.
        
        ich gaube, das liegt u.a. daran, dass vieles einfach noch funktioniert.
        und daran, dass viele keine testsuites haben, mit der die umstellung auf eine neue version leichter waere... =(
        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

View all threads created 2016-02-08 09:02.