Формула работает с несколькими настройками:
Ниже приведена модифицированная версия:
= FREQUENCY ( ЕСЛИ (Международный М2: М1000 & л; = ДАТАЗНАЧ ( "6/1/2016"), ЕСЛИ (Международный М2: М1000> = ДАТАЗНАЧ ( "3/23/2013"), ЕСЛИ (Международный I2:! i1000 & л;>» »IF (International I2: i1000 & л;>! "Digital", MATCH (International A2:! A1000, Международный A2: A1000,0), 0)!))), ROW (International A2: A1000) -строка (International ! А2) +1> 0)
Возможно, вам пригодится Perl::MinimumVersion. Для сканирования кода используйте прилагаемую утилиту perlver.
Если вы ищете, когда модуль был введен в ядро Perl, вы можете использовать Module :: CoreList .
Если вы хотите помочь в разработке системы, подобной кодовой панели для Perl, найдите «PITA testing».
В частности, если вы хотите, чтобы утилита загрузила и установила несколько двоичных файлов Perl для проверки вашего кода, вы можете посмотреть программы в PITA-Setup-Perl / bin .
Я знаю, что perlcritic может найти несколько случаев, но в целом вам придется искать его в Google или в файлах perldelta. В частности, вы можете посмотреть дельты для 5.6 5.8 и 5.10 и, возможно, даже для предстоящего 5.12
Я думаю, что если бы я был обеспокоен, я бы создал важные версии Perl на своей машине и протестировал бы их. Собственно, в любом случае я более или менее так и делаю. На моем компьютере с Solaris 10:
lrwxrwxrwx 1 jleffler rd 26 Mar 6 2008 v5.10.0 -> v5.10.0-32bit-multiplicity
drwxr-xr-x 3 jleffler rd 512 Jan 10 2008 v5.10.0-32bit
drwxr-xr-x 6 jleffler rd 512 Mar 7 2008 v5.10.0-32bit-multiplicity
drwxr-xr-x 3 jleffler rd 512 Jan 10 2008 v5.10.0-64bit
lrwxrwxrwx 1 jleffler rd 13 Jan 29 21:07 v5.10.1 -> v5.10.1-64bit
drwxr-xr-x 6 jleffler rd 512 Jan 29 21:43 v5.10.1-64bit
drwxr-xr-x 5 jleffler rd 512 May 6 2003 v5.5.3
lrwxrwxrwx 1 jleffler RAND 11 Mar 21 2007 v5.6.1 -> v5.6.1-full
drwxr-xr-x 5 jleffler rd 512 May 6 2003 v5.6.1-full
drwxr-xr-x 5 jleffler rd 512 Feb 5 2008 v5.8.7-multi
lrwxrwxrwx 1 jleffler rd 19 Mar 24 2007 v5.8.8 -> v5.8.8-32bit-sun-cc
drwxr-xr-x 6 jleffler rd 512 Mar 25 2007 v5.8.8-32bit-sun-cc
drwxr-xr-x 5 jleffler rd 512 Feb 13 2006 v5.8.8-64bit-thread-multi
drwxr-xr-x 3 jleffler rd 512 Mar 20 2008 v5.8.8-gcc-3.4.6
Итак, установлены 5.5.3, 5.6.1, 5.8.7, 5.8.8, 5.10.0 и 5.10.1; У меня есть исходники и для других версий:
-rw-r--r-- 1 jleffler rd 2171936 Apr 12 2001 perl-5.004_04.tar.bz2
-rw-r--r-- 1 jleffler rd 3023320 Aug 31 1999 perl-5.005_03.tar.bz2
-rw-r--r-- 1 jleffler rd 12426022 Dec 18 2007 perl-5.10.0.tar.bz2
-rw-r--r-- 1 jleffler rd 11608061 Jan 29 12:32 perl-5.10.1.tar.bz2
-rw-r--r-- 1 jleffler rd 4430438 Mar 29 2000 perl-5.6.0.tar.bz2
-rw-r--r-- 1 jleffler rd 4864306 Apr 8 2001 perl-5.6.1.tar.bz2
-rw-r--r-- 1 jleffler rd 5142605 Aug 16 2005 perl-5.6.2.tar.bz2
-rw-r--r-- 1 jleffler rd 8618487 Jul 18 2002 perl-5.8.0.tar.bz2
-rw------- 1 jleffler rd 9410641 Sep 29 2003 perl-5.8.1.tar.bz2
-rw-r--r-- 1 jleffler rd 9424944 Nov 5 2003 perl-5.8.2.tar.bz2
-rw-r--r-- 1 jleffler rd 9509716 Jan 14 2004 perl-5.8.3.tar.bz2
-rw-r--r-- 1 jleffler rd 9598489 Apr 21 2004 perl-5.8.4.tar.bz2
-rw-r--r-- 1 jleffler rd 9464689 Jul 19 2004 perl-5.8.5.tar.bz2
-rw-r--r-- 1 jleffler rd 9693085 Nov 27 2004 perl-5.8.6.tar.bz2
-rw-r--r-- 1 jleffler rd 9839086 Jun 15 2005 perl-5.8.7.tar.bz2
-rw-r--r-- 1 jleffler rd 10123359 Feb 13 2006 perl-5.8.8.tar.bz2
-rw-r--r-- 1 jleffler rd 11121414 Dec 14 2008 perl-5.8.9.tar.bz2
@Ether спросил:
У вас есть сценарий, который будет запускать определенный модуль, сценарий или модульный тест для всех версий последовательно и сопоставлять результаты? Такая утилита может быть действительно удобна в качестве изолированного / изолированного CGI.
Нет, но мне это не нужно. Однако это в основном тривиально:
for perl in /usr/perl/v5.*.?
do
echo $(basename $perl)
$perl/bin/perl "$@"
done
По сути, для каждого каталога Perl в / usr / perl / запускайте perl из каталога bin с заданным набором аргументов. Следите за выходом ...
Трудность состоит в том, чтобы решить, что считать успешным / неудачным. Очевидно, ядром цикла может быть:
if $perl/bin/perl "$@" >/dev/null 2>&1
then echo ok $perl
else echo not ok $perl
fi
Это немного похоже на вывод TAP . Чтобы сделать его формально эквивалентным (с использованием оболочки bash или Korn):
test=0
max=$(ls -d /usr/perl/v5.*.? | wc -l | sed 's/ //g')
echo 1..$max
for perl in /usr/perl/v5.*.?
do
((test = test + 1))
if $perl/bin/perl "$@" >/dev/null 2>&1
then echo ok $test - $perl
else echo not ok $test - $perl
fi
done
Вот пример его запуска:
$ ksh test.perl -e 'exit 0'
1..6
ok 1 - /usr/perl/v5.10.0
ok 2 - /usr/perl/v5.10.1
ok 3 - /usr/perl/v5.5.3
ok 4 - /usr/perl/v5.6.1
ok 5 - /usr/perl/v5.8.8
not ok 6 - /usr/perl/v5.8.8-gcc-3.4.6
$
Это показывает ограничение в сценариях оболочки и их средствах глобализации (я бы хотел ограничить 'звездочку' символом серия цифр). Perl, который терпит неудачу, делает это потому, что каталог bin не содержит копии Perl; В какой-то момент мне нужно было сэкономить место! Конечно, нетрудно преобразовать сценарий оболочки в сценарий Perl.