Re: Re: Newline Delimited Input

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]

Comment on Re: Re: Newline Delimited Input Download Code

Replies are listed 'Best First'.
Re: Re: Re: Newline Delimited Input by CukiMnstr (Deacon) on Jun 11, 2003 at 07:07 UTC
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]
Re: Re: Re: Re: Newline Delimited Input by Anonymous Monk on Jun 11, 2003 at 13:11 UTC
Thanks for your help!! Adding `chomp ( @parts = <IN> );` got everything working correctly.	[reply] [d/l]


Pathologically Eclectic Rubbish Lister
	PerlMonks