benkasminbullock

cpanm (App::cpanminus) 1.5014 on perl 5.014002 built for MSWin32-x86-multi-thread
Work directory is C:\Users\ben/.cpanm/work/1341288740.4912
You have make C:\strawberry\c\bin\dmake.exe
You have LWP 6.03
You have C:\Cygwin\bin\tar.exe, C:\Cygwin\bin\gzip.exe and C:\Cygwin\bin\bzip2.exe
You have C:\Cygwin\bin\unzip.exe
Searching Alien::Base on cpanmetadb ...
-> FAIL Finding Alien::Base on cpanmetadb failed.
Searching Alien::Base on search.cpan.org ...
--> Working on Alien::Base

benkasminbullock

cpanm (App::cpanminus) 1.5014 on perl 5.014002 built for MSWin32-x86-multi-thread
Work directory is C:\Users\ben/.cpanm/work/1341288740.4912
You have make C:\strawberry\c\bin\dmake.exe
You have LWP 6.03
You have C:\Cygwin\bin\tar.exe, C:\Cygwin\bin\gzip.exe and C:\Cygwin\bin\bzip2.exe
You have C:\Cygwin\bin\unzip.exe
Searching Alien::Base on cpanmetadb ...
-> FAIL Finding Alien::Base on cpanmetadb failed.
Searching Alien::Base on search.cpan.org ...
--> Working on Alien::Base

benkasminbullock

use warnings;
use strict;
while (<DATA>) {
    print;
}
exit;
__DATA__
This is super.
__END__
Doy is right.

benkasminbullock

#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use Text::Ngrams;
use utf8;
my $string = "the quick brown fox jumped over the lazy dog";
my $ng3 = Text::Ngrams->new ();
$ng3->process_text ($string);
print $ng3->to_string ();
my $string2 = <<EOF;

benkasminbullock

# get t-score
$tscore = $ngrams->tscore;
 
# list bigrams according to t-score
foreach ( sort { $$tscore{ $b } <=> $$tscore{ $a } } keys %$tscore ) {
 
        print "$$tscore{ $_ }\t" . "$_\n";
 
}

benkasminbullock

#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use Text::Ngram qw/ngram_counts/;
binmode STDOUT, ":utf8";

use utf8;
my $string = "the quick brown fox jumped over the lazy dog";
my $ng3 = ngram_counts ($string);
for my $k (keys %$ng3) {

benkasminbullock

#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use Lingua::Gram;
binmode STDOUT, ":utf8";
use utf8;

my $string = "the quick brown fox jumped over the lazy dog";
my $string2 = <<EOF;
いろは

benkasminbullock

ｘＤＳＬ [エックスディーエスエル] /(n) {comp} x digital subscriber line/xDSL/EntL2158180X/
エックスディエスエル /(n) {comp} xDSL/EntL2286200X/

アーティクル /(n) article/EntL1013590X/
アーテクル /(n) article/EntL2539460/

アービタ /(n) arbiter/EntL1013730X/
アビタ /(n) arbiter/EntL2433790X/

アーレフ /(n) Aleph (new name of religious group Aum Shinrikyo)/EntL2135120X/

benkasminbullock

#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use lib '/home/ben/projects/Text-Fuzzy/blib/lib';
use lib '/home/ben/projects/Text-Fuzzy/blib/arch';
use Text::Fuzzy 'fuzzy_index';
use Lingua::JA::Moji ':all';
my @kana;
use utf8;

benkasminbullock

#!/home/ben/software/install/bin/perl
use warnings;
use strict;
my $edict = '/home/ben/data/edrdg/edict2';
my @lines;
binmode STDOUT, ":utf8";
open my $in, "<:encoding(EUC-JP)", $edict or die $!;
while (<$in>) {
    chomp;
    $lines[$.] = $_;