Shell Programming and Scripting

hi,
need help in writing a script in perl.
requirement :
1. Search for the files in a particular folder
2. search for a string in the file names
3. Delete the file which matches the string.

Ex: if the folder is C:\TEST
and the folder has 5 files like
2009ABCG.txt
2009MNO.txt
5241AAA.txt
1111aaa.txt and
2009PQR.txt

the matching string is "2009", then i want to delete all the files with the names %2009% i.e files 2009ABCG.txt,2009MNO.txt and 2009PQR.txt should be deleted from the folder C:\TEST

If you take a look at the help for the unlink function (perldoc -f unlink), you'll notice an example there using wildcards. Possibly the one-liner

Code:

$ perl -e 'unlink <C:\\TEST\\2009*.txt>;'

could do the job.
Or, since you're apparently on Windows, try

Code:

C:\TEST\> del 2009*.txt

thanks a lot ... the first one worked..