This appears to work:
use strict;
use warnings;
my @input=("abcd1234","abc12345","abcde123");
foreach my $sample(@input)
{
print "$sample:\n";
$sample=~m/([a-zA-Z]*)([0-9]*)/;
my $letters=$1;
my $numbers=$2;
print "Letters $letters\tNumbers $numbers\n";
}
Regards,
Leigh
Leigh Sharpe
Network Systems Engineer
Pacific Wireless
Ph 9584 8966
Mob 0408 009 502
email [EMAIL PROTECTED]
web www.pacificwireless.com.au
-----Original Message-----
From: Ng, Bill [mailto:[EMAIL PROTECTED]
Sent: Tuesday, May 02, 2006 5:55 AM
To: [email protected]
Subject: Easy One
Real simple,
I have a string, "$a" for arguments sake, that contains a single word.
The word will always have exactly 8 characters in it, most likely something
like "ABCD1234". I need to split this up into two strings ($b & $c), the first
string needs to contain all the characters before the first number in the word
("ABCD" in this example), the second string needs everything after, and
including, the first number in the word "1234" in this example.
Now, substr() would be a walk in the park, except for the fact that I
can't guarantee the first number will always be in the fifth position ... it
might come in any position between 3 and 7. How would YOU go about doing this?
Inquiring minds want to know.
Bill in Brooklyn
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
