fixing sequence script

1 files changed, 17 insertions, 3 deletions

diff --git a/dir-to-movie.pl b/dir-to-movie.pl
index 5bcb738..aff33d6 100755
--- a/dir-to-movie.pl
+++ b/dir-to-movie.pl
@@ -20,6 +20,19 @@ GetOptions (
 )
 or die("Error in command line arguments\n");
 
+sub read_dir {
+  my $path = shift;
+  my $files = [];
+  opendir my $dir, $path or die "Cannot open directory: $!";
+  while (my $file = readdir($dir)) {
+    if ($file =~ /\.png$/) {
+      push @$files, $file;
+    }
+  }
+  closedir $dir;
+  return $files;
+}
+
 $tag =~ s/\....$//;
 
 print "tag: $tag\n";
@@ -34,8 +47,9 @@ if (! -e "$path/$tag") {
 chdir("$path/$tag");
 
 my $i = 0;
-my $ls  = `ls -1v *.png`;
-my @lines = split('\n', $ls);
+
+
+my @lines = read_dir('.')
 my $pwd = `pwd`;
 chomp $pwd;
 $pwd .= '/';
@@ -43,7 +57,7 @@ print $pwd . "\n";
 
 mkdir('./tmp');
 
-for my $line (@lines) {
+for my $line (sort @lines) {
   if ($line !~ /$prefix/) {
     next;
   }