in reply to Newline Delimited Input

well, as boo_radley already pointed out, 
@parts = <IN>;

[download]
reads the newline delimited file into the @parts array. The only thing I can think of that might be giving you trouble is that every line in @parts has a newline at the end, but I have no way of telling if this is the problem without seeing the part you took out... does changing the above line to 
chomp ( @parts = <IN> );

[download]
fixes your problem?

hope this helps,

Replies are listed 'Best First'.
Re: Re: Newline Delimited Input
by Anonymous Monk on Jun 11, 2003 at 05:07 UTC
    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);

    [download]
[reply]
[d/l]
      so you are not chomp()ing $dir... are you getting something like 
      Unsuccessful stat on filename containing newline at...

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

      hope this helps,

[reply]
[d/l]
[select]
        Thanks for your help!! Adding chomp ( @parts = <IN> ); got everything working correctly.
[reply]
[d/l]

In Section Seekers of Perl Wisdom