Re: Last Letters

Try using a regular expression:

#!/usr/bin/perl -w
 
use strict;
 
my @data = qw|pa0002Yeadon.2(5091)
              pa0003Presidential.1(2664)
              pa0014Haverford.1(2589)|;
 
my @numbers = map { /\((\d+)\)/ } @data;
 
print "@numbers\n";
[download]

Comment on Re: Last Letters Download Code

Replies are listed 'Best First'.
Re: Re: Last Letters by arturo (Vicar) on Nov 30, 2000 at 00:28 UTC
Dang, beat me to it =) I note, for the record, that killinrax's solution which is elegant, assumes you know that the first thing in your lines of data that are going to be wrapped in parentheses are the numbers you seek, AND that every line will contain a number (which may or may not be a problem; but if you want to do 1:1 matching of numbers onto lines, you'd like to know which line is missing a number if the sizes of @numbers and @data don't match up.) In other words: it's a great basic technique, but be careful how you implement it! Philosophy can be made out of anything. Or less -- Jerry A. Fodor	[reply]

Replies are listed 'Best First'.

Re: Re: Last Letters
by arturo (Vicar) on Nov 30, 2000 at 00:28 UTC

Dang, beat me to it =) I note, for the record, that killinrax's solution which is elegant, assumes you know that the first thing in your lines of data that are going to be wrapped in parentheses are the numbers you seek, AND that every line will contain a number (which may or may not be a problem; but if you want to do 1:1 matching of numbers onto lines, you'd like to know which line is missing a number if the sizes of @numbers and @data don't match up.)

In other words: it's a great basic technique, but be careful how you implement it!

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

[reply]