cbkihong@cbkihong:~$ perl -MScalar::Util -e
'print(Scalar::Util::looks_like_number("-8.90e10")?"Looks like a number.\n":"Not a number.\n")'
Looks like a number.
cbkihong@cbkihong:~$ perl -MScalar::Util -e
'print(Scalar::Util::looks_like_number("89d")?"Looks like a number.\n":"Not a number.\n")'
Not a number.
Hi Folks,
I'm using bash script. I would like to check whether input is a number or not.(Only positive numbers).. if space or non numeric is entered, it should say "invalid input". pls help..
thanks in adv.
Br///
Vijay. (1 Reply)
i have a input file like this
001|rahim|bajaj|20090102
while reading the file i need to check whether the first column is a number
second column is a name
is there any methodology to check for the same
thanks in advance (2 Replies)
Hi All,
I would like to convert my below csh script to Perl.
Can any expert help ?
# To check for numeric input
set tested1 = `echo "$tested"| awk '/^+$/'`;
# To remove un-neccessary zeros
set tested2 = `echo "$tested"|awk '{print $0+0}'`; (3 Replies)
Hi, I'm trying to check to see that the arguments given to my script are both numeric and positive integers. I'm using tcsh. I figured out the positive part, but I am having trouble with the arguments being numeric and integers
I have no idea where to get started with the checking them actually... (1 Reply)
Can someone tell me how to change the first column in a very large 17k line file from a random 10 digit numeric value to a non numeric value. The format of lines in the file is:
1702938475,SNU022,201004
the first 10 numbers always begin with 170 (6 Replies)
Hi,
I'm a learner of PERL programming.
I've a input file with the below data:
SWAT_5, 1703, 2010-09-21
SWAT_6, 2345, 2010-09-21
SWAT_7, 1792, 2010-09-21
SWAT_8, 1662, 2010-09-21
SWAT_9, 1888, 2010-09-21
VXHARP_1, 171, 2010-09-21
I need to sort this data based on the second... (6 Replies)
hi Experts
just wondering if you can help me check a number between a specific range
if i have an ip address , how can i say the valid number for ip between 1 to 254
something like this
if ($ip ) =~ /.../
{
}
what the pattern i need to type
thanks (3 Replies)
Hi guys
I am having this strange issue.Well my requirement is like below
Compare two values between flat file and oracle DB
Via perl script I am easily getting the rowcount
Now I connect sql plus via perl and the column value that returns is string
my $sqlplus_settings = '';
my... (7 Replies)
Hi
I need to put the validation in batch script when user will enter the build number it should be numeric.I can put the validation for numeric values but there is .(dot) in number so it would not take it as numeric.
Is it possible we can store it in variable and remove the .(dot) from the... (1 Reply)
Hello there, find below for my code first:
$pdp_asaba=`cat /tmp/temp_total | grep asaba | sed 's/*//g'`
if ]]
then pdp_asaba=0
fi
$pdp_abuja=`cat /tmp/temp_total | grep abuja | sed 's/*//g'`
if ]]
then pdp_abuja=0
fi
$pdp_ojota=`cat /tmp/temp_total | grep ojota | sed 's/*//g'`
if ... (3 Replies)
Discussion started by: infinitydon
3 Replies
LEARN ABOUT SUSE
task::weaken
Task::Weaken(3) User Contributed Perl Documentation Task::Weaken(3)NAME
Task::Weaken - Ensure that a platform has weaken support
DESCRIPTION
One recurring problem in modules that use Scalar::Util's "weaken" function is that it is not present in the pure-perl variant.
While this isn't necesarily always a problem in a straight CPAN-based Perl environment, some operating system distributions only include
the pure-Perl versions, don't include the XS version, and so weaken is then "missing" from the platform, despite passing a dependency on
Scalar::Util successfully.
Most notably this is RedHat Linux at time of writing, but other come and go and do the same thing, hence "recurring problem".
The normal solution is to manually write tests in each distribution to ensure that "weaken" is available.
This restores the functionality testing to a dependency you do once in your Makefile.PL, rather than something you have to write extra
tests for each time you write a module.
It should also help make the package auto-generators for the various operating systems play more nicely, because it introduces a dependency
that they have to have a proper weaken in order to work.
How this Task works
Part of the problem seems to stem from the fact that some distributions continue to include modules even if they fail some of their tests.
To get around that for this module, it will do a few dirty tricks.
If Scalar::Util is not available at all, it will issue a normal dependency on the module. However, if Scalar::Util is relatively new ( it
is >= 1.19 ) and the module does not have weaken, the install will bail out altogether with a long error encouraging the user to seek
support from their vendor (this problem happens most often in vendor-packaged Perl versions).
This distribution also contains tests to ensure that weaken is available using more normal methods.
So if your module uses "weaken", you can just add the following to your Module::Install-based Makefile.PL (or equivalent).
requires 'Task::Weaken' => 0;
AUTHOR
Adam Kennedy <adamk@cpan.org>, <http://ali.as/>
SEE ALSO
Task, Scalar::Util, <http://ali.as/>
COPYRIGHT
Copyright 2006 - 2009 Adam Kennedy.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
perl v5.12.1 2009-06-12 Task::Weaken(3)