perl - RE

Sekcia: Programovanie 16.10.2007 | 21:18
stando   Návštevník
zdravim,

$ perl -e '$a=" a a a a a "; $a=~ s/(\W)(a)(\W)/\1b\3/g; print $a';

" b a b a b "

ako spravit aby kazde "a" bolo nahradene "b"? ja viem, 2x to zavolat alebo tam dat nejaky while. ale ako to spravit jednym RE? To jest, mam slova oddelene medzerou a kazde z nich chcem nahradit.

dik
    • Re: perl - RE 16.10.2007 | 23:07
      fckr   Návštevník
      perl -e '$a=" a a a a a "; $a=~ s/a/b/g; print $a'
      • Re: perl - RE 17.10.2007 | 17:31
        stando   Návštevník
        ee, slova sa delia medzerou. z "a ab abc" to spravi "b bb bbc". coz nechceme :) chceme "b ab abc"
        • Re: perl - RE 17.10.2007 | 20:27
          Avatar uid0 Debian  Používateľ
          $ echo a ab abc | sed 's/\ba\b/b/g'
          b ab abc
          Debian. apt-get into it…
    • Re: perl - RE 17.10.2007 | 08:28
      Avatar lime Debian 3, Red Hat 6, Fedora Core 3  Používateľ
      sed :))
      Prejdite z modrej obrazovky k linuxu :))