Extract file extension: Difference between revisions
m
→{{header|Perl}}: Fix link: Perl 6 --> Raku
(Added AppleScript solutions.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: Fix link: Perl 6 --> Raku) |
||
Line 1,517:
=={{header|Perl}}==
{{trans|
<lang perl>sub extension {
my $path = shift;
|