Shell Programming and Scripting

s       n=1
svd     n=3
2svd    n=4
3svd    n=5
2s2vd   n=5

lastArg="$#"
 
result=`echo "${!lastArg}" | sed 's/\([0-9][0-9.]*\)/ & /g'`
echo "result = $result"
array=( "$result" )

$ cat infile 
s      
svd   
2svd 
3svd
2s2vd
$ perl -lne 's/(\d*)\w(?{ our $total += $1 || 1 })/$&/g; printf qq[%s\t%d\n], $_, $total; $total = 0' infile 
s       1
svd     3
2svd    4
3svd    5
2s2vd   5

str="12svd"
result=`echo "${!str}" | sed 's/\([0-9][0-9.]*\)/ & /g'`
array=( $result )
 
n=0
for str in "${array[@]}"; do
   echo "str = $str"
   if [[ "$str" =~ ^[0-9]+$ ]]; then
     k=$str
        fi
        if [ "$str" == "svd" ]; then
            k=2
        elif [ "$str" == "sv" ] || [ "$str" == "vd" ] || [ "$str" == "sd" ]; then
     k=1
        fi
   n=$((n+k))
done

change svd to 1s1v1d
change 2svd to 2s1v1d
change 2sv to 2s1v

sed ':lab; s/\([^0-9]\)\([a-z]\)/\11\2/; t lab'

echo "svd" | sed ':lab; s/\([^0-9]\)\([a-z]\)/\11\2/; t lab'

s1v1d

1s1v1d

sed -e 's/^\([a-z]\)/1\1/' -e   ':lab; s/\([^0-9]\)\([a-z]\)/\11\2/; t lab'

sed -e '/^[a-z]/ s/^/1/' -e   ':lab; s/\([^0-9]\)\([a-z]\)/\11\2/; t lab'