Code:
#!/usr/bin/perl
$putword=0;
$q63=7;
&getfile("query63.txt");
sub getfile {
open (FILE, $_[0]);
my @data = <FILE>;
close (DATA);
for($i=0; $i<=$#data;$i++){
$index=$i;
@words=split(/\s+/,$data[$index]);
$count=$#words;
Leave a comment: