Re: pull single value

Looking at this code, you want to change it to something like this.

#!/usr/bin/perl

use strict;

my @record = ( "662-5555", "+1 102 892-1314" );

for (@record) {
    print if /(^\d{3}-\d{4}$)/;
}
[download]

Comment on Re: pull single value Download Code

Replies are listed 'Best First'.
Re^2: pull single value by Anonymous Monk on Nov 09, 2009 at 23:59 UTC
Why did u put this array? my @record = ( "662-5555", "+1 102 892-1314" ); What if they are just individual values? Thanks, Pamela	[reply]
Re^3: pull single value by ikegami (Patriarch) on Nov 10, 2009 at 00:02 UTC
Did you want to run the "print if" against both values?	[reply]
Re^4: pull single value by Anonymous Monk on Nov 10, 2009 at 00:20 UTC
Actually this code will fetch attribute having multiple values, i want only a single value that matches my pattern. The code above is not working. I even tried this one. `#!/usr/bin/perl use strict; use warnings; my @array; my $record = "+1 102 892-1314"; $record = "662-5555"; if ($record =~ m/(^\d{3}-\d{4}$)/) { push @array, $record; } print "@array";` [download]	[reply] [d/l]
Re^5: pull single value by ikegami (Patriarch) on Nov 10, 2009 at 04:08 UTC
Re^4: pull single value by Anonymous Monk on Nov 10, 2009 at 00:28 UTC
yes.	[reply]
Re^4: pull single value by Anonymous Monk on Nov 10, 2009 at 00:47 UTC
How to do that?	[reply]
Re^5: pull single value by ikegami (Patriarch) on Nov 10, 2009 at 04:05 UTC
Re^6: pull single value by Anonymous Monk on Nov 10, 2009 at 18:43 UTC
Some notes below your chosen depth have not been shown here