Re: Execution of a script

You need FindBin.

use FindBin;

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

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: Execution of a script Download Code

Replies are listed 'Best First'.
Re^2: Execution of a script by waytoperl (Beadle) on Sep 26, 2014 at 16:08 UTC
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` [download]	[reply] [d/l]
Re^3: Execution of a script by Anonymous Monk on Sep 26, 2014 at 16:13 UTC
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: $!");`	[reply] [d/l] [select]
Re^4: Execution of a script by waytoperl (Beadle) on Sep 26, 2014 at 19:22 UTC
Need to use 2 modules or provide full path of input file. `use File::Spec; use FindBin;` [download] Thanks	[reply] [d/l]