CoolInterview.com - World's Largest Collection of Interview Questions & Answers, FAQs, queries, sample papers, exam papers, dumps, what, why, how, where, when questions
Our Services
Get 9,000 Interview Questions & Answers in an eBook.




Get it now !!
Send your Resume to 6000 Companies

Search Interview Questions

Question: Given a file, count the word occurrence (case insensitive)

Answer: open(FILE,"filename");
@array=<FILE>;
$wor="word to be found";
$count=0;
foreach $line (@array)
{
@arr=split (/s+/,$line);
foreach $word (@arr)
{
if ($word =~ /s*$wors*/i)
$count=$count+1;
}
}
print "The word occurs $count times";



Category Perl Interview Questions & Answers - Exam Mode / Learning Mode
Rating (0.3) By 1355 users
Added on 5/19/2013
Views 10091
Rate it!
Question: Given a file, count the word occurrence (case insensitive)
Answer:

open(FILE,"filename");
@array=<FILE>;
$wor="word to be found";
$count=0;
foreach $line (@array)
{
@arr=split (/s+/,$line);
foreach $word (@arr)
{
if ($word =~ /s*$wors*/i)
$count=$count+1;
}
}
print "The word occurs $count times";
Source: CoolInterview.com

Answered by: Anjali gupta | Date: 6/11/2008 | Contact Anjali gupta Contact Anjali gupta

$infile='txt';

open INFILE,"$infile" or die ;

while(<INFILE>) {
chomp;
$r++ for $_ =~/the_word/g;
}
print "r $r ";

close INFILE;
Source: CoolInterview.com

Answered by: Ranjit Divakaran | Date: 10/27/2008 | Contact Ranjit Divakaran Contact Ranjit Divakaran

open(FILE,"file.txt");
@array=<FILE>;
$count=0;
foreach $line (@array)
{
chomp($line);
@a=split(//,$line);
foreach $line1 (@a)
{
print"$line1";
if( ($line1 !~ m/ /) ){
if ($line1 !~ m/s/) {
$count+=1;
}
}

}

}



print" $count"; Source: CoolInterview.com

Answered by: shivakumar shreeshail | Date: 11/17/2009 | Contact shivakumar shreeshail Contact shivakumar shreeshail

@a = "My name is Khan";
foreach $c (@a) {
@b = split ('s+', $c);
print scalar @b;
}
Source: CoolInterview.com

Answered by: vasudevan D | Date: 3/18/2010 | Contact vasudevan D Contact vasudevan D

Try this, it will work :)
#!/usr/bin/perl
$=" ";
open(FILE,"filename");
@array=<FILE>;
$count=0;
foreach $line (@array)
{
@arr=split (/[ ]+/,$line);
$count+=@arr;;
}
print "The word occurs $count times";
Source: CoolInterview.com

Answered by: Abhishek | Date: 3/31/2010 | Contact Abhishek Contact Abhishek


open(FILE,'files.txt');

my @arr=<FILE>;

foreach (@arr){
push(@words,split(/ /,$_));
}

print (scalar @words);
Source: CoolInterview.com

Answered by: sanz | Date: 5/26/2010 | Contact sanz Contact sanz

open FH1, "file1" or die "Cannot open file file1 : $!";
@array=<FH1>;
foreach $l (@array) {
push(@arr1,split(/s+/,$l));
}
my %hash1;
foreach $y (@arr1) {
$c=1;
foreach $z (@arr1) {
if ($y eq $z) {
$hash1{$y}=$c++;
}
}
}

foreach $key (keys %hash1) {
print "$key --> $hash1{$key} ";
}
Source: CoolInterview.com

Answered by: Sarala | Date: 8/18/2010 | Contact Sarala Contact Sarala

$infile='Search file name';
open INFILE,"$infile" or die ;
while(<INFILE>) {
chomp;
$r++ for $_ =~/Searchword/g;
}
print "r $r ";

close INFILE; Source: CoolInterview.com

Answered by: Bimlesh Sharma | Date: 8/28/2010 | Contact Bimlesh Sharma Contact Bimlesh Sharma


If you have the better answer, then send it to us. We will display your answer after the approval

Rules to Post Answers in CoolInterview.com:-

  • There should not be any Spelling Mistakes.
  • There should not be any Gramatical Errors.
  • Answers must not contain any bad words.
  • Answers should not be the repeat of same answer, already approved.
  • Answer should be complete in itself.

Post your answer here

Inform me about updated answers to this question.
Related Questions
View Answer
What is hash in perl?

