Re: Re: Newline Delimited Input

[Anonymous Monk]

Here is the part I took out:

#Displays total size of specified path (total includes subfolders)
foreach my $dir (@parts) {
   my $total;
   print "\nWalking $dir\n";
   find(sub { $total += -s }, $dir);
   $total = ($total / 1024) / 1024;
   $total = sprintf("%0.2f", $total);
   print OUT "$dir, $total, mb, \n";
}
print "\n\tOutput created.\n";
close(OUT);

[CukiMnstr]

so you are not chomp()ing $dir... are you getting something like

Unsuccessful stat on filename containing newline at...

when you run your script? Did you try chomp()ing the filenames as I suggest here?

hope this helps,

[Anonymous Monk]

Thanks for your help!! Adding chomp ( @parts = <IN> ); got everything working correctly.