Help for this page

Select Code to Download

Select or download this
my ($fin, $dt, $vard );
Select or download this
```
my %anc = ();
```
Select or download this
```
my %cnt = ();
```
Select or download this
```
my @myfiles =();
```
Select or download this
```
my @all = ();
```
Select or download this

Select or download this

@myfiles=<A*> or die "No files to open A\* for reading. $!";

Select or download this
Select or download this
```
foreach $fin (@myfiles) {
```
Select or download this

Select or download this

##my $fin="A20100222.1700-1715_GWLD1E_1.xml";

Select or download this

open INP, "$fin" or die "Cannot open $fin for read :$!";

Select or download this
```
$fin =~ (/^A(\d{8}).(\d{4})/);
```
Select or download this
```
my $dt = "$1" . ":" . "$2";
```
Select or download this
```
#print "$dt\n";
```
Select or download this
```
while (<INP>)  {
```
Select or download this
```
    if (/^<moid>.*=(\d+)</) {
```
Select or download this
```
    $anc{$1} += 1;
```
Select or download this
```
    }
```
Select or download this
```
    elsif (/^<mt>(.+)</) {
```
Select or download this
```
    $cnt{$1} += 1;
```
Select or download this
```
    }
```
Select or download this
```
    elsif (/^<\/md>$/) {
```
Select or download this
```
    last;
```
Select or download this
```
    }
```
Select or download this
```
}
```
Select or download this
```
close (INP);
```
Select or download this
```
}
```
Select or download this

Select or download this

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

Select or download this

Select or download this

foreach $vard (sort {$a <=> $b} (keys(%anc))) {

Select or download this
```
print  OUT "$vard:$anc{$vard}\n";
```
Select or download this
```
}
```
Select or download this
```
print OUT "\n";
```
Select or download this
```
foreach $vard (sort (keys(%cnt))) {
```
Select or download this
```
print OUT "$vard:$cnt{$vard}\n";
```
Select or download this
```
#push (@all, "$vard:$anc{$vard}");
```
Select or download this
```
}
```
Select or download this
Select or download this
```
close (OUT);
```