UNIX for Dummies Questions & Answers

apple
mango

start
abc
def
apple
ghi
end
start
cba
fed
mango
ihg
end

start
abc
def
apple
is a fruit
ghi
end
start
cba
fed
mango
is a fruit
ihg
end

while read first
do 
  while read second
  do
     echo $second >> newfile.txt
     [ "$second" = "$first" ] && echo "is a fruit" >> newfile.txt
  done<secondfile.txt
done<firstfile.txt

awk 'BEGIN{while(getline line <"file1"){pat=pat"|"line;}sub(/^\|/,"",pat);}$0~pat{$0=$0"\nis a fruit";}1' file

my %fruit_name;
open(FRUIT,File_A) or die "Cannot open File_A File \n";
open(REC,File_B) or die "Cannot open File_B File \n";
while(my $friut_line = <FRUIT>) {
 $friut_line =~s/[\n\r]//g;
 $fruit_name{$friut_line} = 'is a fruit';
}
while(my $line=<REC>) {
$line =~s/[\n\r]//g;
print "$line\n";
 if (exists $fruit_name{$line} ) {
  print "$fruit_name{$line}\n";
 }
}

awk 'NR==FNR{A[$1];next}1;$1 in A{print "is a fruit"}' fileA fileB