jis wrote: > On Aug 13, 7:46 pm, [EMAIL PROTECTED] (John W. Krahn) wrote: >> jis wrote: >> >>> I simply could not open a file which is in the same path as my script >>> is. >>> i could open the file if i explicitly mention the path. but i dont >>> want that.. >>> my script is.. >>> use strict; >>> use warnings; >>> my $fil="pdef.txt"; >>> open(DEFILE,"<$fil")|| die "Couldnt open pdef file - $!\n"; >>> Any idea what is wrong..( the file exists in the same path as the >>> script is.) >> >> Try this: >> >> use FindBin '$Bin'; >> >> my $fil = "$Bin/pdef.txt"; >> open DEFILE, '<', $fil or die "Couldnt open $fil - $!\n"; > > It did not make any difference. > it says there is no such file in the $Bin path.. > Ofcourse there is no such file in that path. i want to look in the > path iam executing the code. > > Any one can hep me!
Have you tried what John suggested? It wouldn't say 'there is no such file in the $Bin path', as the value of $Bin would be interpolated into the file string. You have said that your file is in the same path as your script. What FindBin does is to let you find out what that path is. The problem is most likely that your program's current working directory is not the directory containing the program file. You could try this as an alternative use FindBin; chdir $FindBin::Bin or die $!; Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
