<div>
Try this :<br />
&nbsp; ($Name, $Ext) = split (/./, $fname{$key});<br />
<br />
# The file name is stored in $Name and the extension is stored in $Ext.<br />
# if you want to join it again, <br />
<br />
$FileName = join('.',($Name,$Ext));<br />
<br />
Hope it helps.<br />

</div>


Try this :
  ($Name, $Ext) = split (/./, $fname{$key});

# The file name is stored in $Name and the extension is stored in $Ext.
# if you want to join it again,

$FileName = join('.',($Name,$Ext));

Hope it helps.


<div>
($Ext) = $fname{$Key} =~ m/\.(.*)$/;
</div>


<div>
This module will allow for more than 1 dot in the file name<br />
<br />
use File::Basename;<br />
($name,$path,$suffix) = fileparse($fullname,'\..*'<wbr />);<br />
<br />
If you want to limit the type of extentsions<br />
($name,$path,$suffix) = fileparse($fullname,('\.jp<wbr />g','\.gif'<wbr />));<br />
<br />

</div>


This module will allow for more than 1 dot in the file name

use File::Basename;
($name,$path,$suffix) = fileparse($fullname,'\..*');

If you want to limit the type of extentsions
($name,$path,$suffix) = fileparse($fullname,('\.jpg','\.gif'));



<div>
thank u so much for all ur help!!
</div>


<div>
<div class="content wysiwyg-content">
A filename is stored in the associative array &quot;$fname{$key}&quot;. For eg, either &quot;.gif or .jpg&quot; file.<br />
Then how do i extract only this &quot;.gif or .jpg out&quot; from the variable??<br />
This is because I want to replace the filename wif another name(.gif or .jpg).
</div>
</div>


A filename is stored in the associative array "$fname{$key}". For eg, either ".gif or .jpg" file.
Then how do i extract only this ".gif or .jpg out" from the variable??
This is because I want to replace the filename wif another name(.gif or .jpg).

Replacement of filename in variable

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.