LeeC79 has asked for the wisdom of the Perl Monks concerning the following question:
I am writing a little script to move all files from one directory to another, and delete the files from the original directory. This is what I have so far,
My question is, how do I check if the system command was succesful? Or, I only want to delete the file if it's been copied... Thanks monks.my $Error_Path = "\\\\server\\share\\new_error\\"; my $EAI_Error_Path = "\\\\server\\share\\old_error\\"; my $file; opendir DIR, $EAI_Error_Path; my @file = grep {$_ ne '.' && $_ ne '..'} readdir DIR; closedir DIR; foreach $file (@file){ $cmd = "copy \"".$EAI_Error_Path.$file[$i]."\" \"". $Error_Path.$f +ile[$i]."\""; system ($cmd) or die "?"; unlink $EAI_Error_Path.$file; $i++; } close MYFILE;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Check if "System" was succesful
by matija (Priest) on Apr 09, 2004 at 13:46 UTC | |
Re: Check if "System" was succesful
by arden (Curate) on Apr 09, 2004 at 13:42 UTC | |
Re: Check if "System" was succesful
by vaevictus (Pilgrim) on Apr 09, 2004 at 13:39 UTC | |
Re: Check if "System" was succesful
by JSchmitz (Canon) on Apr 09, 2004 at 13:50 UTC | |
Re: Check if "System" was succesful
by esskar (Deacon) on Apr 09, 2004 at 13:41 UTC | |
Re: Check if "System" was succesful
by vaevictus (Pilgrim) on Apr 09, 2004 at 13:42 UTC | |
by BazB (Priest) on Apr 09, 2004 at 16:20 UTC | |
Re: Check if "System" was succesful
by nimdokk (Vicar) on Apr 09, 2004 at 14:02 UTC |
Back to
Seekers of Perl Wisdom