#!/usr/local/bin/perl -w

use strict;
use warnings;
my $miniparDir = "home/sat/minipar";
my @dataArray;
my $parsedMiniparOutput;
my $searchWord;
my %dependentWord;
my @stopwords;
my %is_stopwords;
$searchWord = $ARGV[0];

open(OPENSTOPW,'stopwords.lst');
my $var = 0;
while(<OPENSTOPW>){
	chomp;
	push @stopwords, ($_);
}
foreach(@stopwords){
	$is_stopwords{$_} = 1;
}
close(OPENSTOPW);
open(OPENMY,'minipar.txt');

while(<OPENMY>){
	...
	my($firstWord,$relation, $secondWord)=split(/:/,$_);
	my($first,$firstPOS)=split(/\s/,$firstWord);
	my($secondPOS,$second)=split(/\t/,$secondWord);
	...
	if($is_stopwords{$second}){
		next;
	}
	
	my $entry = "$relation $firstPOS $second $secondPOS";
	$dependentWord{$entry}++;
	
}
close(OPENMY);
print %is_stopwords, "\n";