CopyItemStateToClipboard.pl

From CockosWiki

#
# CopyItemStateToClipboard.pl
#

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");
}