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

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

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

[download]
#!/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);
}

[download]

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

[download]
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!

Replies are listed 'Best First'.
Re: Execution of a script
by choroba (Cardinal) on Sep 26, 2014 at 16:01 UTC
    You need FindBin. 
    use FindBin;

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

    [download]
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]

      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]
[reply]
[d/l]
[select]
Re: Execution of a script
by Anonymous Monk on Sep 26, 2014 at 16:02 UTC

    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");

    [download]
[reply]
[d/l]
[select]

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

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom