$inputfile1 =~ s/\s*\z//;

$inputfile1 is your filehandle, but you are editing that filehandle and thus corrupting it. Try:

sub mainCSV {
    open (my $inputfile1, '<', "$inputfile") or die "Unable to open $i
+nputfile1: $!";

    my %hash;

    while( my $line = <$inputfile1> ) {
        $line =~ s/\s*\z//;
        my @arrayfile1 = split /,/, $line;
        my $keyfile1 = shift @arrayfile1;
        $hash{$keyfile1} = \@arrayfile1;
    }

    print %hash;
    close $inputfile1;
}
[download]

Thanks for responding BrowerUk. After updating, i have error of uninitiated value. I think it might be because of input CVS file have initial few lines of dummy values Any way I can create hash table to start from starting at particular line in CSV file.

Use of uninitialized value in hash element at perl_program.pl line 67, <$inputfile1> line 3 (#1) (W uninitialized) An undefined value was used as if it were already defined. It was interpreted as a "" or a 0, but maybe it was a mistake. To suppress this warning assign a defined value to your variables. To help you figure out what was undefined, perl tells you what operation you used the undefined value in. Note, however, that perl optimizes your program and the operation displayed in the warning may not necessarily appear literally in your program. For example, "that $foo" is usually optimized into "that " . $foo, and the warning will refer to the concatenation (.) operator, even though there is no . in your program. Use of uninitialized value in hash element at perl_program.pl line xx, <$inputfile1> line 4 (#1) Use of uninitialized value in hash element at perl_program.pl line xx, <$inputfile1> line 5 (#1) Use of uninitialized value in hash element at perl_program.pl line xx, <$inputfile1> line 6 (#1) Use of uninitialized value in hash element at perl_program.pl line xx, <$inputfile1> line 7 (#1)

Any way I can create hash table to start from starting at particular line in CSV file.

Read past the lines you want to skip before entering your while loop.

(Ps. If you can't work out how to do that for yourself, you might consider employing someone to write this code for you.)

---

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.

G'day waytoperl,

Firstly, for manipulation of CSV files in Perl, you should be using one of the Text::CSV family of modules. There's all sorts of gotchas with CSV files, including field separators embedded within the field data, various quoting mechanisms and so on. All this has already been coded in these modules, so there's really no point in reinventing this particular wheel.

While I haven't used it myself, it looks like "Text::CSV::Hashify - Turn a CSV file into a Perl hash", which is built upon Text::CSV, might handle your specific requirements in this instance.

[Aside: Your OP mentions an error: you don't show the error nor do you provide runnable code that we could use to reproduce it. For future reference, in order to help us help you, please follow the guidelines in "How do I post a question effectively?".]

Hi waytoperl,
..I'm getting error..
What error or (type) are you getting?
Use either Text::CSV or Text::CSV_XS for your CSV file, instead of split function. Then the rest is just manipulation of dataset.

perl perl_program.pl readline() on unopened filehandle at perl_program.pl line xx (#1) (W unopened) An I/O operation was attempted on a filehandle that was never initialized. You need to do an open(), a sysopen(), or a socket() call, or call a constructor from the FileHandle package. GLOB(0x5fc7210)ARRAY(0x603a130)

line xx: is $hash{$keyfile1} = \@arrayfile1;

You're confusing the filehandle with the record being read.

Using more code than is really necessary to demonstrate the point:

open my $filehandle, ...

while (my $record = <$filehandle>) {
    chomp $record;  # Remove the newline
    # Do stuff with the record text, e.g.
    my @fields = split /$field_separator/ => $record;
    ...
}
[download]

That would normally be coded more succinctly as:

open my $filehandle, ...

while (<$filehandle>) {
    chomp;  # Remove the newline
    # Do stuff with the record text, e.g.
    my @fields = split /$field_separator/;
    ...
}
[download]

In the second code fragment, all instances of $record (from the first fragment) are now $_, which (being the default for chomp, split, and many other functions) can be omitted.

And, just in case it wasn't obvious, that was for general enlightenment, not a recommendation to attempt your own version of Text::CSV. :-)

-- Ken