Hi !

I got a script from [Arabic to Roman numeral conversion - .comp.lang.awk, that I would like to modify to apply it on my input file.

input ("|"-delimited fields):

AAAAAA|1, 10, 13, 14, 25, 60

AAAAAA|I, X, XIII, XIV, XXV, LX

#!/usr/bin/gawk -f

BEGIN{FS=OFS="|"}

   n = split($2,a,", ")
        
   for (i=1; i<=n; i++){

        function dec2roman(n, v,w,x,y,r1,r10,r100,r1000)
        if (a[i] < 3999) {

        split("I II III IV V VI VII VIII IX",r1," ")
        split("X XX XXX XL L LX LXX LXXX XC",r10," ")
        split("C CC CCC CD D DC DCC DCCC CM",r100," ")
        split("M MM MMM",r1000," ")

        v = (a[i] - (a[i] % 1000)) / 1000
        a[i] = a[i] % 1000
        w = (a[i] - (a[i] % 100)) / 100
        n = a[i] % 100
        x = (a[i] - (a[i] % 10)) / 10
        y = a[i] % 10

        a[i] = "r1000[v] r100[w] r10[x] r1[y]"
        }

}1

gawk: script.awk:7:     function dec2roman(n, v,w,x,y,r1,r10,r100,r1000) {
gawk: script.awk:7:     ^ syntax error

Where is "function dec2roman" defined???

Hi balajesuri !

ok, I see

Hint: you are defining the function n times and it is in the wrong section.

Hi Scrutinizer !

So I tried:

#!/usr/bin/gawk -f

BEGIN{FS=OFS="|"}
      
   n = split($2,a,", ")
       for (i=1; i<=n; i++){
           
           if (a[i] < 3999) { 
               function dec2roman(a[i],v,w,x,y,r1,r10,r100,r1000){
               	
               a[i] = int(a[i])
               
               split("I II III IV V VI VII VIII IX",r1," ")
               split("X XX XXX XL L LX LXX LXXX XC",r10," ")
               split("C CC CCC CD D DC DCC DCCC CM",r100," ")
               split("M MM MMM",r1000," ")

               v = (a[i] - (a[i] % 1000)) / 1000
               a[i] = a[i] % 1000
               w = (a[i] - (a[i] % 100)) / 100
               a[i] = a[i] % 100
               x = (a[i] - (a[i] % 10)) / 10
               y = a[i] % 10

               return(r1000[v] r100[w] r10[x] r1[y])
        }
   }
}1

Good practice would be i guess define functions first then other stuff.

function name ( val .. ) {
## code val ..
}

BEGIN {
## what you want to do before parsing the file(s)
## You can also use this section for reading files with getline or asking user to input variables
}

## action block  - body 
{
## code for input files goes here
## Here we shall process the input file(s)
}

END {
# what you want to do after the code up has ran
## Itterate over your arrays, print various sums etc.
}

BEGIN{FS=OFS="|"}
{
## your code..
}

Hi Peasant !

Thanks for your advices.

However when I use only the codes of the function it prints the original line in record 1, and then the wanted line in record2 !!!!

And when I use the function following your advice as below, it removes the numbers:

#!/usr/bin/gawk -f


function convert (n,v,w,x,y,r1,r10,r100,r1000){
	       split("I II III IV V VI VII VIII IX",r1," ")
               split("X XX XXX XL L LX LXX LXXX XC",r10," ")
               split("C CC CCC CD D DC DCC DCCC CM",r100," ")
               split("M MM MMM",r1000," ")
      
               v = (n - (n % 1000)) / 1000
             
               n = n % 1000
               w = (n - (n % 100)) / 100
               
               n = n % 100
               x = (n - (n % 10)) / 10
             
               y = n % 10
               
               }

BEGIN{FS=OFS="|"}
     
{b = split($2,a,", ")
       for (i=1; i<=b; i++){
       n = a[i]  
       sub (n,(r1000[v] r100[w] r10[x] r1[y]),$2)
       }
}1

AAAAAA|, , , , ,