<html xmlns="http://www.w3.org/1999/xhtml"><head></head><body><section><h1>動作中の Perl のバージョン</h1><p><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="2" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[2]</anchor-end> 特殊変数 $] が使えます。結構有名な話。</p><p><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="3" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[3]</anchor-end> Perl 5.6 以降では $~V があります。  UTF-8 で返します。</p><p><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="4" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[4]</anchor-end> Perl 5.6 以降では、 v1.2 とか 1.2.3 とか<em>生で</em>書くと、 U+0001 U+0002 とか
U+0001 U+0002 U+0003 とかになります。 UTF-8 文字列として保持されます。
UTF-8 の外側の値もある程度扱えます。 v4294967295 (U-FFFFFFFF 相当)
は 0xFE83BFBFBFBFBF になります。これが最大値のようです。
(この値は環境によって変わるそうです。最低でも32ビット整数で
0..2^32-1 が保証されるみたいですが、64ビット整数が使える
環境では 0..2^64-1 まで使えるそうです。 (でもどうやって
文字列として扱うんでしょうか。 <anchor xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:">UTF-8</anchor> ではどう頑張っても
64ビットは扱えないと思うのですが。))</p><p><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="6" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[6]</anchor-end> <anchor-internal xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="4" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">&gt;&gt;4</anchor-internal> 64ビット環境では 2<sup>64</sup> - 1 まで <anchor xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:">UTF-8</anchor> 風表現で表せます。<pre class="perl code">$ perl -MEncode -e 'print join &quot;,&quot;, map { sprintf &quot;%02X&quot;, or$_ } map { Encode::_utf8_off($_); split //, $_ } v18446744073709551615'
FF,80,8F,BF,BF,BF,BF,BF,BF,BF,BF,BF,BF</pre></p><p><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="5" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[5]</anchor-end> sprintf '%vd', $version のようにして句点区切りの数値列に変換出来ます。
この時各数値の最大値は 2147483647 = U-7FFFFFFF です。
これ以上の値だと error になります。</p><p>Config という module があります。 use Config。</p><p><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="1" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[1]</anchor-end> <anchor xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:">EBCDIC</anchor> な世界ではまた上限が変わってくるのではないかな。</p></section><section><h1>最新の Perl のバージョン</h1><p><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="8" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[8]</anchor-end> <cite>Ricardo SIGNES / perl - search.cpan.org</cite> (<time>2016-05-10 18:07:10 +09:00</time>) <anchor-external xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:resScheme="URI" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:resParameter="http://search.cpan.org/dist/perl/">http://search.cpan.org/dist/perl/</anchor-external>
が最新の<anchor xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:">開発版</anchor>になっているようです。
「Latest Release」でリンクされるのが最新の<anchor xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:">安定版</anchor>です。
<time>2016-05-10T09:31:02.000Z</time></p><p><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="7" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[7]</anchor-end> 以前は <anchor-external xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:resScheme="URI" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:resParameter="https://api.metacpan.org/release/perl">https://api.metacpan.org/release/perl</anchor-external> から <anchor xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:">JSON</anchor> 
形式で取得できましたが、今は <code>404</code> になるようです。
<time>2016-05-10T09:29:29.900Z</time></p><p><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="12" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[12]</anchor-end> <anchor xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:">perlbrew</anchor> は、 <anchor-internal xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="10" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">&gt;&gt;10</anchor-internal> や <anchor-internal xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="11" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">&gt;&gt;11</anchor-internal> から<anchor xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:">スクレイピング</anchor>しているようです <src xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:10:"><anchor-internal xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="9" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">&gt;&gt;9</anchor-internal></src>。</p><refs xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:"><ul xmlns="http://www.w3.org/1999/xhtml"><li><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="9" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[9]</anchor-end> <cite xml:lang="en">App-perlbrew/perlbrew.pm at master · gugod/App-perlbrew</cite> (<time>2016-05-10 18:37:35 +09:00</time>) <anchor-external xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:resScheme="URI" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:resParameter="https://github.com/gugod/App-perlbrew/blob/master/lib/App/perlbrew.pm#L688">https://github.com/gugod/App-perlbrew/blob/master/lib/App/perlbrew.pm#L688</anchor-external></li><li><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="10" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[10]</anchor-end> <cite>Index of /src/5.0</cite> (<time>2016-05-10 18:38:13 +09:00</time>) <anchor-external xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:resScheme="URI" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:resParameter="http://www.cpan.org/src/5.0/">http://www.cpan.org/src/5.0/</anchor-external></li><li><anchor-end xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:anchor="11" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:">[11]</anchor-end> <cite xml:lang="en">Perl Source - www.cpan.org</cite> (<time>2016-05-10 16:18:02 +09:00</time>) <anchor-external xmlns="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:resScheme="URI" xmlns:a0="urn:x-suika-fam-cx:markup:suikawiki:0:9:" a0:resParameter="http://www.cpan.org/src/README.html">http://www.cpan.org/src/README.html</anchor-external></li></ul></refs></section></body></html>