#!/usr/bin/perl 

###################################
#Emoji ファイルの処理 
###################################

	my $sodir =".";
	my @filelist;
	undef @filelist;
	$my $finished_so = "F8A0.gif";
	@filelist = @{&readDir($sodir)};


	while(@filelist){
	my $file = shift(@filelist);
	print $file."\n";
	}


###############################################################
#Open SODIR , reading all file , sort for old file into first element of array 
#@param $sodir         : directory that ARIAL SERVER put file into
#       @filelist      : array of all file 
#@return  @filelist    : array of reading file  
#         1            : read directory success but can't find any file
#         0            : fail on reading directory
###############################################################

sub readDir{

	my ($sodir)= shift;
	my (@filelist);
	
	my $file;
	
	if(opendir(DIR, "$sodir")){
		while ($file = readdir DIR){
			next unless (-f "$sodir"."$file");
			
			if ( $file !~ /lock$/ ){
				# set filename to array without *.lock
				push(@filelist,$file);
			}

		}
			
		close DIR;
	
		if(@filelist){
			@filelist = sort(@filelist);
		}else{
			@filelist = 1;
		}
		
	}else{
		@filelist = 0;
	}
	
	return \@filelist;
}