Re^2: Syntax Error deleting files and folders in a directory

in reply to Re: Syntax Error deleting files and folders in a directory
in thread Syntax Error deleting files and folders in a directory

You missed one...

while (my$file = @files) {...} is an infinite loop, and the variable $file will just be a number, not a filename. The intention was probably something like while (my $file = shift @files) {...}, though the following would be safer: while (@files) {my $file = shift @files; ...} (just in case there is a file named "0").

use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

Comment on Re^2: Syntax Error deleting files and folders in a directory Select or Download Code

Replies are listed 'Best First'.
Re^3: Syntax Error deleting files and folders in a directory by NetWallah (Canon) on Dec 28, 2013 at 20:05 UTC
Aah - yes - I had not read that file down ... thanks. Also - these (completely incorrect) loops: `FILE: while (my$file = @files) { for my $kp (@KEEP) { next FILE if $file eq $kp; } rmtree($deletes); } return; }` [download] can be written in a more perlishly as : `my %keepers = map {$_=>1} @KEEP ; # OR declare %KEEP instead of @KEEP rmtree ([grep {not $keepers{$_} }@files]);` [download] (untested). You probably need to chomp(@files) too, before this operation. File::Path documentation prefers remove_tree over the legacy rmtree. If your eyes hurt after you drink coffee, you have to take the spoon out of the cup. -Norm Crosby	[reply] [d/l] [select]
Re^4: Syntax Error deleting files and folders in a directory by smturner1 (Sexton) on Dec 30, 2013 at 04:27 UTC
Well, now I have much to think about. I will repost in a couple of days once I scour my Programming Perl manual.	[reply]
Re^3: Syntax Error deleting files and folders in a directory by smturner1 (Sexton) on Dec 30, 2013 at 04:25 UTC
Thank you Tobyinc	[reply]

In Section Seekers of Perl Wisdom