use File::Basename; #### my $directname = dirname($ARGV[0]); #### perl Get_SQL_Template_file_for_updating.pl '/media/MR23M19P/MySQL Datafiles/Dufferin Hi-Lands/ ' 26 DH M #### /media/MR23M19P/MySQL Datafiles #### MySQL
## my $directname = dirname($ARGV[0]); ##
## perl Get_SQL_Template_file_for_updating.pl '/media/MR23M19P/MySQL Datafiles/Dufferin Hi-Lands/ ' 26 DH M ##
## /media/MR23M19P/MySQL Datafiles ##
## MySQL