view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

.gitignore
Changes
examples/benchmark.pl
examples/clipboard.pl
examples/converter.pl
examples/correspondent.pl
examples/ignore_addresses.pl
inc/Module/Install.pm
inc/Module/Install/AuthorRequires.pm
inc/Module/Install/AuthorTests.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
inc/Module/Install/Include.pm

examples/clipboard.pl  view on Meta::CPAN

use Lingua::EO::Orthography;
use Win32::Clipboard;


# ****************************************************************
# main routine
# ****************************************************************

sub main {
    my $converter = Lingua::EO::Orthography->new;
    my $clipboard = Win32::Clipboard->new;
    my $utf8      = find_encoding('utf8');

    die 'cliped data is not text'
        unless $clipboard->IsText;
    my $text = $clipboard->GetText;

    die 'GAAAAAAAAA, Win32::Clipboard::Set() does not accept UTF-8 string!!';

    $clipboard->Empty;
    $clipboard->Set( $converter->convert( $utf8->encode($text) ) );

    return;
}

main();

__END__

=pod

=head1 NAME

clipboard.pl - An example of converting string in clipboard of Win32

=head1 DESCRIPTION

This is an example of converting string in clipboard of Win32.

=head1 AUTHOR

=over 4

=item MORIYA Masaki, alias Gardejo

C<< <moriya at cpan dot org> >>,
L<http://gardejo.org/>