use File::Basename;
I am working with Ubuntu and using the Terminal application under gnome. The perl instruction I am using is
my $directname = dirname($ARGV[0]);
The actual command line varies but here is an example
perl Get_SQL_Template_file_for_updating.pl '/media/MR23M19P/MySQL Dat
+afiles/Dufferin Hi-Lands/ ' 26 DH M
If I place the Space after the last slash before the single quote all is fine. If I do not, the dirname subroutine assumes that the directory is
/media/MR23M19P/MySQL Datafiles
It assumes that the
MySQL
is a file name since it ends with a space and ignores the rest of the parameter, but does pick up the other parameters on the command line.
Any Assistance will be greatly appreciated. |