Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: Extracting full digits from a range

by linuxkid (Sexton)
on Aug 03, 2012 at 18:42 UTC ( #985306=note: print w/replies, xml ) Need Help??

in reply to Extracting full digits from a range


($start, $end) = split /:/, chomp(<STDIN>); @array = ($start..$end); print @array;


Replies are listed 'Best First'.
Re^2: Extracting full digits from a range
by davido (Archbishop) on Aug 03, 2012 at 19:10 UTC

    Did you test that?


      nope, never do. probably should have mentioned that


        Well here are the problems. First, you can't chomp a filehandle. When you try, you will get the following compile-time error:

        Can't modify <HANDLE> in chomp at line 8, near "<STDIN> ) " Execution of aborted due to compilation errors.

        Let's assume for a minute that you can chomp a filehandle. You're seeking to assign the return value of chomp, which will return the number of input record separators it chomped, not the target string. So if it could compile, it would return 1 (assuming there's a newline at the end of the target line).

        Let's assume that you fixed all that and managed to put 293F into $start, and 2945 into $end. You still have the problem that the .. range operator can only expand ranges composed of non-empty strings that match /^[a-zA-Z]*[0-9]*\z/. So you don't get any auto-incrementing behavior. Your code:

        @array = ( $start .. $end );

        Attempts to use the range operator on a string that is incompatible with its wiring. According to perlop, if the string doesn't match /^[a-zA-Z]*[0-9]*\z/, then only the left operand will be returned. So after we fix the issues in line that chomps a filehandle and returns '1' to split, we're still left with the fact that the range operator won't even work here.

        The simplest solution is to convert those hex strings into numeric values, perform the range expansion, and then convert the expanded range back to a hex representation.


        Or even better, start testing the s4#$X   stuff   code you post.

        And while you're at it, cross-check your proposed narrative replies against the relevant documentation.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://985306]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (4)
As of 2018-06-22 11:24 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (124 votes). Check out past polls.