Execution of a script

[waytoperl]

If filerun.pl executed from Dist_Folder, there is no error

C:\Users\Admin\Desktop\Dist_Folder\perl filerun.pl

#!/usr/bin/env perl -w

use strict;
use warnings;
use Diagnostics;

my $file = "InFile.csv";

{
open( INFILE, "$file" ) 
    or die("Can not open input file: $!");
close(INFILE);
}

I'm trying to run filerun.pl in a Zombie folder and getting error message!!!

C:\Program Files\Zombie>perl C:\Users\Desktop\Dist_Folder\filerun.pl

Can not open input file: No such file or directory at ...line xyz

Dependency in Zombie folder make's me to run script from Zombie. Thanks for help!

[choroba]

You need FindBin.

use FindBin;

my $file = $FindBin::Bin . '/InFile.csv';
open my $INFILE, '<', $file or die $!;

[waytoperl]

Still same error

C:\Program Files\Zombie>perl C:\Users\Desktop\Dist_Folder\filerun.pl
Can not open input file: No such file or directory at ...line xyz

[Anonymous Monk]

I know what I mean. Why don't you?

Did you check the contents of the $file variable? e.g. die("Can not open input file $file: $!");

[Anonymous Monk]

That depends on whether the file will always be located at C:\Users\Admin\Desktop\Dist_Folder\InFile.csv, or whether the file will always be located in the same directory as the script. In the first case, you can just specify the full filename, e.g. my $file = "C:\\Users\\Admin\\Desktop\\Dist_Folder\\InFile.csv";

In the second case:

use File::Spec;
use FindBin;
my $file = File::Spec->catfile($FindBin::Bin, "InFile.csv");

[waytoperl]

Thank you! complete path to InFile.csv and File::Spec worked