[原创代码] [Perl]对剪切板字符串等宽截取

use Encode;
use Win32::Clipboard;
use IO::Handle;
STDOUT->autoflush(1);
my $clip = Win32::Clipboard();
my $limit = 60;
my $str;
$str = $clip->GetText();

my ($a, $b);
my @arr;
foreach $b (split(/\r?\n/, $str)) {
    while (length($b) > $limit) {
        ($a, $b) = &cut_gbk($limit, $b);
        push (@arr, $a);
    }
    #最后部分
    push (@arr, $b);
}

$clip->Set( join("\r\n", @arr) );
print join("\n", @arr);
<STDIN>;

sub cut_gbk {
    my ($limit, $gstr) = @_;
    my $i;
    my $cut = 0;
    my $gstr_a;
    my $gstr_b;
    foreach $i (
        split("", decode('gbk', $gstr))
    ) {
        $cut++;
        $cut++ if (ord($i) >= 128);
        if ($cut >= $limit) {
            $gstr_a = substr($gstr, 0, $cut);
            $gstr_b = substr($gstr, $cut);
            last;
        }
    }
    return ($gstr_a, $gstr_b);
}
复制代码