View Answer
Explain the difference between "my" and "local" variable scope declarations. ?


- Perl Interview Questions & Answers" class="btn btn-primary btn-xs">View Answer
What is difference between "Use" and "require". In which case should "Use" be used and not "Require"?

View Answer
I have a variable named $objref which is defined in main package. I want to make it as a Object of Class XYZ. How could I do it?

View Answer
What's the significance of @ISA, @EXPORT @EXPORT_OK
%EXPORT_TAGS list & hashes in a perl package?
With example?

View Answer
How to Connect with SqlServer from perl and how to display database table info?

View Answer
what's the purpose of -w.strict,-T?




View Answer
Difference between for & foreach,exec & system?

View Answer
Where do you go for perl help?

View Answer
Name an instance you used in CPAN module?

View Answer
When do you not use Perl for a project?

View Answer
How do you connect to database in perl

View Answer
What is your experience of interfacing Perl to database?

View Answer
What are the benefits of having global and local variables?

View Answer
Advantages of C over perl?

View Answer
"perl regular expressions are greedy" what does this mean?


- Perl Interview Questions & Answers" class="btn btn-primary btn-xs">View Answer
what does this mean :
'$_' ?

View Answer
What does the word '&myvariable' mean?
What does the symbol '&' means? What's purpose of it?

View Answer
What is a subroutine?

View Answer
What does 'qw(..)' mean? What's the use of it?
when do we use it?

View Answer

Please Note: We keep on updating better answers to this site. In case you are looking for Jobs, Pls Click Here Vyoms.com - Best Freshers & Experienced Jobs Website.

View All Perl Interview Questions & Answers - Exam Mode / Learning Mode




India News Network
Latest 20 Questions
Payment of time- barred debt is: (a) Valid (b) Void (c) Illegal (d) Voidable
Consideration is defined in the Indian Contract Act,1872 in: (a) Section 2(f) (b) Section 2(e) (c) Section 2(g) (d) Section 2(d)
Which of the following is not an exception to the rule, "No consideration, No contract": (a) Natural love and affection (b) Compensation for involuntary services (c) Completed gift (d) Agency
Consideration must move at the desire of: (a) The promisor (b) The promisee (c) The promisor or any other party (d) Both the promisor and the promisee
An offer which is open for acceptance over a period of time is: (a) Cross Offer (b) Counter Offer (c) Standing Offer (d) Implied Offer
Specific offer can be communicated to__________ (a) All the parties of contract (b) General public in universe (c) Specific person (d) None of the above
_________ amounts to rejection of the original offer. (a) Cross offer (b) Special offer (c) Standing offer (d) Counter offer
A advertises to sell his old car by advertising in a newspaper. This offer is caleed: (a) General Offer (b) Special Offer (c) Continuing Offer (d) None of the above
In case a counter offer is made, the original offer stands: (a) Rejected (b) Accepted automatically (c) Accepted subject to certain modifications and variations (d) None of the above
In case of unenforceable contract having some technical defect, parties (a) Can sue upon it (b) Cannot sue upon it (c) Should consider it to be illegal (d) None of the above
If entire specified goods is perished before entering into contract of sale, the contract is (a) Valid (b) Void (c) Voidable (d) Cancelled
______________ contracts are also caled contracts with executed consideration. (a) Unilateral (b) Completed (c) Bilateral (d) Executory
A offers B to supply books @ Rs 100 each but B accepts the same with condition of 10% discount. This is a case of (a) Counter Offer (b) Cross Offer (c) Specific Offer (d) General Offer
_____________ is a game of chance. (a) Conditional Contract (b) Contingent Contract (c) Wagering Contract (d) Quasi Contract
There is no binding contract in case of _______ as one's offer cannot be constructed as acceptance (a) Cross Offer (b) Standing Offer (c) Counter Offer (d) Special Offer
An offer is made with an intention to have negotiation from other party. This type of offer is: (a) Invitation to offer (b) Valid offer (c) Voidable (d) None of the above
When an offer is made to the world at large, it is ____________ offer. (a) Counter (b) Special (c) General (d) None of the above
Implied contract even if not in writing or express words is perfectly _______________ if all the conditions are satisfied:- (a) Void (b) Voidable (c) Valid (d) Illegal
A specific offer can be accepted by ___________. (a) Any person (b) Any friend to offeror (c) The person to whom it is made (d) Any friend of offeree
An agreement toput a fire on a person's car is a ______: (a) Legal (b) Voidable (c) Valid (d) Illegal
Cache = 0.03125 Seconds