Help for this page

Select Code to Download


  1. or download this
    my %seen;
my @exts = grep !$seen{$_}++, map /\.([^.]+)\z/, @file_names;