Unicode characters modified when using Perlscript for rename

Help & Support
1

I am having problems with unicode characters using perl rename scripts, it works with VBscript though.

The Filename is "GRΣΣK UNCOVΣRΣD 1x10 - Schools Out.avi", but it comes back as "GRSSK UNCOVSRSD 1x10 - Schools Out.avi" from the perlscript below:

[code]@script perlscript

use utf8;

sub Rename_GetNewName2 {
my( $_, $strFilePath, $fIsFolder, $strOldName, $strNewName )=@;

return $_;
}[/code]
But remains unchanged by the VBscript below:

[code]@script vbscript
Option Explicit

Function Rename_GetNewName ( strFileName, strFilePath, _
fIsFolder, strOldName, ByRef strNewName )
' Add script code here
strNewName=strFileName
End Function[/code]
Have anyone else had a similar problem and if so how did you solve it.
Could there be some problem with DOpus not actually sending the correct name to the script, or is this a problem with ActivePerl's scriptengine implementation.
Hopeful for some help or input.

P.S.
The Script:

[code]@script perlscript

use utf8;

sub Rename_GetNewName2 {
my( $_, $strFilePath, $fIsFolder, $strOldName, $strNewName )=@;

if ( "GRΣΣK UNCOVΣRΣD" eq "GRSSK UNCOVSRSD" ) { return "Equal" }
return "Unequal";
}
[/code]
returns "Equal".
D.S.
Sincerly Stefan
[/code]

2

I don't know for sure but I suspect Opus passes UTF-16 strings to all script engines (since that's what VBScript's string type uses and there's no special code in Opus for any particular scripting language). What then happens would be up to the script engine.

That would mean it's probably either a problem with ActivePerl or an option you have to enable in ActivePerl or at the top of the script, perhaps. I don't know much about ActivePerl and I've only used Perl itself briefly so I'm not sure what to look for.