Help create perl script for delete file/folder

sportivo888 · 12-05-2007, 06:52 PM

Hi Everyone,
i have not yet found any post for runing a script to delete file or folder.

o/s red hat

can anyone help me out with this.

Thank in advances

Steven

Slokunshialgo · 12-05-2007, 07:02 PM

Do you want the folder pre-set, passed in through command line, or...?

Because the only way that pops to mind would basically be running a shell command from inside the script, which would make the script itself useless.

sportivo888 · 12-05-2007, 07:16 PM

Quote:

Originally Posted by Slokunshialgo

Do you want the folder pre-set, passed in through command line, or...?

Because the only way that pops to mind would basically be running a shell command from inside the script, which would make the script itself useless.

yes folder to be preset and run frmo the command.

do you have an example of delete script?

ghostdog74 · 12-05-2007, 07:38 PM

in perl?

Code:

perldoc -f rmdir
perldoc -f unlink

sportivo888 · 12-05-2007, 08:36 PM

#!/usr/bin/perl.exe

$delete = "untitled folder"; #folder named (untitled folder) to be delete in the same directory

opendir (DIR,".");
@files = grep(/$delete/, readdir (DIR));
closedir (DIR);

foreach $file (@files)
{
rmdir $file;
}

finally i have solve my problem,
i don't know why that (unlink) won't work.
but rmdir can do the job

Thank you for help ghostdog74 & slokunshialgo
very appreciate

Steven

chrism01 · 12-05-2007, 11:33 PM

This explains unlink: http://perldoc.perl.org/functions/unlink.html.
Also, what's with perl.exe? That an MS thing. In Unix it's (normally) just perl (no extension).