Hello,
You know in dos, you can search for a file by typing *.* or *.txt, using * as a wildcard? well, im trying to do the same thing with my perl script. I did atempt this and got this far:
$file = $ARGV[0];
$find = $ARGV[1];
$replace = $ARGV[2];
@split = split(/\./, $file);
opendir(DIR, ".");
if ($file = /\*\.\*/)
{
@format = grep(/\./, readdir(DIR)); # *.*
}
if ($file = ".\.\*")
{
@format = grep($split[0]./\../, readdir(DIR)); # test.*
}
if ($file = "\*\..")
{
@format = grep(/.\./.$split[1], readdir(DIR)); # *.txt
}
if ($file = ".\..")
{
@format = grep($split[0]./\./.$split[1], readdir(DIR)); # te
+st1.txt
}
$file_count = 0;
for $file (@format)
{
...
}
...
I cannot get it working quite right, i want the user to have the ability to use one of the following:
*.*
*.ext
file.*
file.ext
Thanks a ton
~Cody Woolaver