Ad:

Perl Discussion Thread
Unsolved
Views: 3116

Oct 26th, 2009

search an array for strings

Expand Post »

basically i am trying to search for similar strings in an array which is hardcoded into the script and compare them to and find the line they exist on the text file
here is my code so far

perl Syntax (Toggle Plain Text)
#!/usr/bin/perl
%fruit=(banana=>1,apple=>2,orange=>5);
$target = %fruit;
 
open(INPUT, "<fruits.txt");
 
while (<INPUT>) {
     if (/$target/) {
         print "Found $target on line $.";
     }
}
close(INPUT);
#!/usr/bin/perl
%fruit=(banana=>1,apple=>2,orange=>5);
$target = %fruit;

open(INPUT, "<fruits.txt");

while (<INPUT>) {
     if (/$target/) {
         print "Found $target on line $.";
     }
}
close(INPUT);

I have attached the file which i am to search .

Attached Files

fruits.txt (327 Bytes, 52 views)

Similar Threads

Search an array of objects. in C++
Declaring an array of strings in C++ in C++
Initializing an array of strings and printing it. in C++
Binary Search of an array of three strings in C

notuserfriendly

Reputation Points: 11

Solved Threads: 7

Junior Poster

Offline

102 posts
since Jan 2007

Permalink

Oct 26th, 2009

Re: search an array for strings

Perl Syntax (Toggle Plain Text)
%fruit=(banana=>1,apple=>2,orange=>5);
#$target = %fruit; 
#why u have used above line?what it means?in perl it is of no use.
 
 
 
open(INPUT, "<fruits.txt");
 
while (<INPUT>) 
{
        foreach $target(keys %fruit)
        {
                if (/$target/) 
                {
                        print "Found $target on line $.\n";
                }
        }
}
close(INPUT);
%fruit=(banana=>1,apple=>2,orange=>5);
#$target = %fruit; 
#why u have used above line?what it means?in perl it is of no use.



open(INPUT, "<fruits.txt");

while (<INPUT>) 
{
        foreach $target(keys %fruit)
        {
                if (/$target/) 
                {
                        print "Found $target on line $.\n";
                }
        }
}
close(INPUT);

Last edited by vbharathi; Oct 26th, 2009 at 5:35 am.

vbharathi

Reputation Points: 13

Solved Threads: 1

Newbie Poster

Offline

8 posts
since Oct 2009

Permalink

Oct 26th, 2009

Re: search an array for strings

Hey thank you very much, i am new to perl and as you can see im trying to learn on my own. Been reading some online tutorials and so far i like perl but still a novice.

notuserfriendly

Reputation Points: 11

Solved Threads: 7

Junior Poster

Offline

102 posts
since Jan 2007

Permalink

Oct 26th, 2009

Re: search an array for strings

Hey that worked but i have another question and i dont want to start another thread ( will if i have to). How would i be able to delete a line that started with a certain string, for example in this file "you". Is this easy to approach? Is there a delete function used with

perl Syntax (Toggle Plain Text)

 $target =~ m/you/;

notuserfriendly

Reputation Points: 11

Solved Threads: 7

Junior Poster

Offline

102 posts
since Jan 2007

Permalink

Oct 26th, 2009

Re: search an array for strings

$target =~ m/^[yY]ou/; # this will grab lines starting with you or You (not sure if the character class is right, but it looks to be).
just do an "if" on that above search, and then don't print if it contains it, now if it's a multiline situation, you'll have to do some more adjusting on what lines to not print.

onaclov2000

Reputation Points: 11

Solved Threads: 5

Junior Poster in Training

Offline

57 posts
since Jun 2008

Permalink

Oct 26th, 2009

Re: search an array for strings

So basically what you are saying onaclov2000 is that the only way to delete a line is to write the whole thing in a different file omitting the line you do not want that begins with the specified string?

notuserfriendly

Reputation Points: 11

Solved Threads: 7

Junior Poster

Offline

102 posts
since Jan 2007

Permalink

Oct 29th, 2009

Re: search an array for strings

Click to Expand / Collapse Quote originally posted by notuserfriendly ...

So basically what you are saying onaclov2000 is that the only way to delete a line is to write the whole thing in a different file omitting the line you do not want that begins with the specified string?

Pardon my jumping in. I'm new to Perl but I have read there is such a thing as doing an in place edit on a file, which I think is what you are asking about. If you Google perl "in place edit" $^I you will see a lot has been written about it.

d5e5

Reputation Points: 153

Solved Threads: 142

Master Poster

Offline

740 posts
since Sep 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: Parsing of information in perl

Next Thread in Perl Forum Timeline: CPAN Perl module Installation Problem on Mac

DaniWeb Message

Cancel Changes

User Name
Password