How to pass a file to GetOpt

[Anonymous Monk]

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

My GetOptions look like this:

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

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 $_

[aaron_baugher]

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
}

[Anonymous Monk]

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 $!;

Any ideas as to why?

[Anonymous Monk]

Hi,

Change

    open my $in, '<', $input or die $!; 
to
    open my $in, '<', $input or die "$! - [$input]";

to see what you are actually trying to open.

J.C.

[onelesd]

Are you using linux?

perl -e 'while (<>) {chomp;print "=>$_<\n";}' < infile > outfile

[Anonymous Monk]

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){

Only that doesn't work.

[onelesd]

# 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" ;
}