{"id":4583,"date":"2024-02-16T03:17:08","date_gmt":"2024-02-16T10:17:08","guid":{"rendered":"https:\/\/www.sheer.us\/weblogs\/?p=4583"},"modified":"2024-02-16T03:18:10","modified_gmt":"2024-02-16T10:18:10","slug":"tascamslurp","status":"publish","type":"post","link":"https:\/\/www.sheer.us\/weblogs\/programming\/perl\/tascamslurp","title":{"rendered":"TascamSlurp"},"content":{"rendered":"

This is a perl script that can be used to pull all the files from a DA-6400 and automatically divide them into folders based on their timestamps<\/p>\n


\n#!\/usr\/bin\/perl
\n$|=1;<\/p>\n
$targetbase = “~\/DownloadLocation”;
\n$host = “tascam”;<\/p>\n
use Net::FTP;
\nuse Time::Local qw ( timelocal );<\/p>\n
use Data::Dumper;<\/p>\n
print “Creating FTP object\\n”;<\/p>\n
$ftp = Net::FTP->new($host, Debug => 0) || die “Can’t connect to tascam”;
\nprint “Logging in\\n”;<\/p>\n
$ftp->login(“DA-6400″,”DA-6400”) || die “Can’t login ” , $ftp->message;
\nprint “CWD\\n”;
\n$ftp->cwd(“\/ssd\/DA Files”) || die “Cannot CWD: ” . $ftp->message;
\nprint “BIN\\n”;
\n$ftp->binary() || die “Cannot set to bin mode: ” . $ftp->message;<\/p>\n
my $list = $ftp->ls();<\/p>\n
my $maxtime = 0;
\nmy $timestamps = {};<\/p>\n
# determine newest date
\nforeach $file (@{$list}) {
\n        next if($file eq “.”);
\n        next if($file eq “..”);
\n        next if(!($file =~ \/.*.wav\/));<\/p>\n
        my $unixtime = getFileTimestamp($file);
\n        my $ts = getTimestamp($unixtime);<\/p>\n
        print “file: [$file] ts: $ts\\n”;
\n        $maxtime = $unixtime if($unixtime > $maxtime);
\n        $timestamps->{$unixtime} = 1;
\n}
\nforeach $ts (keys %{$timestamps}) {<\/p>\n
        $targetstub = getTargetDir($ts);
\n        $targetdir = $targetbase . ‘\/’ . $targetstub;
\n        if(! -d $targetdir) {
\n                mkdir $targetdir;
\n        } else {
\n                next;
\n        }<\/p>\n
        $targetdir .= “\/ftp”;
\n        if(! -d $targetdir) {
\n                mkdir $targetdir;
\n        }<\/p>\n
        chdir $targetdir;
\n        print “$ts – Writing to $targetdir\\n”;<\/p>\n
        foreach $file (@{$list}) {
\n                next if($file eq “.”);
\n                next if($file eq “..”);
\n                next if(!($file =~ \/.*.wav\/));<\/p>\n
                my $unixtime = getFileTimestamp($file);
\n                if($unixtime == $ts) {
\n                        print “Fetching $file ..”;
\n                        $ftp->get($file);
\n                        print (-s $file);
\n                        print “\\n”;
\n                }
\n        }
\n}<\/p>\n
sub getTargetDir
\n{
\n        my $time = shift;
\n        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
\n        return sprintf(“%02d%02d%04d”,$mon+1,$mday,$year+1900);
\n}<\/p>\n
sub getTimestamp
\n{
\n        my $time = shift || time();<\/p>\n
        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
\n        return sprintf(“%02d\/%02d\/%04d-%02d:%02d:%02d”,$mon+1,$mday,$year+1900,$hour,$min,$sec);
\n}<\/p>\n
sub getFileTimestamp
\n{
\n        my $file = shift;
\n        my ($prefix, $datetime, $take, $channel, $name) = split(\/_\/, $file);<\/p>\n
        print “Datetime: [$datetime]\\n” if($main::debug);<\/p>\n
        my ($date, $time) = split(\/-\/, $datetime);
\n        print “Date: [$date]\\n” if($main::debug);<\/p>\n
        my ($yy, $MM, $dd) = $date =~ \/(\\d{4})(\\d{2})(\\d{2})\/;
\n        my ($hh, $mm, $ss) = $time =~ \/(\\d{2})(\\d{2})(\\d{2})\/;<\/p>\n
        print “yy: [$yy] mm: $mm dd: $dd\\n” if($main::debug);<\/p>\n
        $MM -= 1;
\n        $yy -= 1900;<\/p>\n
        my $unixtime = timelocal($ss, $mm, $hh, $dd, $MM, $yy);<\/p>\n
        return $unixtime;
\n}
\n<\/PRE><\/p>\n","protected":false},"excerpt":{"rendered":"
This is a perl script that can be used to pull all the files from a DA-6400 and automatically divide them into folders based on their timestamps #!\/usr\/bin\/perl $|=1; $targetbase = “~\/DownloadLocation”; $host = “tascam”; use Net::FTP; use Time::Local qw ( timelocal ); use Data::Dumper; print “Creating FTP object\\n”; $ftp = Net::FTP->new($host, Debug => 0) […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4,3],"tags":[],"_links":{"self":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/4583"}],"collection":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/comments?post=4583"}],"version-history":[{"count":2,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/4583\/revisions"}],"predecessor-version":[{"id":4585,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/4583\/revisions\/4585"}],"wp:attachment":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/media?parent=4583"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/categories?post=4583"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/tags?post=4583"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}