Re: regular expression

[ansh batra]

$lengeth=length($x)
$temp=substr($x,6) //to get the first six digits
$temp1=substr($x,($length-4),$length) //to get the last 4 
for(int i=0;i<($length-10);i++) {
$temp +='X';
}
$temp +=$temp1;

the code is untested and surely contains error.

[marto]

"the code is untested and surely contains error."

This statement is unlikely to fill people with confidence.

[ansh batra]

sorry marto
i am in a place where i am not allowed to install any software
missing my perl days very badly

[marto]

Don't be sorry, it was intended as more of an observation rather than a complaint. If you can use ssh perhaps you could connect to your home system, if not search for free shell access which will allow Perl. A one off payment of 36 USD will get you lifetime ARPA membership over at SDF.

Update: Other free (and almost free) shell providers exist, offering different levels of access, this was the first returned from a search.