perl program?

Question

Code:
open (NGC_Input_File,"ngc_update.xml");

Problem:
I'm new in perl and i have a code above. but i wanted to add where it will pick up any file that starts with ngc (ngc*.xml). I tris experimenting by adding * and othre stuff but it wont work plase help??

Also is it possible to add a directory. Let say \perl\bin in the code? if so how?

Answer 1

This question (your question!) got answered pretty well just the other day:



https://answersrip.com/question/index?qid=20080530223212AA5vVk6



Otherwise, to basically repeat what was said, the best way of doing what you want would be something like:



$dir = "/whatever/dir/you/want"; #or "C:\whatever\dir" if you're in Windows

if(opendir(DIR,$dir)) {

foreach my $filename (readdir DIR) {

if($filename =~ /ngc.*\.xml$/i) {

if(open(NGC_Input,"$dir/$filename")) {

#do whatever you want

close (NGC_Input);

} else {

print "Could not open $dir/$filename!\n";

}

}

}

} else {

print "Couldn't open $dir!\n";

}



#Of course, switch the / for \ if you're using windows where you reference $dir/$filename!



DaveE

Answer 2

You can't open any file, you have to find any file, then open a specific file among those you found. That's not Perl, that's programming - in any language.



To add a directory, just add it:



open (NGC_Input_File,"/perl/bin/ngc_update.xm...

Answer 3

Please note that on Windows, "C:\whatever\dir" is invalid. You want either



'C:\whatever\dir'



or



"C:\\whatever\\dir"



or best yet



'C:/whatever/dir'