File extension is in extensions list: Difference between revisions
m
→{{header|Perl 6}}: Combine into a single file for ease of testing
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Combine into a single file for ease of testing) |
|||
Line 1,074:
<lang perl6>sub check-extension ($filename, *@extensions) {
so $filename ~~ /:i '.' @extensions $/
# Testing:
my @files= <
MyData.a## MyData.tar.Gz MyData.gzip MyData.7z.backup MyData... MyData
| |||