Pulseaudio Application Mute Toggle Script

muteapp.pl

#!/usr/bin/perl
use warnings;
use strict;

open(PALIST, '-|', 'pacmd list-sink-inputs');
my $index = undef;
my $set_mute_to = undef;
while (<PALIST>) {
    if (/^\s*index: ([0-9]+)$/) {
        $index = $1;
    }
    if (/^\s*muted: (yes|no)$/) {
        $set_mute_to = 1;
        $set_mute_to = 0 if ($1 eq 'yes');
    }
    if (/^\s*application\.name = "(.*)"$/) {
        if ($1 eq $ARGV[0]) {
            system('pacmd', 'set-sink-input-mute', $index, $set_mute_to);
        }
    }
}