Shell Programming and Scripting

sed -e 's/(/( /g' -e 's/,/ , /g' -e 's/)/ )/g' infile.txt | nawk '{for (i=1;i<NF-1;i++)
if ($i ~ /[0-9]L/) {gsub("L","",$i) ; $i=$i*8"L"} }1'

sed -e 's/[\(\)\,]/ & /g' infile.txt | nawk '{for (i=1;i<NF-1;i++) if ($i ~ /[0-9]L/)
{gsub("L","",$i) ; $i=$i*8"L"} }1'

sed -e 's/[\(\)\,]/ & /g' infile.txt | nawk '{for (i=1;i<NF-1;i++) if ($i ~ /[0-9]L/)
{gsub("L","",$i) ; $i=($i!=0) ? $i*8 : $i"L"} }1'

perl -pe's/(\d+L)/$1+0?$1*8:$1/ge' infile

sed -e 's/[\(\)\,]/ & /g' test | nawk '
{
for (i=1;i<NF-1;i++) $i=($i ~ "[1-9][0-9]*L") ? $i*8:$i
}
1' infile.txt

awk '{
  _0 = $0
  while (match($0, /[0-9][0-9]*L/)) {
      p = substr($0, RSTART, RLENGTH)      
      p + 0 && sub(p, p * 8, _0)
      $0 = substr($0, RSTART + RLENGTH)
    }
  print _0    
  }' infile

awk '
{
              for (i=1;i<NF-1;i++) {
                            match($i,/[0-9][0-9]*L/)
                            s=substr($i,RSTART,RLENGTH-1)
                            sub(s+0,s*8,$i)
                      }
}
1
' input_file.txt