How to pass a file to GetOpt

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have a program where I need to pass a filename (and location) to the program. How can I do this? I have read the GetOpt doc so please don't point me there. My command line is as follows:

perl myprogram.pl -input C:\inputfilelocation -output C:\outputfileloc
+ation
[download]

My GetOptions look like this:

GetOptions('input=s' => \$input,'output=s' => \$output);
[download]

Basically I need to figure out how to access that file in a while loop that I have which iterates over the lines in the file and puts each into $_

Comment on How to pass a file to GetOpt Select or Download Code

Replies are listed 'Best First'.
Re: How to pass a file to GetOpt by aaron_baugher (Curate) on Jul 10, 2012 at 22:21 UTC
Your `GetOptions` call puts the pathnames of the files in the variables `$input` and `$output`. So now you just need to open those files and do stuff with them: `open my $in, '<', $input or die $!; open my $out, '>', $output or die $!; while(<$in>){ # do stuff to $_ print $out $_; # or whatever output you come up with }` [download] Aaron B. Available for small or large Perl jobs; see my home node.	[reply] [d/l] [select]
Re^2: How to pass a file to GetOpt by Anonymous Monk on Jul 10, 2012 at 23:26 UTC
Aaron, I am getting an error: "No such file or directory at 5MinInterval2.pl line 11" Line 11 contains: `open my $in, '<', $input or die $!;` [download] Any ideas as to why?	[reply] [d/l]
Re^3: How to pass a file to GetOpt by Anonymous Monk on Jul 10, 2012 at 23:46 UTC
Hi, Change `open my $in, '<', $input or die $!; to open my $in, '<', $input or die "$! - [$input]";` [download] to see what you are actually trying to open. J.C.	[reply] [d/l]
Re^4: How to pass a file to GetOpt by Anonymous Monk on Jul 11, 2012 at 00:27 UTC
Re^5: How to pass a file to GetOpt by kcott (Archbishop) on Jul 11, 2012 at 00:57 UTC
Some notes below your chosen depth have not been shown here
Re: How to pass a file to GetOpt by onelesd (Pilgrim) on Jul 10, 2012 at 21:58 UTC
Are you using linux? `perl -e 'while (<>) {chomp;print "=>$_<\n";}' < infile > outfile` [download]	[reply] [d/l]
Re^2: How to pass a file to GetOpt by Anonymous Monk on Jul 10, 2012 at 22:01 UTC
Sorry, forgot to clarify, I am using Windows command prompt. I am looking for how to do this in the code. For example: `while ($input){` [download] Only that doesn't work.	[reply] [d/l]
Re^3: How to pass a file to GetOpt by onelesd (Pilgrim) on Jul 10, 2012 at 22:09 UTC
`# usage: # script.pl /path/to/infile /path/to/outfile die "infile not defined\n" if (! defined $ARGV[0]) ; die "outfile not defined\n" if (! defined $ARGV[1]) ; open my $infile, "< $ARGV[0]" or die "can't read $ARGV[0]\n" ; open my $outfile, "> $ARGV[1]" or die "can't write $ARGV[1]\n" ; while (<$infile>) { chomp ; print $outfile "=>$_<\n" ; }` [download]	[reply] [d/l]

Back to Seekers of Perl Wisdom