#!/usr/bin/perl
use strict;
use warnings;
for(my $i=351; $i<400; $i++){
my $filename = '/home/nikol123/indri-5.6/runquery/trec7_4collections.txt';
open(my $file, '<', $filename) or die "open: $!";
while ( <$file> )
{
my @lines = split(/\n/, $filename);
foreach my $line (@lines) {
if ($line = ' indri $i "_" ')
{
my $param = "
/home/nikol123/indri-5.6/4collections
print $line;
10
";
print $param;
}}}}
####
/home/nikol123/indri-5.6/4collections
print indri $i "_" ;
10
##
##
/home/nikol123/indri-5.6/4collections
indri 351 Falkland petroleum exploration ;
10