CopyItemStateToClipBoard pl

#
# Test - Item state to clipboard.pl
# sfzgeek
 
use strict;
use warnings;
 
use Win32::Clipboard;
 
my $Clipboard = Win32::Clipboard();
 
my $Item_ID;
my $State;
my $Result;
my $MaxLen = 16 * 1024;
 
# Exit if no items selected
if (! RPR_CountSelectedMediaItems(0)) {
	RPR_ShowConsoleMsg("No item selected\n");
	exit;
}
 
# Get first selected item pointer
$Item_ID  = RPR_GetSelectedMediaItem(0, 0);
 
# Retrieve item's state
($Result, undef, $State, undef) = RPR_GetSetItemState($Item_ID, "", $MaxLen);
 
# Show message
if ($Result == 1) {
	# Store state data in Windows clipboard
	$Clipboard -> Set($State);
	RPR_ShowConsoleMsg("Item state stored in clipboard\n");
}