Re^3: Extracting full digits from a range

it's no doubt something really ridiculous I'm doing wrong.

Dunno! Your code and your hypers file produce the apparently desired result on my machine:

C:\test>type junk12.pl
#!c:/perl/bin/perl
use strict;

open (HYPERS, "< hypers.txt");
my @hypers = <HYPERS>;
chomp @hypers;
print "Hypers array: @hypers\n";
foreach my $line(@hypers){
$line =~ /([0-9a-f]+):([0-9a-f]+)$/i
    and my @range = map sprintf( '%x,',$_ ), eval "0x$1 .. 0x$2";;
    print @range;;

}
C:\test>type hypers.txt
293F:2946

C:\test>junk12
Hypers array: 293F:2946
293f,2940,2941,2942,2943,2944,2945,2946,
C:\test>
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

Comment on Re^3: Extracting full digits from a range Download Code

Replies are listed 'Best First'.
Re^4: Extracting full digits from a range by smw6181 (Initiate) on Aug 06, 2012 at 14:23 UTC
Well it's good to hear my coding is right.....and I tried removing all whitespace, still produces a blank output. Same with putting a \n after @range. I'm completely confused now though. printing out $line also produces '', so it seems that something's going wrong with parsing the original infile. Guess that's where I need to look. Thanks for confirming my basic code is right folks. Found it. It's definitely whitespace at the end of the line in the text file. Not sure why $line =~ s/\G //g; didn't work, but I'll figure it out. Thanks for pointing me in the right direction folks! Last update: $line =~ s/^\s+\|\s+$//g; is the regex I was looking for. That does the trick. Thank you all again, I really appreciate the help!	[reply]

Replies are listed 'Best First'.

Re^4: Extracting full digits from a range
by smw6181 (Initiate) on Aug 06, 2012 at 14:23 UTC

Well it's good to hear my coding is right.....and I tried removing all whitespace, still produces a blank output. Same with putting a \n after @range. I'm completely confused now though. printing out $line also produces '', so it seems that something's going wrong with parsing the original infile. Guess that's where I need to look. Thanks for confirming my basic code is right folks.

Found it. It's definitely whitespace at the end of the line in the text file. Not sure why $line =~ s/\G //g; didn't work, but I'll figure it out. Thanks for pointing me in the right direction folks!

Last update: $line =~ s/^\s+|\s+$//g; is the regex I was looking for. That does the trick. Thank you all again, I really appreciate the help!

[reply]