49 lines
1013 B
Perl
49 lines
1013 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
my $port = 9001;
|
||
|
|
my $target = "localhost";
|
||
|
|
|
||
|
|
# ----------------------------------------------------------
|
||
|
|
|
||
|
|
use Net::OpenSoundControl::Client;
|
||
|
|
use Data::Dumper qw(Dumper);
|
||
|
|
use Getopt::Std;
|
||
|
|
|
||
|
|
my $client;
|
||
|
|
my $verbose = 0;
|
||
|
|
|
||
|
|
# ----------------------------------------------------------
|
||
|
|
#
|
||
|
|
# MAIN
|
||
|
|
#
|
||
|
|
getopts('d:v', \%options);
|
||
|
|
|
||
|
|
if (defined $options{"d"}) {
|
||
|
|
# print Dumper $options{"d"};
|
||
|
|
($target, $port) = split /:/, $options{"d"};
|
||
|
|
}
|
||
|
|
$verbose = 1 if (defined $options{"v"});
|
||
|
|
|
||
|
|
print "trashing ", $target, " on port ", $port, "\n";
|
||
|
|
|
||
|
|
$client = Net::OpenSoundControl::Client->new(
|
||
|
|
Name => "testkontrol",
|
||
|
|
Host => $target, Port => $port)
|
||
|
|
or die "Could not start client: $@\n";
|
||
|
|
|
||
|
|
print Dumper $client if $verbose;
|
||
|
|
|
||
|
|
my ($foo, $knum, $kval);
|
||
|
|
|
||
|
|
for ($foo=0; $foo<128; $foo++) {
|
||
|
|
$kval = int(128*rand());
|
||
|
|
$knum = int(128*rand());
|
||
|
|
|
||
|
|
print "$knum -> $kval\n" if $verbose;
|
||
|
|
$client->send(['/kontrol/v', 'i', $knum, 'i', $kval]);
|
||
|
|
sleep(1);
|
||
|
|
}
|
||
|
|
|
||
|
|
# ----------------------------------------------------------
|
||
|
|
|