slashCAM Forum

Code: Alles auswählen

#!/bin/sh

for file in *.tif* ; do
	counter=$((counter+1))
        string=$counter
	if test $counter -lt 100 
		then string="0$string"
		fi
	if test $counter -lt 10 
		then string="0$string"
		fi
	string="tmp$string.tif"
	ln -s $file $string
	remove="$remove $string"
done

folder=$(pwd | sed -e "s/.*\///")

ffmpeg -i tmp%03d.tif -vcodec copy $folder.mov
rm $remove

Code: Alles auswählen

#!/bin/sh

for folder in [0-9][0-9]* ; do
	cd $folder && tiff2mov && mv $folder.mov .. && cd ..
done

Code: Alles auswählen

#!/usr/bin/perl

# files to process


# 1 - rename file according to EXIF timestamp, prefix hh:mm:ss-yy:mm:dd

opendir (DIR, '.') || die "working directory not found.\n";
@files = readdir(DIR);
closedir(DIR);

foreach $file(@files) {
	if ($file =~ /\.tif$/i) {
		$file_root = $file;
		$file_root =~ s/\....[.]*$//;
		system ("/usr/local/bin/exiv2 -r %H%M%S-%Y%m%d-$file_root mv $file") #|| die ("exiv2 utility not installed.\n");
		}
	}

# 2 - create folders for each contiguous image sequence, move files into them

opendir (DIR, '.') || die "working directory not found.\n";
@files = readdir(DIR);
closedir(DIR);

foreach $file(@files) {

	if ($file =~ /\.tif$/i) {
 		if (&checksum($file)-&checksum($previous_file) > 5) {
 			$dir_count++;
 			$dir_count_string = $dir_count;
 			if &#40;$dir_count < 10&#41; &#123;$dir_count_string="0$dir_count_string"&#125;
 			if &#40;$dir_count < 100&#41; &#123;$dir_count_string="0$dir_count_string"&#125;
 			if &#40;$dir_count < 1000&#41; &#123;$dir_count_string="0$dir_count_string"&#125;
 			$dir_name_string = $file;
 			$dir_name_string =~ s/-.*//;
 			$dir_name = $dir_count_string . '-' . $dir_name_string;
			print "new dir&#58; $dir_name\n";
 			system &#40;"mkdir $dir_name"&#41;;
 			&#125;
 		# print "$file -> $dir_name\n" ;
 		if &#40;$file =~ /&#91;0-9&#93;/&#41; &#123;
 			system &#40;"mv $file $dir_name/"&#41;;
 			&#125;
 		$previous_file = $file;
		&#125;
	&#125;



sub checksum&#123;
	my $string=$_&#91;0&#93;;
	$string =~ s/&#40;&#91;^-&#93;+&#41;-.*/\1/;
	# $string =~ s/&#40;..&#41;&#91;^-&#93;+-.*/\1/;
	return $string;
	&#125;