Need some help parsing text

[SensesFail]

I have strings of the form "CharNumCharCharChar", for example s5tgn, and I want to store the number, so for the example here I want to take s5tgn and store 5 in a variable.

Does anyone know how to do this in Perl?

Thanks!

 

[rharsh]

What have you tried?

You should be able to do it fairly easily with a regex.

 

[AvarPentel]

If the number is always in the same place (second character in string) just use the substr() function:

$st="s5tgn";
$nr=substr($st,1,1);
# substr(string,starting offset,length)

Avar Pentel

 

[feherke]

Hi

I think the OP forgot to specify it, but the input string is something like :

$st="foo f4oo s5tgn bar b6ar";

In which case [tt]substr[/tt] would not really help. But regular expression as always :

$n=$1 if $st=~m/[[:alpha:]]([[:digit:]])[[:alpha:]]{3}/;

Feherke.

http://rootshell.be/~feherke/