Package: mc
Version: 3:4.8.3-10
Severity: normal
Dear Maintainer,
I installed Debian 8 jessie in console mode and examine under this system the
book "Perl how to program". Example 3.10, if you enter data attached to it in
book, under mc not running, and the naked command prompt works. Version of mc
is 4.8.13-3.
The data: 56, 52, 64, 72, 56, 58, 62, 63, 48, 52.
Thanks.
-- System Information:
Debian Release: 7.8
APT prefers stable-updates
APT policy: (500, 'stable-updates'), (500, 'stable')
Architecture: i386 (i686)
Kernel: Linux 3.2.0-4-686-pae (SMP w/1 CPU core)
Locale: LANG=ru_RU.utf8, LC_CTYPE=ru_RU.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Versions of packages mc depends on:
ii e2fslibs 1.42.5-1.1+deb7u1
ii libc6 2.13-38+deb7u8
ii libcomerr2 1.42.5-1.1+deb7u1
ii libglib2.0-0 2.33.12+really2.32.4-5
ii libgpm2 1.20.4-6
ii libslang2 2.2.4-15
ii mc-data 3:4.8.3-10
Versions of packages mc recommends:
ii mime-support 3.52-1+deb7u1
ii perl 5.14.2-21+deb7u2
ii unzip 6.0-8+deb7u2
Versions of packages mc suggests:
pn arj <none>
ii bzip2 1.0.6-4
pn catdvi <none>
pn dbview <none>
pn djvulibre-bin <none>
ii evince [pdf-viewer] 3.4.0-3.1
ii file 5.11-2+deb7u7
pn gv <none>
ii imagemagick 8:6.7.7.10-5+deb7u3
pn odt2txt <none>
ii python 2.7.3-4+deb7u1
pn python-boto <none>
pn python-tz <none>
ii w3m 0.5.3-8
ii zip 3.0-6
-- no debconf information
#!/usr/bin/perl
# Fig. 3.10: fig03_10.pl
# Average-sales problem with counter-controlled repetition
# initialization phase
$total = 0; # clear total
$weekCounter = 1; # prepare to loop
# processing phase
while ( $weekCounter <= 10 ) { # loop 10 times
# prompt for input and input a sales value
print "Enter sales for week $weekCounter: ";
chomp( $sales = <STDIN> );
$total += $sales; # add sales to total
++$weekCounter; # increment counter
}
$average = $total / 10; # divide to find average
print "\nSales averaged $average computers per week\n";
