my ($fin, $dt, $vard );Declares scalar variables. See my and perldata.
my %anc = ();

[download]
Declares a hash variable. See perldata.
my %cnt = ();

[download]
See line 2.
my @myfiles =();

[download]
Declares an array. See perldata.
my @all = ();

[download]
See line 4.Empty line. Has no effect.
@myfiles=<A*> or die "No files to open A\* for reading. $!";

[download]
Search for files whose names start with A. If there are any, store the names to the array, if not, stop the program and complain.Empty line.
foreach $fin (@myfiles) {

[download]
Beginning of a loop. See perlsyn.
##my $fin="A20100222.1700-1715_GWLD1E_1.xml";

[download]
Comment. Has no effect.
open INP, "$fin" or die "Cannot open $fin for read :$!";

[download]
Opens a file for reading, if it's possible. See open.
$fin =~ (/^A(\d{8}).(\d{4})/);

[download]
Matches the file name against a regular expression. See perlre and perlop.
my $dt = "$1" . ":" . "$2";

[download]
Dot is the concatenation operator.
#print "$dt\n";

[download]
Comment.
while (<INP>)  {

[download]
Another loop.
    if (/^<moid>.*=(\d+)</) {

[download]
Condition.
    $anc{$1} += 1;

[download]
See perlop.
    }

[download]
    elsif (/^<mt>(.+)</) {

[download]
If the first condition was not true, try this one.
    $cnt{$1} += 1;

[download]
    }

[download]
    elsif (/^<\/md>$/) {

[download]
    last;

[download]
Exit the innermost loop.
    }

[download]
End of the loop.
}

[download]
See the previous line.
close (INP);

[download]
Close the filehandle.
}

[download]
open(OUT, ">>all_announc_cnt.txt") or die "Cannot open all_announc_cnt
+.txt file for writting :$!";

[download]
Open a file for writing (appending).
foreach $vard (sort {$a <=> $b} (keys(%anc))) {

[download]
See sort, keys.
print  OUT "$vard:$anc{$vard}\n";

[download]
See print.
}

[download]
print OUT "\n";

[download]
foreach $vard (sort (keys(%cnt))) {

[download]
print OUT "$vard:$cnt{$vard}\n";

[download]
#push (@all, "$vard:$anc{$vard}");

[download]
}

[download]
close (OUT);

[download]

In reply to Re: Please Explain Code by choroba
in thread Please Explain Code by costas1

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.