tenpn

param([int]$changelistNum, [string]$destBranch)

$regex = "^\s+//[^/]+(/\S+)\s"
$sourceFiles = p4 change -o $changelistNum | select-string $regex | %{$_.matches[0]}

$sourceFiles | %{
	$sourcePath = (p4 where $_.groups[0].value.trim()).split(' ')[2];
	$destPath = (p4 where ($destBranch + $_.groups[1].value)).split(' ')[2];
	p4 edit $destPath;
	copy $sourcePath $destPath;