raider2001
Technical User
It works for me:
The following code:
my $file ="test.html";
my @title = split (/\./, $file);
print "file=$file\n";
print "title1=$title[1]\n";
Outputs:
file=test.html
title1=html
The following code:
my $file ="test.html";
my @title = split (/\./, $file);
print "file=$file\n";
print "title1=$title[1]\n";
Outputs:
file=test.html
title1=html