Shell Programming and Scripting

perl -e '
        #!/usr/bin/perl -w
        use strict;
        my @infos;
        foreach my $file ( <*> )
        {
           next if ( -d $file ) ;
           my @d = localtime ((stat($file))[9]);
           push @infos, sprintf("%04d.%02d.%02d %02d.%02d.%02d %s\n", $d[5]+1900,$d[4]+1,$d[3],$d[2],$d[1],$d[0],$file);
        }
        
        print sort @infos;
        ' |
while read date time file
do
   printf "%s %s : " $date $time
   if [ "$date" != "$prv_date" ]
   then
      prv_date=$date;
      first_file=$file;
      echo "$file"
   else
      echo "cat $file >> $first_file && rm $file"
   fi
done