I can see three errors:

• open(my OUT, ... should be open(my $OUT, ...  Or open(OUT, ....  Same for IN.

• Your file name to open for output is a directory  ('/Users/mgavibrathwaite/Desktop/').  That doesn't work.

• You're printing to STDOUT instead of to the $OUT file handle you tried to open.  That would be print $OUT "foo\n";

open(my OUT,">$peptstr1")  or die  $!;
open(my IN,$genpept);
[download]

my OUT and my IN are syntax errors and won't work.    You need to use scalar variables for that to work.    Also, you should always verify that the file opened correctly:

open my $OUT, '>', $peptstr1 or die "Cannot open '$peptstr1' because: 
+$!";
open my $IN,  '<', $genpept  or die "Cannot open '$genpept' because: $
+!";
[download]

while (my $records = <IN>){
    #$i++;
    chomp $records;
    my @genpept;
    push @genpept,($records); 
    print"Processed infile record: $.\n";
    foreach(@genpept){
        print "$_";
    }
}
[download]

You don't print to the OUT filehandle so everything is going to STDOUT and not your file.

See (and read) print.

I keep getting the error that my filehandle is closed.

No such class OUT at pm-889248 line 5, near "open(my OUT"
syntax error at pm-889248 line 5, near "my OUT,"
No such class IN at pm-889248 line 6, near "open(my IN"
syntax error at pm-889248 line 6, near "my IN,"
[download]

For future reference:

• Only post code that you have actually run and copy/paste the code into your node.
• Copy/paste the actual error message you received when running the code into your node.
• If you need data to show the issue, trim the data to the smallest amount that shows the error and copy/paste that into your node or, even better, include the data in your sample code (in a __DATA__ section perhaps).

As the Previous reply put it so succinctly.

"True laziness is hard work "

I'm going to copy my post to the previous question in the hopes that it might help you. My guess is you are over thinking the problem.

QUESTION: Hello everyone. I need some help with creating and writing to a new file.

I have a text file in the following format: sku, itemname, itemdescription, price

I want to read each line, then write the contents of the line to a new file that is named sku.html

So for the following example source file: 123, soap, dove, $1.99 I want to save that line to a file named 123.html

I have the basics of how to open and read a file, and how to write to a new file. I just can't figure out how to name the new files dynamically after the sku field. Any suggestions are greatly appreciated. Thanks!

My post:

It's

$chunklookup = "Datafile.txt";

open(DGRAB, $chunklookup) || die ("Could not open $chunklookup (DATA T
+O GRAB) \n"); while (<DGRAB>) {push(@datain, $_)};close DGRAB;

foreach @datain {$currentline =$_;
@linesplitfetch = split(/,/, $currentline); 
open (MYFILE6, '>@linesplitfetch[0].html')|| die ("Could not open @lin
+esplitfetch[0].html \n");
print MYFILE6 "Durka Durka Durka $currentline here ";close(MYFILE6);
                } # foreach @datain
[download]

Go Team America!