«

Hi,

I need help with extracting digit from a string.

example:

here is the string i want to split into words and digits.

my $string = "abcd-efgh-ijkl-123.456.789"

i want

$word = "abcd-efgh-ijkl";

and

$digit = "123.456.789";



Thanks in advance,

Joel

joel wrote:

> i want

What have you tried?

--
http://www.dunkelheit.at/

»Better to reign in hell than to serve in heaven«
-- John Milton, »Paradise Lost«

(joel) writes:
>
> I need help with extracting digit from a string.
>
> example:
>
> here is the string i want to split into words and digits.
>
> my $string = "abcd-efgh-ijkl-123.456.789"
>
> i want
>
> $word = "abcd-efgh-ijkl";
>
> and
>
> $digit = "123.456.789";

You seem to have split it successfully yourself already. What's the
general pattern for your string and word/digit parts? Does the
digit part contain only digits and periods, and the word part only
letters and hyphens?

joel <> wrote:


> my $string = "abcd-efgh-ijkl-123.456.789"
> i want
> $word = "abcd-efgh-ijkl";
> and
> $digit = "123.456.789";


my($word, $digit) = $string =~ /(.*)-(.*)/;


--
Tad McClellan SGML consulting
Perl programming
Fort Worth, Texas

joel wrote:
>
> I need help with extracting digit from a string.
>
> example:
>
> here is the string i want to split into words and digits.
>
> my $string = "abcd-efgh-ijkl-123.456.789"
>
> i want
>
> $word = "abcd-efgh-ijkl";
>
> and
>
> $digit = "123.456.789";

$ perl -le'
my $string = "abcd-efgh-ijkl-123.456.789";
my ( $word, $digit ) = split /(?<=\D)-(?=\d)/, $string, 2;
print for $word, $digit;
'
abcd-efgh-ijkl
123.456.789



John
--
use Perl;
program
fulfillment