Przetwarzanie języka naturalnego

2

Temat: Zaawansowane typy danych i

ich persystencja

Zadania:

Data:

Autor: Paweł Kopeć

1 2

3

4

5

6

7

13 X 2014

Autor: Adrian Makuch

e e

e

m h

m

17:30-19:45

Zadanie 1. Tablice

Zadanie polegało na utworzeniu tablicy oraz wypisaniu jej na ekran monitora.

Zadanie 2. Hash

Program ma na celu pobranie od użytkownika wartości o typie klucz -> wartość i zapisanie

ich w tablicy hash

#!/usr/bin/perl -w
@tablica = ('ASK','Logika','PJN','Seminarium','GAIT');
foreach(@tablica){
print "$_,"
}
$, = ";";
print "\n";
print "@tablica";
$" = ',';
print "\n";
print "@tablica";
print "\n";

#!/usr/bin/perl
%tablica = ();
for($i=0;$i<5;$i++){
print "podaj hashtag i warto

ść

odzielone enterem\n";

my $pierwsza = <STDIN>;
my $druga = <STDIN>;
chomp ($pierwsza);
chomp($druga);
$tablica{$pierwsza} = $druga;
}
@hashe = keys(%tablica);
#chomp(@hashe);
foreach(@hashe){
print "$_---$tablica{$_}\n";
}

Zadanie 3. Znajdź liczbę

Program jest rozwinięciem poprzedniego. Różnica jest taka, że pola klucz-wartość są

podawane jako jeden ciąg słów i należy je rozdzielić za pomocą wyrażeń regularnych.

Zadanie 4. Sprawdź istnienie

Program ma za zadanie przeanalizować pola w tablicy hashy za pomocą funkcji exist() oraz

defined().

Jeżeli warunek uwzględni funkcję exists() wówczas dla zdefiniowanych kluczy oraz dla undef
będzie zwrócone 1 natomiast jeżeli warunek uwzględni funkcję defined() to tylko dla
zdefiniowanych kluczy będzie zwrócone 1

#!/usr/bin/perl
%tablica = ();
for($i=0;$i<5;$i++){
print "podaj hashtag i warto

ść

odzielone kropka\n";

my $pobrane = <STDIN>;

chomp ($pobrane);
$pobrane =~ /(\D+)(\.)(\D+)/;
$tablica{$1} = $3;
}
@hashe = keys(%tablica);
#chomp(@hashe);
foreach(@hashe){
print "$_---$tablica{$_}\n";
}

#!/usr/bin/perl
my %plan = (
"Poniedzialek" => {
"ASK-WYK" => "07:30-09:45",
"ASK-LAB" => "14:30-16:45",
"PJN-lab" => "17:45-20:15"},
"Wtorek" => {
"Logika-WYK" => "07:30-09:45"},
"Sroda" => {
"PJN-WYK" => "11:00-13:15",
"Seminarium" => "14:00-16:15"},
"Czwartek" => "brak",
"Piatek" => {
"GAiTT-LAB"=>"10:00-12:00",
"GAiTT-wyklad"=>"18:00-20:15"},
"Sobota" => undef,
"Niedziela" => undef
);
print "Poniedziałek (exist): " . exists($plan{Poniedzialek})."\n";
print "Poniedziałek (defined): " .
defined($plan{Poniedzialek})."\n";
print "Sobota (exist): " .exists($plan{Niedziela})."\n";
print "Sobota (defined): " .defined($plan{Niedziela})."\n";

Zadanie 5. Drzewa binarne

Program ma za zadanie utworzyć drzewo binarne, po czym zapisać jego strukturę do pliku

tekstowego.

#!/usr/bin/perl -w
use strict;
open(PLIK, ">plik.txt") || die "Nie mo

ż

na otworzy

ć

pliku";

my($trunk, $n);
while ($n++ < 20) { insert($trunk, int(rand(1000)))}
print PLIK "Pre order: "; pre_order($trunk); print PLIK "\n";
print PLIK "In order: "; in_order($trunk); print PLIK "\n";
print PLIK "Post order: "; post_order($trunk); print PLIK "\n";
close PLIK;
exit;
sub insert {

my($drzewo, $val) = @_;

unless ($drzewo) {

$drzewo = {};

$drzewo ->{VALUE} = $val;

$drzewo ->{LEFT} = undef;

$drzewo ->{RIGHT} = undef;

$_[0] = $drzewo;

return;

}
if ($drzewo ->{VALUE} > $val) {

insert($drzewo ->{LEFT}, $val)

}elsif ($drzewo ->{VALUE} < $val) {

insert($drzewo ->{RIGHT}, $val)

}else{

warn "dup insert of $val\n"
}

}
sub in_order {

my($drzewo) = @_;

return unless $drzewo;

in_order($drzewo ->{LEFT});
print PLIK $drzewo ->{VALUE}, " ";
in_order($drzewo ->{RIGHT});

}
sub pre_order {

my($drzewo) = @_;

return unless $drzewo;

print PLIK $drzewo ->{VALUE}, " ";

pre_order($drzewo ->{LEFT});

pre_order($drzewo ->{RIGHT});

}
sub post_order {

my($drzewo) = @_;

return unless $drzewo;
post_order($drzewo ->{LEFT});

post_order($drzewo ->{RIGHT});

print PLIK $drzewo ->{VALUE}, " ";

}

Zadanie 7. Propozycja ćwiczenia

Implementacja prostego tłumacza dla paru słów. Zdanie dzielone jest na poszczególne słowa

następnie zapisywane w tablicy hash. Następnie słowo jest zamieniane na odpowiadające mu w
innym języku.

#!/usr/bin/perl -w
%polish2english = (

go => "id

ę

",

to => "do",

home => "domu"

regular => "regularne"

);

%english2polish = reverse %polish2english;
do{
print "Podaj zdanie do przetlumaczenia \n> ";
$line = <>;
if($line =~ /\w/){

$line =~ s/^\s*//;

$line =~ s/\s*$//;

@words = split /\s+/, $line;

foreach $word ( @words ){

if(exists($dutch2english{$word})){

print "$polish2english{$word} ";

}

elsif(exists($english2dutch{$word})){

print "$english2polish{$word} ";

}

else{

print "[$word] "; # unknown

}

}

print "\n";

}
}while($line =~ /\w/);