ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/bin/perl -w
# имя файла some.pl
require libp;
print "Введи чило для вычисления факториала: ";
chomp($inside=<STDIN>);
$result=libp::faktorial($inside);
print "Факториал числа $inside равен ",$result,"\n";

#!/bin/perl
# имя файла libp.pm
package libp;
sub faktorial {
    $faktorial=1;
    $number=shift;
    if ($number<=1) { return 1;}
    else {
	foreach (1..$number) {
	    $faktorial=$faktorial*$_;
	}
    }
    return $faktorial;

laptop:~$ perl some.pl 
libp.pm did not return a true value at some.pl line 3.

max_execution_time = 30     ; Maximum execution time of each script, in seconds