Shell Programming and Scripting

awk '{ split(512m512m,a,"m") print $a[0]; $a[1] }'

$ echo '512m513m' | awk  -F'm' '{printf "$1=%s\n$2=%s\n",$1,$2}'
$1=512
$2=513

$ echo '512m513m' | awk  'BEGIN{FS="m"};{printf "$1=%s\n$2=%s\n%s\n",$1,$2,FS}'
$1=512
$2=513
m

awk '{ split("512m512m",a,"[kmgt]"); print a[1],a[2] }'

perl -le '"512m512m"=~/(\d+)([kmgt])(\d+)/; print $1; print $3; print $2;'

awk '{ x="512m512m"; n=substr(x,match(x,/[kmgt]/),1); split(x,A,n); print A[1]; print A[2]; print n }'

$ awk 'BEGIN { x="512M1024G"; gsub(/[kKmMgGtT]/,";&;",x); split(x,A,";");print A[1],A[2]; print A[3],A[4]}'
512 M
1024 G

$ echo "512M1024G" | awk '{gsub(/([^0-9])/," & "); while(NF>i) print $(++i),$(++i)}'
512 M
1024 G

# Single char 
$ echo "1024m1025g" | awk -F'[[:alpha:]]' '{print $1,$2}'
1024 1025

$ echo "1024g1025g" | awk -F'[[:alpha:]]' '{split($0,C);print C[1],C[2]}'
1024 1025

# Multiple char
$ echo "1024gaas1025g" | awk -F'[[:alpha:]]*' '{print $1,$2}'
1024 1025

$ echo "1024gaAas1025g" | awk -F'[[:alpha:]]*' '{split($0,C);print C[1],C[2]}'
1024 1025

 echo "512m512m" |  awk '{ split($0,a,/[[:alpha:]]/);print a[1],a[2]}'