Extract file extension: Difference between revisions

m (→‎{{header|Perl 6}}: simplified and fixed the code to satisfy the task)
Line 647:
/path/to.my/file -> ""
file.odd_one -> ""
</pre>
 
=={{header|Phix}}==
<lang Phix>function getExtension(string filename)
for i=length(filename) to 1 by -1 do
integer ch = filename[i]
if ch='.' then return filename[i..$] end if
if find(ch,"\\/_") then exit end if
end for
return ""
end function
 
constant tests = {"mywebsite.com/picture/image.png",
"http://mywebsite.com/picture/image.png",
"myuniquefile.longextension",
"IAmAFileWithoutExtension",
"/path/to.my/file",
"file.odd_one"}
for i=1 to length(tests) do
printf(1,"%s ==> %s\n",{tests[i],getExtension(tests[i])})
end for</lang>
{{out}}
<pre>
mywebsite.com/picture/image.png ==> .png
http://mywebsite.com/picture/image.png ==> .png
myuniquefile.longextension ==> .longextension
IAmAFileWithoutExtension ==>
/path/to.my/file ==>
file.odd_one ==>
</pre>
 
Line 674 ⟶ 703:
</pre>
 
 
 
=={{header|Python}}==
7,820

edits