Re: [PERL] tage hvert bogstave i variabel

[Ole Tange <sslug@sslug>]

On Sun, 30 May 1999, Kim Schulz wrote:

> Hejsa
> Jeg skal til at lave et lille script der tager hvert bogstave i et
> indput, og laver det om til tal så a=1 b=2 osv.
> Er der hoge nder har en ide om hvordan man kan lave dette??

Tja, f.eks.:

perl -pe 
'BEGIN{ @a=("a" .."z","æ","ø","å"); %a=map{($_ => ++$n)sslug@sslug;}
s/(.)/$a{$1}." "/ge'  

Oversat:

Initialiser:
  @a= "a","b","c","d" ... "z","æ","ø","å"
  %a = "a" => 1, "b" => 2, "c" => 3 ... "å" => 29

For hver linie:
  Udskift eet tegn med med værdien oplået i %a efterfulgt af et space
  Gør dette for alle tegn i hele linien
  print linien

/Ole