Приемник отличается от модели "А-17" только тем, что в нем применен печатный монтаж.
 
  #!/usr/bin/perl use Time::Local; sub mydateconvert { my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst, $mytime); ($day, $mon, $year, $hour, $min, $sec) = split(/-/,$_[0]); #$mytime = timelocal ($sec, $min, $hour, $day, $mon-1, $year); ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime();# ($mytime-3*3600); $year+=1900; $mon+=1; return $mytime = sprintf ("%.2ld.%.2ld.$year %.2ld:%.2ld:%.2ld",$day,$mon,$hour,$min,$sec); } $databasefile = 'mycounterlog.txt'; $filedatemodify = mydateconvert($ENV{'LAST_MODIFIED'}); $filedatereadnew = mydateconvert($ENV{'DATE_LOCAL'}); $link = "$ENV{'REQUEST_URI'}"; if ($link eq "/") { $link="/index.shtml" } open(DB,"+<$databasefile") || die $!; flock(DB,2); # Locking file seek(DB,0,0); @DATA = ; $SIZE = @DATA; $i = 0; while ($i <= $SIZE) { ($counter,$counter2,$filedatestat,$filedatecreate,$filedatemodifyold,$filedateread,$oldlink) = split(/`/,$DATA[$i]); chop($oldlink); if ($oldlink eq $link) { $counter++; $counter2++; $DATA[$i] = "$counter`$counter2`$filedatestat`$filedatecreate`$filedatemodify`$filedatereadnew`$link\n"; goto LocateLink; } $i++; } $filedatecreate = $filedatemodify; $filedatestat = $filedatereadnew; $filedateread = $filedatereadnew; push @DATA, "1`1`$filedatestat`$filedatemodify`$filedatemodify`$filedatereadnew`$link\n"; $counter=1; LocateLink: @DATA = sort {($b =~ /(\d+)/)[0] <=> ($a =~ /(\d+)/)[0]} @DATA; seek(DB,0,0); print(DB @DATA); truncate(DB,tell(DB)); flock(DB, 8); close(DB); print "Content-Type: text/html\n\n"; print "