Hello everyone, can someone point me in the right direction because I'm just spinning my wheels. I'm trying to read in the first user then loop through the array to count how many times it occured and then go to the next user and then loop through the array again counting that user etc... I think I'm missing a MAJOR fundamental concept here. Thanks 
#!/usr/bin/perl
use win32;
use strict;

open(FILE,"chargenode.txt") || die "user.pl can't open writing: $!";
while (<FILE>) {
#chomp;
my @names;
my $match;
my $count;
my $total;
my $item;
my @x;
my ($name) = /(\w+\d+)/;
push @names, $name;
#    if (m/.*\Hm54/) {
#        $count++;
#    #    my $total = $count + $count;
#    }
#$count += $_ for @names;

# sample input:
# UserID             Date
# Hm54      ATHENA02 10/1/2000 
# Dh60      ATHENA02 10/1/2000 
# Dh60      ATHENA02 10/2/2000 
# Jch6      ATHENA05 10/2/2000 
# Hh24      ATHENA05 10/2/2000 
# Mwm22     ATHENA03 10/2/2000 

$match = "Hm54";
foreach my $user (@names) {
        if ($match eq $user) {
            push @x, $item;
        }
            foreach $item (@x) {
                $count++;
                $total = $count;          
                print "saw $name $total times \n";
            }

    } #foreach

}  #while

close FILE;

[download]

In reply to count string occurance by softworkz

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.