#! /usr/bin/perl -w
#
#   LQamitpardesi.pl
#
#   Sort input list by filetype and write to sublist files.
#
#   Usage: LQamitpardesi.pl myfile.txt
#
#
use strict;
my %fileTypes;

    while(<>){
        chomp $_;
        if( $_ =~ m/.+\.([^\/]+)$/ ){
            push @{$fileTypes{$1}}, $_;
        }
    }
    
    foreach my $type ( sort keys %fileTypes ){
        my $typeFile = $type."_files.LQamitpardesi";
        open( FILE, ">$typeFile" ) || die "Cannot open '$typeFile' for output : $!\n";
        foreach my $fileName ( @{$fileTypes{ $type }} ){
            print FILE $fileName,"\n";
        }
        close FILE;
    }