Ok.



Im stuck again.



I need to sort this input file below before my code..

Cant someone help me with this??



>> #!/usr/bin/perl
>>
>> #use warnings;
>> #use diagnostics;
>>
>> my $count = 0;
>> my $key_count = 0;
>> $Input_File="crapdata1.txt";
>> open(INP, $Input_File);
>> @by_jobname=<INP>;
>> close(INP);
>>
>> foreach $New_Jobname (@by_jobname)
>> {
>> $em_job = substr($New_Jobname,11,50);
>> $em_key = substr($New_Jobname,11,2);
>>
>> if ($em_key eq "Apples")
>> {
>> $count[1] = $count[1] + 1;
>> }
>>
>> }
>>
>> print "$em_key count is: $count[1]\n";
>>
>> my $count = 0;
>> foreach $New_Jobname (@by_jobname)
>> {
>> $em_job = substr($New_Jobname,11,50);
>> $em_key = substr($New_Jobname,11,2);
>>
>> if ($em_key eq "Oranges")
>> {
>> $count[2] = $count[2] + 1;
>> }
>>
>> }
>> print "$em_key count is: $count[2]\n";
>> exit;
>>
>> It give me the following results:
>>
>> Apple Count is: 2
>> Oranges Count is: 1
>>
>> Here is the data.
>>
>> Apples |Sweet
>> Oranges |Seeds
>> Apples |Sour
>>
>> -----Original Message-----
>> From: perl-beginner@yahoogroups.com
<mailto:perl-beginner%40yahoogroups.com>
<mailto:perl-beginner%40yahoogroups.com>
> <mailto:perl-beginner%40yahoogroups.com>
> [mailto:perl-beginner@yahoogroups.com
<mailto:perl-beginner%40yahoogroups.com>
<mailto:perl-beginner%40yahoogroups.com>
> <mailto:perl-beginner%40yahoogroups.com> ]
>> On Behalf Of Scot Robnett
>> Sent: Wednesday, June 17, 2009 12:22 PM
>> To: perl-beginner@yahoogroups.com
<mailto:perl-beginner%40yahoogroups.com>
<mailto:perl-beginner%40yahoogroups.com>
<mailto:perl-beginner%40yahoogroups.com>
>
>> Subject: RE: [PBML] Newbie question
>>
>> What is the exact format of the file?
>>
>> What have you tried so far?
>>
>> Nobody is going to write the script for you. The group is here to help
>> you figure things out when you get stuck or something isn't working, but
>> you're supposed to try something first.
>>
>>
>>
>> -----Original Message-----
>> From: perl-beginner@yahoogroups.com
<mailto:perl-beginner%40yahoogroups.com>
<mailto:perl-beginner%40yahoogroups.com>
> <mailto:perl-beginner%40yahoogroups.com>
>> [mailto:perl-beginner@yahoogroups.com
<mailto:perl-beginner%40yahoogroups.com>
<mailto:perl-beginner%40yahoogroups.com>
> <mailto:perl-beginner%40yahoogroups.com> ] On Behalf Of Kevin Patterson
>> Sent: Wednesday, June 17, 2009 2:11 PM
>> To: perl-beginner@yahoogroups.com
<mailto:perl-beginner%40yahoogroups.com>
<mailto:perl-beginner%40yahoogroups.com>
<mailto:perl-beginner%40yahoogroups.com>
>
>> Subject: [PBML] Newbie question
>>
>>
>> Hello..
>>
>> I am writing a perl program in windows..
>>
>> Here is my problem.
>>
>> I have a file containing data such as:
>>
>> Apples
>>
>> Oranges
>>
>> Pears
>>
>> Bananas
>>
>> Plums
>>
>> Apples
>>
>> Oranges
>>
>> Pears
>>
>> bananas
>>
>> kiwi
>>
>> Apples
>>
>> Oranges
>>
>> Pears
>>
>> bananas
>>
>> I write a program to read this file and create a summary report showing
>>
>> How many apples:
>>
>> How many oranges
>>
>> How many Pears
>>
>> Can anyone help me??
>>
>> thanks
>>
>> [Non-text portions of this message have been removed]
>>
>> No virus found in this incoming message.
>> Checked by AVG - www.avg.com
>> Version: 8.5.374 / Virus Database: 270.12.73/2180 - Release Date:
>> 06/17/09 05:53:00
>>
>> No virus found in this outgoing message.
>> Checked by AVG - www.avg.com
>> Version: 8.5.374 / Virus Database: 270.12.73/2180 - Release Date:
>> 06/17/09 05:53:00
>>
>> [Non-text portions of this message have been removed]
>>
>> ------------------------------------
>>
>> Unsubscribing info is here:
>> http://help.yahoo.com/help/us/groups/groups-32.htmlYahoo! Groups Links
>>
>>
>
> [Non-text portions of this message have been removed]
>
>

[Non-text portions of this message have been removed]





[Non-text portions of this message have been removed]