listing image sequences

[jbklug]

I need to list a directory containing an image sequence and make this:

filename.001.tif
filename.002.tif
filename.003.tif
filename.004.tif
etc...

look like this:

filename.[001-100].tif

I also need to deal with missing frames, so if frame 5 is missing it would list:

filename.[001-004].tif
filename.[006-100].tif

Eventually, I'll also have to deal with renaming these sequences (preserving the frame #'s)

Please have a look at my crappy code and tell me what you think I'm doing wrong/right:

#!/usr/bin/php -q
<?php

if (!isset($_SERVER["argv"][1])) {
   $d=".";
} else {
    $d=$_SERVER["argv"][1];
}

function listdir($dir) {

$list=array();

if ($handle = opendir($dir)) {
   while (false !== ($file = readdir($handle))) {
       if ($file != "." && $file != "..") {
	   $list[]="$file";
       }
   }
   closedir($handle);
}
   return $list;
}

function fparts($filename) {
$parts=array();
$parts = split("\.",$filename);

return $parts;
}

$filelist=listdir($d);

foreach ($filelist as $x) {

// create array of the filename elements (name.#.ext)
$filename=fparts($x);

// if there are 3 elements in $filename, it must be part of
// a sequence, so create vars from the elements
if (count($filename) == 3) {

    $base=$filename[0];
	$frame=$filename[1];
	$ext=$filename[2];

// make note of the first frame
if (!isset($firstframe)) {
	$firstframe="$frame";
}

// now that we know it's a seq and we have the first frame,
// loop over the rest, and find the last frame.
foreach ($filelist as $y) {
    $yfilename=fparts($y);
    $ybase=$yfilename[0];
    $yext=array_pop($yfilename);

    if ($ybase==$base) {
        $frameLast=$yfilename[1];
        }
    }
if ( $frame == $firstframe ) {
	echo "$base.[$frame-$frameLast].$ext\n";
}
} else {
   echo $x."\n";
}
}

?>

[suntra]

Have a look at this, I think it should do it !

/* for($intA = 0; $intA < 101; $intA++) {
	$intNumero	= (($intA < 100) ? '0' : '') . (($intA < 10) ? '0' : '') . $intA;
	$resFichier	= fopen('./Test_PHPB/filename.' . $intNumero . '.tif', 'w+');
	fclose($resFichier);
 }*/
 function Retourner_Nouvelle_Serie($intDebut, $intFin) {
	$strDebut	= ((($intDebut < 100) ? '0' : '') . (($intDebut < 10) ? '0' : '') . $intDebut);
	$strFin		= ((($intFin < 100) ? '0' : '') . (($intFin < 10) ? '0' : '') . $intFin);
 	return sprintf('%s.[%s-%s].tif', $GLOBALS['strNom_Fichier'], $strDebut, $strFin);
 }
 $strNom_Fichier	= 'filename';
 $resRepertoire		= opendir('./Test_PHPB/');
 $intDebut		= 0;
 $intFin		= 0;
 while(!(($strFichier = readdir($resRepertoire)) === false)) {
	$strMotif	= '#^[^\.]*?\.([\d]{3})\.tif$#';
	$arrCaptures	= array();
	if(($strFichier <> '.') && ($strFichier <> '..') && (preg_match($strMotif, $strFichier, $arrCaptures) > 0)) {
		$intNumero	= intval($arrCaptures[1]);
		if($intNumero > ($intFin + 1)) {
			echo Retourner_Nouvelle_Serie($intDebut, $intFin) . "<br />\n";
			$intDebut	= $intNumero;
		}
		$intFin		= $intNumero;
	}
 }
 echo Retourner_Nouvelle_Serie($intDebut, $intFin) . "<br />\n";
 closedir($resRepertoire);

The first part, which is "commented" was simply used to create the files, I let it there just in case... I deletes some files (013, 047, 053, 064, 079), and it gave me this output :

filename.[000-012].tif
filename.[014-046].tif
filename.[048-052].tif
filename.[054-063].tif
filename.[065-078].tif
filename.[080-100].tif

As you can see, that's all in French ! English should not always rule ! 😛 😛

Debut = Start
Fin = End
Nom_Fichier = Filename
Fichier = File
Repertoire = Directory

Let me know if it helped 😉

[jbklug]

yes, that does seem to work. I'll just need to adapt it a bit to make it deal with different filenames, changes in number padding, etc...

ie:
there could be file sequences like so:

filename.[001-100].tif
sequenceA.[01-40].tga
sequenceBv1.[1002-2478].dpx
testSeq.[1-5].jpg

It might take me some time to understand your code because I'm a big dummy. :-)
Merci!