In PERL how do you open different text files with the same program?

Question

Say my code is:
# PRO1.pl
open (MYFILE, 'data.txt');
while () {
chomp;
print "$_\n";
}
close (MYFILE);

But I want to run all these from this PRO1.pl program

$ perl PRO1.pl part1.txt
$ perl PRO1.pl part2.txt
$ perl PRO1.pl part3.txt

What do I change 'data.txt' so I can use any text file with this program.

I know I can be change it to a variable
$fileName='data.txt'
open (MYFILE, $fileName);

But how do I get a parameter into the program so that it will open the parameter file and not the variable file.

Answer 1

@ARGV is your friend! it has all the parameters to a command line perl program !

so $ARGV[0] is equal to part1.txt or other file names!

Answer 2

One solution would be to create a file containing the names of files to be processed by the program. The data file used as a parm on the command line would provide the program with a list of files to be processed. Open that file, read the names of the files into an array, close the file, and then open and process the files named in the array.

Answer 3

the previous individual had a solid answer. The "." potential any character and the "+" potential a million or extra characters. The . is seen a grasping trend matching image. putting the () will placed the matched call in $a million. Use a loop to flow interior the direction of the array.