Tuesday, June 10, 2008

Extract digit from a string - perl one liner


Suppose:


var="kde24hx0ep1024x960rstp390"


Now if we have to extract the digit part before x (i.e. 1024) and digit part after x (i.e. 960), here is a perl one liner for the same.


# perl -e '$var="kde24hx0ep1024x960rstp390"; $var=~/(\d{1,})x(\d{1,})/; print $1."\t".$2."\n";'
1024 960


or


# perl -e '$var="kde24hx0ep1024x960rstp390"; ($pos1,$pos2)=($var=~/(\d+)x(\d+)/); print $pos1."\t".$pos2;'
1024 960

No comments:

© Jadu Saikia www.UNIXCL.com