home *** CD-ROM | disk | FTP | other *** search
- #! perl
-
- use RISCOS::Filespec;
- use RISCOS::File qw(globlist);
- use Getopt::Std;
-
- getopts('r');
-
- die "$0 [-r] [files]" unless @ARGV;
-
- &rm (globlist( @ARGV ));
-
- $fails = 0;
-
- sub rm
- {
- foreach( @_ )
- {
- if( $opt_r && -d $_ )
- {
- rm( glob "$_.*" );
- unless( rmdir $_ )
- {
- warn "$_ $!\n";
- $fails++;
- }
- }
- else
- {
- unless( unlink $_ )
- {
- warn "$_ $!\n";
- $fails++;
- }
-
- }
- }
- }
-
- $fails != 0;