File: example.pl

package info (click to toggle)
rplay 3.3.1-2
  • links: PTS
  • area: main
  • in suites: slink
  • size: 3,460 kB
  • ctags: 3,466
  • sloc: ansic: 41,361; makefile: 1,171; perl: 709; tcl: 345; sh: 294; java: 220
file content (10 lines) | stat: -rwxr-xr-x 138 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/perl

use RPlay;

$rp = new RPlay;
$rp->connect ("localhost");
$rp->play ("sound" => "bogus.au");
$rp->disconnect ();

exit 0;