Re^2: making a text file to an hash array

in reply to Re: making a text file to an hash array
in thread making a text file to an hash array

This node falls below the community's threshold of quality. You may see it by logging in.

Comment on Re^2: making a text file to an hash array

Replies are listed 'Best First'.
Re^3: making a text file to an hash array by cdarke (Prior) on Jul 14, 2010 at 13:38 UTC
Please use <code> tags. Your code appears like this: `#!/usr/bin/perl use strict; use warnings; my %hasharray; open (my $fh,"<","c:/datanew.txt") or die ("can't open the file"); while(my $line= <$fh>){ #print $_ if ($line=~ /[a-z]/){ my $n=$line; #print $n; my $nextline= <$fh>; # print $nextline; if($nextline =~/[a-z]/){ #**/here I am having problem.. i don't klnow hopw to co +mplete the code**/ } else { my @d =split(',',$nextline); } } }` [download] You appear to have a sequential file, and are reading records in two places. Your data, as displayed, appeared to be just one line with fields separated by a space. Can you please clarify the data format?	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: making a text file to an hash array
by cdarke (Prior) on Jul 14, 2010 at 13:38 UTC

#!/usr/bin/perl
use strict;
use warnings;

my %hasharray; 
open (my $fh,"<","c:/datanew.txt") or die ("can't open the file"); 
while(my $line= <$fh>){ 
    #print $_
    if ($line=~ /[a-z]/){ 
         my $n=$line; 
         #print $n; 
         my $nextline= <$fh>; 
         # print $nextline; 
         if($nextline =~/[a-z]/){ 
             #****/here I am having problem.. i don't klnow hopw to co
+mplete the code****/ 
         } 
         else { 
             my @d =split(',',$nextline); 
         } 
     } 
}
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom