Zadanie domowe - Perl: Zastosowanie modu l´ ow
Marcin Junczys-Dowmunt 14 marca 2008
Zadanie 1
Zainstalowa´c w domu modu l Lingua::Identify zgodnie z instrukcja z wyk ladu. Na podstawie, dokumentacji ograniczy´c dzia lanie pakietu do dw´och jezyk´, ow, polskiego i angielskiego. ˙Zadne inne jezyki nie maj, a by´, c aktywne.
Prosze poda´, c prawdopodobie´nstwa zda´n ”Wyborcza ujawnia: Putin rozgrywa NATO ” i ”Chaos in Tibet: Protests in Lhasa become violent ” dla obu jezyk´, ow.
Punkty: 3
Zadanie 2
Wybra´c dowolny modu l (inny ni˙z Lingua::Identify) z archiwum CPAN, dzia l ”String Language Text Processing”, i opisa´c jego dzia lanie, podstawowe funkcje i zastosowanie do jezykoznaw-, stwa.
Punkty: 3
Zadanie 3
Napisa´c ma ly program wykorzystujacy powy˙zej opisany modu l., Punkty: 4
Na nastepniej stronie: po lowa rozwi, azania wzorcowego zadania 5 z poprzedniego zestawu.,
1
Zadanie 4 – Pierwsza po lowa wzorcowego rozwi aziania
,Zd. 5 PerlRef2
1 use strict ;
use Data :: Dumper ; my $ng rams = {};
5
open( NGRAMS , " < ngrams . txt " );
while ( < NGRAMS >) { my $act = $ngra ms ;
my @words = s p l i t (/\ s +/ , $_ );
10 f o r e a c h my $word ( @words ) { i f ( e x i s t s ( $act - >{ $word })) {
$act - >{ $ w o r d } = {};
}
$a ct = $act - >{ $ w o r d };
15 }
$act - >{ " # S TOP # " } = 1;
}
p r i n t STDERR Dumper ( $n grams );
Prosze doko´, nczy´c program.
Punkty: 6
2