tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

vid: Choose 100 next files - not 100 random files.

Browse source
This commit is contained in:
Ole Tange 2024-12-29 02:58:15 +01:00
parent 3b8d990b5d
commit 02896e1eb7
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
rrm/rclean
View file

@ -38,6 +38,10 @@ close RRM;
for my $size (keys %rrm) { for my $size (keys %rrm) {
for my $file (@{$size{$size}}) { for my $file (@{$size{$size}}) {
if(-e $file) { if(-e $file) {
if($opt::sizeonly) {
print "$file\n";
next;
}
my $md5 = Digest::MD5->new; my $md5 = Digest::MD5->new;
$md5->addpath($file); $md5->addpath($file);
my $sha = Digest::SHA->new(256); my $sha = Digest::SHA->new(256);

8
vid/vid
View file

@ -181,7 +181,13 @@ stdout() {
VIDEOPLAYER=${VIDEOPLAYER:-vlc --} VIDEOPLAYER=${VIDEOPLAYER:-vlc --}
if $stdin_is_terminal ; then if $stdin_is_terminal ; then
# STDIN is terminal => limit to 100 # STDIN is terminal => limit to 100
shuf | parallel --halt now,done=1 --lb -n100 -Xj1 $VIDEOPLAYER # shuf | parallel --halt now,done=1 --lb -n100 -Xj1 $VIDEOPLAYER
# Sort file name, select random starting point, print 100 next paths.
perl -e '$n = 100;
@l = sort { (split m{/}, $a)[-1] cmp (split m{/}, $b)[-1] } <>;
$r = rand(@l - --$n);
print @l[$r..($r+$n)];' |
parallel --halt now,done=1 --lb -n100 -Xj1 $VIDEOPLAYER
else else
parallel --halt now,done=1 --lb -Xj1 $VIDEOPLAYER parallel --halt now,done=1 --lb -Xj1 $VIDEOPLAYER
fi fi