http://qs321.pair.com?node_id=14745


in reply to variable comparison

$file="filename.txt"; $ext=".txt";
if ($file =~ /$ext$/){ print "match\n"} 
else 
{print "nomatch\n"}

[download]

In Section Seekers of Perl Wisdom