Thread Win32::Clipboard und UTF-8 (3 answers)
Opened by rosti at 2012-12-09 17:28

payx
 2012-12-10 15:30
#164092 #164092
User since
2006-05-04
564 Artikel
BenutzerIn

user image
Hallo rosti,

die Lösung von GwenDragon kannte ich nicht, als ich vor dem Problem stand.

Da Du nach einem Workaround fragst, dies war meine Lösung mit winclip aus dem outwit-Paket:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use File::Temp qw/ tempfile tempdir cleanup /;
         
my $zwAbl = "Ümläutö Россия 中國...";

my $tmpDir = tempdir(CLEANUP => 1);
my ($clip, $tmpFile) = tempfile( DIR => $tmpDir );
binmode($clip, ":utf8");
print $clip $zwAbl;

system("winclip.exe -c -m -b $tmpFile");

close($clip);
cleanup($clip);


Wahrscheinlich ist das ziemlich hässlich. Es funktioniert aber seit geraumer Zeit.

Grüße
payx

View full thread Win32::Clipboard und UTF-8