Re: 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,

Comment on Re: Newline Delimited Input Select or Download Code

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]
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]


go ahead... be a heretic
	PerlMonks