How can I use $ARGV[1] in replace of 'data.txt' or something like $ARGV[1] in this code:

# PRO1.pl
open (MYFILE, 'data.txt');
while (<MYFILE>) {
chomp;
print "$_\n";
}
close (MYFILE);

so that I can run any text file in this program.

For example

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

Do I have to change this code completely, or can I do something like replace 'data.txt' with '$ARGV[1]'.

__________________

---

each arg is a different element in @ARGV

starting at 0 and going off to infinity!

__________________
Powered by Yahoo! Answers

---

perl numbers the args starting at zero, so you would do this:

open (MYFILE, $ARGV[0]);

(Other languages reserve arg0 for the program name. In pearl, $0 is set to the name of the script.)

__________________

---