Re: non numeric data

I would assume your data is not what you think it is:

#!/usr/bin/env perl

use strict;
use warnings;

my @array_H = (
  'ABCD',
  1234,
  '1234',
  ' 1234'
);

foreach my $ele ( @array_H ) {
  if( $ele !~  /^[0-9]+$/ ) {
    block( $ele );
  }
}

sub block {
  my $ele = shift;
  print "Woot -- $ele --\n";
}
[download]

Woot -- ABCD --
Woot --  1234 --
[download]

-derby

Comment on Re: non numeric data Select or Download Code

Replies are listed 'Best First'.
Re^2: non numeric data by torres09 (Acolyte) on Jun 24, 2013 at 13:00 UTC
ya i figured that out , there is a possibility that numbers having - sign are not being blocked so I modified by code . please tell if it is fine or not `if (($array_H[$i] !~ /^[0-9]+$/) &&($array_H[$i] !~ /^-+$/))` [download] I am new to perl so please pardon me for obvious mistakes	[reply] [d/l]
Re^3: non numeric data by hdb (Monsignor) on Jun 24, 2013 at 13:06 UTC
`/^[-+]?[0-9]+$/` [download]	[reply] [d/l]
Re^3: non numeric data by hdb (Monsignor) on Jun 24, 2013 at 13:15 UTC
Also check sundialsvc4's advice here: Re: Patternmatching IPaddresses to use Regexp::Common. It has a pattern for numbers as well.	[reply] [d/l]
Re^3: non numeric data by BillKSmith (Monsignor) on Jun 24, 2013 at 14:59 UTC
Depending on the source of your data, it may have whitespace (especially a newline) at the end. Bill	[reply]