Re: non numeric data


Perl: the Markov chain saw
	PerlMonks

Re: non numeric data

by derby (Abbot)

on Jun 24, 2013 at 12:53 UTC ( [id://1040427]=note: print w/replies, xml )

Need Help??

in reply to 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]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1040427]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others admiring the Monastery: (5)

As of 2024-04-25 13:07 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found