Umar Draz wrote:
> Dear User!
>
> I want to get all telephone and mobile number from a string and save into a
> variable. Here is my example what i am doing.
>
> #!/usr/bin/perl
>
> $str = "This is my string my mobile number is 0300-4459899, 042-8494949
> 041-8580880 now the string is complete"
> while($line =~ /(([0-9]{3,4}[-]?)?[0-9]{7})/g){
> $tel = $1
> }
>
> Now the above code is working file for me all telephone numbers and mobile
> number are saved in $tel.
>
> No my question is how to handle spaces e.g
If you are just throwing away everything but the numbers:
my $str
> = "This is my string my mobile number is 042-6715171 0 30 0- 4 4 5 9 8
> 9 9, 0 42-84 94 94 9, 0 4 1 - 85 80 8 8 0 now the string is complete";
$str =~ s/\s+//;
> while($line =~ /(([0-9]{3,4}[-]?)?[0-9]{7})/g){
>
> $tel = $1
>
> }
Steve
smime.p7s
Description: S/MIME Cryptographic Signature
