How to Refresh a directory using PERL?

compskian has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How to Refresh a directory using PERL? by johngg (Canon) on Nov 16, 2007 at 16:02 UTC
You can use rewinddir. Given a directory `dirA` containing `fileA` to `fileE` the script below goes through the directory until it reaches and unlinks `dirA/fileB` then does a `rewinddir` then shows directory contents again. Note that `fileB` no longer appears. `use strict; use warnings; my $dir = q{dirA}; opendir my $dh, $dir or die qq{opendir: $dir: $!\n}; while ( my $file = readdir $dh ) { if ( $file eq q{fileB} ) { print qq{unlinking $dir/$file ... }; unlink qq{$dir/$file} or die qq{unlink: $dir/$file: $!\n}; print qq{done\n}; last; } else { print qq{$dir/$file\n}; } } print qq{+++++++++++\n}; rewinddir $dh; while ( my $file = readdir $dh ) { print qq{$dir/$file\n}; }` [download] Here's the output. `dirA/. dirA/.. dirA/fileA unlinking dirA/fileB ... done +++++++++++ dirA/. dirA/.. dirA/fileA dirA/fileC dirA/fileD dirA/fileE` [download] I hope this is of use. Cheers, JohnGG	[reply] [d/l] [select]
Re: How to Refresh a directory using PERL? by jettero (Monsignor) on Nov 16, 2007 at 14:57 UTC
You probably have to tell IE (or the file explorer, or whatever) to do that? Otherwise I'm not even sure what you mean. I doubt there's a way to do it besides maybe something like Win32::GUIRobot. -Paul	[reply]
Re: How to Refresh a directory using PERL? by cengineer (Pilgrim) on Nov 16, 2007 at 15:42 UTC
Re-read the contents of the directory	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks