Re^4: pull single value

Replies are listed 'Best First'.
Re^5: pull single value by ikegami (Patriarch) on Nov 10, 2009 at 04:05 UTC
Then you're not dealing with a single value as you claimed. You want to iterate over a list of values. Why do you think it's a problem storing that list in an array? As for how, you've already been shown how. You were even given a fully functional program.	[reply]
Re^6: pull single value by Anonymous Monk on Nov 10, 2009 at 18:43 UTC
Thanks for all your efforts. Let's simplify this. I am trying to put this in a subroutine. But it is not working. can you suggest on this? `sub OfficePhoneNumber { my @numbers = @_; my $number; my @results; foreach $number (@numbers) { if ($number =~ m/(^\d{3}-\d{4}$)/) { push @results, $number; } } return @results; }` [download] &OfficePhoneNumber "554-3214,+1 302-342-2345";	[reply] [d/l]
Re^7: pull single value by ikegami (Patriarch) on Nov 10, 2009 at 19:20 UTC
It works for `OfficePhoneNumber("554-3214", "+1 302-342-2345");` Isn't that what you want anyway?	[reply] [d/l]
Re^8: pull single value by Anonymous Monk on Nov 10, 2009 at 19:35 UTC
Re^9: pull single value by ikegami (Patriarch) on Nov 10, 2009 at 19:59 UTC
Some notes below your chosen depth have not been shown here