gistfile1.pl

for ($i =0; $i < @$lineList; $i++) {
	foreach $list (@attr) { #示唆単語それぞれについて
		$j =1; #ベクトル未追加フラグ
			
		foreach $line (@{$list}) {
			if ($$lineList[$i] =~ /$line/) {
				push @{$vector[$i]}, 1;
				$j =0;
				last;
			}
		}
			
		if ($j) {
			push @{$vector[$i]}, 0;
		}
	}
} #各行ベクトル化終了