string ersetzen unix mit perl one liner (gelöst) (Allgemeines zu Perl)

[thread]16359[/thread]

string ersetzen unix mit perl one liner [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+5 replies
bora99

2011-05-27 09:42

User since
2009-12-05
54 Artikel
BenutzerIn

hallo,

was mache ich falsch ?
möchte im unix mittels eines perl one liner einen string ersetzen.

beispiel:

search="string"
replace="replace"

OK:
perl -e 'print "1: '$search' 2: '$replace'" '

NICHT OK mein Versuch zu ersetzen:
perl -e 'print s/'$search'/'$replace'/g '

Weitere nicht funktionierte Varianten:
echo $search | perl -p -e 'print ( s/$ENV{search}/$ENV{replace}/g ) '

$search $replace perl -p -e 'print ( s/$ENV{search}/$ENV{replace}/g ) '

gruss
- +4 replies
- Taulmarill
  
  2011-05-27 10:03
  
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  
  Wo soll die Ersetzung denn statt finden? In einer Datei, oder in dem Inhalt, welcher über die Pipe rein kommt?
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +3 replies
  - bora99
    
    2011-05-27 10:29
    
    User since
    2009-12-05
    54 Artikel
    BenutzerIn
    
    hallo,
    
    vielleicht ist es bekannt,ich habe versucht command "sed" in "perl" nachzubilden, in einer Shell-Variable den String ersetzen , mit "sed" ist es manchmal mühsam,wenn String "\" oder "/" enthält, dann muß man "escapen"
    
    string=$( echo $search | sed "s/$search/$replace/g" )
    
    d.h. für perl:
    
    string=$( echo $search | perl -p -e 'print ( s/$ENV{search}/$ENV{replace}/g ) ' )
    
    gruss
    - +2 replies
    - Taulmarill
      
      2011-05-27 10:39
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Wenn du perl mit -p aufrufst, braucht du keine explizite Ausgabe mit print() mehr. Ich hoffe folgendes Beispiel hilft dir weiter:
      
      Code (perl): (dl )
      
      1 2
      
      $ echo "foobar"|perl -pe 's/foo/bar/' barbar
      
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - bora99
        
        2011-05-27 10:50
        
        User since
        2009-12-05
        54 Artikel
        BenutzerIn
        
        hallo,
        
        habe auch weiter gesucht und danke deiner hilfe habe ich es gelöst :
        
        search="string"
        replace="replace"
        export search replace
        
        echo $search | perl -p -e 's/$ENV{search}/$ENV{replace}/g'

View all threads created 2011-05-27 09:42.