PERL problem – Regulární výrazy – Fórum – Programujte.com

## vektory_slov jsou imaginarni radky souboru

## uniq jsou unikatni slova souboru

## potrebuji vytvorit vektor hodnot pro kazdy radek jeslti existuje nebo neexistuje

## ahoj ty blbec clovek

1.   1     1   0       1

Budu rad za kazdou radu jak na to

use Data::Dumper;

@uniq = (ahoj, ty, blbec, clovek);
@vektory_slov = ([ahoj, ty, clovek], [ahoj, ty],[blbec, ty],[ahoj, blbec]);
@vektory_tp = ();

$uniq_ref = \@uniq;
$slova_ref = \@vektory_slov;

foreach my $doc (@$uniq_ref){

    
    foreach my $slovo (@$slova_ref){
    
        my $count = grep(/^$slovo$/,????????????????);
        ###################################
         my $value = ($count == 0 ? 0 : 1 );
        push(@vektor,$value);
    }
    push(@vektory_tp,[@vektor])
}

print Dumper @vektory_slov;
print Dumper @vektory_tp;

print @vektory_tp;

jak na co... vubec sem nepochopil o co se vlastne snazis ... nejaky puvodni zadani by nebylo?

nebo jestli nestaci ty unikatni slova hodit jako klice do hashe a vyhledavat jednotliva slova v nem

#2 KIIV
 Vcera jsem na to prisel, potreboval jsem vektory existence (0, 1) pro kazdy radek

use Data::Dumper;

@uniq = (ahoj, ty, blbec, clovek, hjo);
@vektory_slov = ([ahoj, ty, clovek], [ahoj, ty],[blbec, ty],[ahoj, blbec]);
@vektory_tp = ();
$pocet_radku = 4;

@vektory_tp = ();
for $radek (0..$pocet_radku-1){
    my @vektor = ();
    foreach my $u_slovo (@uniq){    
            my $count = grep(/^$u_slovo$/,@{@vektory_slov->[$radek]});
            my $value = ($count == 0 ? 0 : 1 );
            push(@vektor,$value);
            }
            
        push(@vektory_tp,[@vektor]);
    }

    
print Dumper @vektory_slov;
print Dumper @vektory_tp;