view release on metacpan or  search on metacpan

ex.pl  view on Meta::CPAN

die <<EOD
Usage: $0 starttrack=T tracks=N first_meth=M
  T >= 1, N, M >= 0 are numbers.  N tracks are processed, with methods M..M+N-1
EOD
   unless @ARGV == 3
	 and my($tr) = ($ARGV[0] =~ /^starttrack=(\d+)$/)
	 and my($nt) = ($ARGV[1] =~ /^tracks=(\d+)$/)
	 and my($fm) = ($ARGV[2] =~ /^first_meth=(\d+)$/);

open F, '>> tracks-labels' or die;
sub cb($$$) { my ($n, $id, $label) = (shift, shift, shift);
	      $n += $tr - 1;
	      print F "track=$n\t==>\t$label\n";
              recode sprintf('audio_%02d.wav', $n), $id, $label}
print DoubleBlind::process_shuffled \&cb, 6, 0;
close F or die;

# The double-blind labels are appended to the file `tracks-labels'.

# Reading and writing:

t/DoubleBlind.t  view on Meta::CPAN

$o = [sort @$o];
ok("@$o" eq "0 1 2 3");

$o = DoubleBlind::shuffle 6;
$o = [sort @$o];
ok("@$o" eq "1 2 3 4 5 6");

$o = (DoubleBlind::good_number 6, 3)**2;
ok(int($o) =~ /006$/);

sub pr($$$) { my($n,$i,$l) = @_; $l = int($l*$l); ok($l =~ /$i$/) }

DoubleBlind::process_shuffled \&pr, 3, 1;