Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^2: Challenge - Creative Way To Detect Alpha Characters

by Anonymous Monk
on Sep 13, 2004 at 22:37 UTC ( [id://390687]=note: print w/replies, xml ) Need Help??


in reply to Re: Challenge - Creative Way To Detect Alpha Characters
in thread Challenge - Creative Way To Detect Alpha Characters

Sorry, this is my first time posting here... let me try that again: 

#!/usr/bin/perl

$string = $ARGV[0];

for(split(//,$string)) {

   if(($_ * $_ == 0) && $_ ne '0') {

      print "alpha: $string\n";
      exit(0);

   }

}

print "numeric: $string\n";

[download]

jkauffman

Replies are listed 'Best First'.
Re^3: Challenge - Creative Way To Detect Alpha Characters
by doowah2004 (Monk) on Sep 14, 2004 at 12:29 UTC
    jkauffman,

    Unfortunately this code fails for special chars (@,#,$,%...), if you $_++, the the special chars=>1, but alphas increment. If you look at my code above you will see that our attempts are similar, $_**2 is the same as $_ * $_, and does remove the the numbers (except 0) again this is why you would use $_++, adding that first takes care of the zero. I am just not sure if my code above filters all special chars.

    Good attempt, we were thinking similar ;)

    Cameron
[reply]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://390687]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2024-04-24 12:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found