Perlについての質問箱 64箱目

**デフォルトの名無しさん** · 2019/02/01(金) 09:44:37.18

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: https://medaka.5ch.net/php/）

このスレでは（CGI以外の）純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
荒らしはスルー推奨。

"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。

www.perl.org/get.html
Download Latest Stable Source (5.28.1)

▼前スレ
Perlについての質問箱 61箱目
http://toro.5ch.net/test/read.cgi/tech/1381561905/
Perlについての質問箱 62箱目
http://toro.5ch.net/test/read.cgi/tech/1385039352/
Perlについての質問箱 63箱目
https://mevius.5ch.net/test/read.cgi/tech/1392820583/

**デフォルトの名無しさん** · 2020/03/29(日) 17:43:38.29

そういえば awk は DFA じゃなかったかな。

**デフォルトの名無しさん** · 2020/03/30(月) 00:14:28.89

perl の Memoize は関数全体に掛けるようですが、
ruby の @memo、javascript の memo の変数に掛けるのは新し目の使い方でしょうか

**デフォルトの名無しさん** · 2020/03/30(月) 04:32:31.95

>>388
WSLのUbuntuだとどうなのだろうか？
あれ遅い？

**デフォルトの名無しさん** · 2020/03/30(月) 08:35:14.72

NFA でなければならない理由がないなら DFA にするだけで速度 1000 倍は堅いかも。
でも Perl のままでも正規表現のチューニングは可能だ。まだやってないならね。
実際に使ってるパターンを見せてもらわないことにはなんとも言えないが。

**デフォルトの名無しさん** · 2020/03/31(火) 12:53:45.32

>>388
普通にWSLを使えばいいだけでは？

**デフォルトの名無しさん** · 2020/03/31(火) 22:24:02.97

win8.1のサポートが終わった頃に思い出したら使ってみよう

**デフォルトの名無しさん** · 2020/04/22(水) 13:25:13.88

@array = ($str =~ /(PAT1).+?(PAT2).+?(PAT3)/g);
みたいにすると、パターン3つ分が配列に入るけど、他にもマッチするとそれも続けて入る
できれば2次元配列になって欲しい
そんな技はある?

**デフォルトの名無しさん** · 2020/04/22(水) 18:47:25.28

そういうことをする時のセオリーはスカラコンテキストで
$str =~ /\G$pat/g

**デフォルトの名無しさん** · 2020/04/22(水) 19:29:55.51

可能?

$str = '1a2b3c1x1d2e3f1g2h3i';
を与えられて
[[a, b, c], [d, e, f], [g, h, i]]
を得るにはどうすれば

**デフォルトの名無しさん** · 2020/04/22(水) 20:38:21.44

my @arr = ();
while ($str =~ /\G.+?([a-z]).+?([a-z]).+?([a-z])/g) {
　　push @arr, [$1, $2, $3];
}

**デフォルトの名無しさん** · 2020/04/22(水) 20:54:42.93

[[a, b, c], [x, d, e], [f, g, h]]
になっとるよ

**デフォルトの名無しさん** · 2020/04/22(水) 20:56:31.77

でも判った
普通に$1使えばいいだけか
結果を一つずつスカラに取るんだと思ってた

**デフォルトの名無しさん** · 2020/04/22(水) 21:01:22.02

/\G.*?1(.)2(.)3(.)/g
これがやりたかったこと

**デフォルトの名無しさん** · 2020/04/22(水) 21:27:03.82

結局コードはあんまり変わらなくて、ループで
push @array, ($1, $2, $3)
にするか、後で
splice(@elements, 0, 3)
を使っていくかの違い

パターンを3つから4つに増やした時に、
$4を追加するか、3を4に増やすかのメンテはやっぱり必要
いきなり2次元配列が得られるスマートさからは劣る

**デフォルトの名無しさん** · 2020/04/22(水) 21:30:34.59

どうやら今回は必要ないみたいだけど事前にグループの個数が
判らないという前提なら @- とか見ればいい。
あるいはグループに名前を付けて %+ を使えばいい。
全部ここに書いてあるよ。
https://perldoc.jp/pod/perlretut

**デフォルトの名無しさん** · 2020/04/22(水) 21:32:10.06

Perlで、とある配列を指定した要素数ごとに別の配列リファレンスに分割する処理をList::MoreUtilsモジュールで書き直してみた
https://perl48.hatenablog.com/entry/2018/08/19/005304

**デフォルトの名無しさん** · 2020/04/22(水) 23:57:47.29

名前を付けるような性格のものじゃなくて個数が変わる可能性があるなら
個数だけ与えてパターンを組み立てればいいよ。
$1,$2 とか書かなくても
map { ${$_}} 1 .. $n
で同じことができるし。
リストコンテキストで配列に入れてから splice する方がいいと思うならそうすればいい。

**デフォルトの名無しさん** · 2020/04/23(木) 08:13:25.78

目指すのは、個数がいくつなのか人間が把握しなくていいコード

**デフォルトの名無しさん** · 2020/04/23(木) 08:30:38.98

できるでしょ。自分がスマートになってスマートなコードを書けばいい。

**デフォルトの名無しさん** · 2020/04/23(木) 12:10:21.89

完全に数値って決まってるんなら、俺ならsplit使っちゃうな
@a = split /\d/, $str;
まあこんな単純な話じゃないんだろうけど

**デフォルトの名無しさん** · 2020/05/01(金) 10:49:51.92

activeperlで
$res = `exefile $file`;
みたいなことをした時に、
コマンドプロンプトからスクリプトを起動するとちゃんと動く
でも、スクリプトをランチャーから起動するとno such fileになる
ファイル名が英数ならどちらもok
2byte文字が混じると挙動が変わる

起動の仕方によってパスの取り扱いとか変わる?

**デフォルトの名無しさん** · 2020/05/01(金) 12:19:28.98

あ、違う
2byte文字ではなくドライブの違いだった
ネットワークドライブにあるとアクセスできない
コマンドプロンプトからならできる

**デフォルトの名無しさん** · 2020/05/01(金) 13:08:35.22

結局、ランチャーに管理者権限が付いてるのが原因

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System
EnableLUA 1 -> 0
これで解決する
perl関係ない

**デフォルトの名無しさん** · 2020/05/01(金) 13:13:09.83

ランチャー自身か、ランチャーの起動方法がよくないんやろ。
ネットワークドライブの認証(ログオン)かそのタイミングがあやしい。

**デフォルトの名無しさん** · 2020/05/01(金) 13:13:40.55

あら、自己解決？

**デフォルトの名無しさん** · 2020/05/10(日) 19:19:00.31

質問させてください。
WindowsでActivePerlを使っています。
perl で、あるファイルを、関連付けられたアプリケーションで開く
には、どのようにすればよろしいでしょうか？

例えば、xx_system('foo.txt') のようにすると、'.txt'に
関連つけられたアプリケーションで、'foo.txt'を開くような
動作を実現したいのですが。

**デフォルトの名無しさん** · 2020/05/10(日) 21:12:47.84

system(1, 'foo.txt');

**デフォルトの名無しさん** · 2020/05/10(日) 22:26:25.38

>>415
動きました。ありがとうございました。

**デフォルトの名無しさん** · 2020/05/28(木) 11:01:17.93

最近 python を使い始めたんだけど、使うほどに perl 凄げーって思う。
perlって細かいこと気にしないでも書けるって感じ。
まあ、 python に慣れてないってのもあるけどw

**デフォルトの名無しさん** · 2020/05/28(木) 12:00:57.19

細かいことを気にしないせいでバグの原因になるので、
きちっとしか書けないようにした

perlの不満を解消してもっと簡単に書けるようにしたのは、
rubyの方が正常進化だと思う

**デフォルトの名無しさん** · 2020/05/28(木) 12:46:18.60

>>418
use strict;
use warnings;

**デフォルトの名無しさん** · 2020/05/28(木) 12:49:38.27

Perl は、暗号のような記号が多いから、皆嫌う

Ruby は可読性を上げるために、それらの記号を無くそうとしている

**デフォルトの名無しさん** · 2020/05/28(木) 13:57:57.17

>>420
変数の型を知るのに
宣言まで見ないとわからないのがJava
代入まで探さないとわからないのがpython
見るとその場でわかるのがperl
宗教論争は終わらない

**デフォルトの名無しさん** · 2020/05/28(木) 14:14:16.30

マウスオーバーで判るようなものをいちいち書かなくても

**デフォルトの名無しさん** · 2020/05/28(木) 19:40:22.87

PerlでIDEは使わないわな

**デフォルトの名無しさん** · 2020/05/28(木) 20:04:53.96

んなこたーない

**デフォルトの名無しさん** · 2020/05/28(木) 20:14:52.80

いやいやPerl書いてるときマウス触らんでしょ
まあ人によるんだろうが

**デフォルトの名無しさん** · 2020/05/28(木) 20:21:04.17

ロジックが逆だ
perlが型が判るからマウスを触らないのではなく、
マウスを触らないで作ったからマウスなしで型が判るようになってる

MT免許だからといってATに乗ってはいけない訳ではない

**デフォルトの名無しさん** · 2020/05/29(金) 20:28:53.39

Perl の IDE って、どんなのがある?

Eclipse とか IntelliJ IDEA のプラグインで使えたとは思ったが、拡張子を .pl にしておかないと Perl だと判別してくれなくて
ただのテキストファイルと認識されちゃって使い辛いなと思ったことはあるが、もっとまともなのある?

**デフォルトの名無しさん** · 2020/05/29(金) 20:32:29.66

vscode + Perl::LanguageServer

**デフォルトの名無しさん** · 2020/05/29(金) 20:34:34.78

サクラエディタで十分なんですよ(´・ω・｀)

**デフォルトの名無しさん** · 2020/05/29(金) 21:27:39.95

拡張子を ,pl にしないメリットってなんかある?

**デフォルトの名無しさん** · 2020/05/29(金) 21:28:20.85

実行ファイルはpl
モジュールはpm
そんな事も知らんのか(´・ω・｀)

**デフォルトの名無しさん** · 2020/05/29(金) 21:36:34.81

perlはvimで書く。
お兄さんとの約束だよ。

**デフォルトの名無しさん** · 2020/05/29(金) 21:38:26.77

mattnさんはパンツ履いて

**デフォルトの名無しさん** · 2020/05/29(金) 23:37:14.00

>>430
Linuxでは、いちいち拡張子をつけないのがふつう。
中身を気にしなくてよくなる。

**デフォルトの名無しさん** · 2020/05/30(土) 00:29:42.29

>>434
cとかshellとか拡張子をつけるのが普通なんじゃないの?

**デフォルトの名無しさん** · 2020/05/30(土) 00:31:15.77

ソースは付ける
実行ファイルは付けない
スクリプトはソースよりも実行ファイル寄り

**デフォルトの名無しさん** · 2020/05/30(土) 00:42:58.21

拡張子つければ伝わるであろう情報を削るとか
一人で管理してるサーバならいいけど
そうじゃなきゃ害悪だと思う

**デフォルトの名無しさん** · 2020/05/30(土) 01:44:27.37

人間がエディトするファイルは付ける
人間がエディトしないファイルは付けないんじゃないの?

**デフォルトの名無しさん** · 2020/05/30(土) 01:51:00.93

運用においては、実行ファイルの実装方法なんかどうでもいい。
むしろ、実装方法を変えたら、ファイル名も変わるほうがはるかに害悪。

たとえば、シェルスクリプトをPerl スクリプトに変えただけで、そのスクリプトを使っているところをすべて変更しないといけなくなる。

**デフォルトの名無しさん** · 2020/05/30(土) 03:26:43.00

昔々 MS-DOS (更にそれの元になった CP/M)はファイル名に固定で3文字の拡張子があり、
それによって実行ファイルかどうかを判定していて、Windows はそれを引き継いでいるので
拡張子を使っているだけ。

UNIX系OSはそもそも拡張子という概念はなく、実行ファイルは実行パーミッションのビットが
立っているかどうかで判定していた。C言語のソースに .c を付けたりはするが、あれは拡張子
ではなく接尾辞で主に人間やそれを読むコンパイラ等がファイルの種別をファイル名から判断
するためにある。だからOSから見たら .c の部分に特別な意味はなくファイル名の一部でしかない。

Windows だと例えば .exe のファイルなら .exe を抜いた拡張子なしのファイル名を指定して
OSに実行させる事は可能だが、これはOSが拡張子部分を特別扱いしているからだ。
UNIX系OSではそのような方法では実行できずファイル名を全て指定する必要がある。xxx.pl なら
xxx.pl と指定する必要があり xxx のみでは実行できない。その代わり実行パーミッションが立って
いればファイル名がどうであろうともOSはそれを実行しようとする(実際に実行できるかどうかは
ファイルの内容による)。

**デフォルトの名無しさん** · 2020/05/30(土) 08:54:37.07

拡張子が無くても判定できるようにすればいいんじゃないの? Emacs みたいに。

**デフォルトの名無しさん** · 2020/05/30(土) 12:16:10.21

>>441
つ　fileコマンド

**デフォルトの名無しさん** · 2020/05/30(土) 13:18:31.04

>>439
運用のために保守は犠牲にするんですか?

**デフォルトの名無しさん** · 2020/05/30(土) 13:58:45.71

>>443
実装の変更は、保守の範囲ではない。
二次開発かな？ｗ

**デフォルトの名無しさん** · 2020/05/30(土) 15:56:11.11

>>440
シェバン知らず？

**デフォルトの名無しさん** · 2020/05/30(土) 18:54:59.01

>>445
>>440はその前の話やろ。
シェバンがあるだけで、テキストファイルが勝手に起動されたら恐ろしいわ。ｗ

**デフォルトの名無しさん** · 2020/05/30(土) 19:43:41.34

>>432
おじいちゃん(´・ω・`)

**デフォルトの名無しさん** · 2020/05/31(日) 02:15:32.98

言語変えて作り直すって、俺の感覚ではシステム置き換えのイメージだわ
コンパイル済みのバイナリならともかく、スクリプト言語動かすって環境づくりも入るじゃん

**デフォルトの名無しさん** · 2020/05/31(日) 02:44:16.68

>>445
>>440に書いてあること読んでないだろ。

**デフォルトの名無しさん** · 2020/05/31(日) 03:40:37.55

その前って何？
だからシェバン使えば拡張子なんか使う必要はないってことだよ？
>>439みたいな書き換えはいらないってことを言ってる
あと自演して書き込みは見苦しいぞ

**デフォルトの名無しさん** · 2020/05/31(日) 04:22:23.87

読解力理解力がなくて、複数から指摘されたからって、自演扱いで返すとは見苦しいぞ。

**デフォルトの名無しさん** · 2020/05/31(日) 05:26:43.75

>>450
それ何のOSでの話？

**デフォルトの名無しさん** · 2020/06/11(木) 19:05:11.82

「local $| = 1;」と言う記述見たんですけど、
「$|」の局所化って意味あるのでしょうか？
ただ単に「$| = 1;」と等価であり「local」を記述しても無駄な気がするんですけど、
私の勘違いでしょうか？

「local $| = 1;」とやることで、
そのファイルの出力だけみたいな感じになるのですか？
となると、
同プロセスなのに標準出力バッファが出力毎に別個に用意されてる事になってしまいますよね？

分かるかた教えてください。

**デフォルトの名無しさん** · 2020/06/11(木) 19:32:41.35

>>453
スコープを抜けたときに、もとの値に戻る。

**デフォルトの名無しさん** · 2020/06/11(木) 19:37:09.97

横からだけど知らなかった…
毎回もとの値別変数で退避してた

**デフォルトの名無しさん** · 2020/06/11(木) 19:53:05.96

なんとなく直感的にグローバル変数だけだと思ってた
だから元の値を退避しておくという発想の方が自然
わざわざぶつけて便利に使おうという発想はいずれバグる

**デフォルトの名無しさん** · 2020/06/11(木) 20:13:03.35

>>454
レスありがとうございます。

「もとの値に戻る」と言う事は、a.plから参照される異なるスコープのb.pmがあり、
b.pmに「local $| = 1;」の記述があった場合、
b.pmに定義されたサブルーチンが呼び出される毎に、
「$| = 1;」と同等の処理が行われ、
戻る際には元の値がセットされるのでしょうか？
それとも、スコープによって異なる「$|」を、
標準出力側でスコープ毎に切り替えてるという事でしょうか？

**デフォルトの名無しさん** · 2020/06/11(木) 20:24:12.92

printする度に今見えてる$|が渡ってるんだろうな

**デフォルトの名無しさん** · 2020/06/11(木) 21:09:21.20

>>458
まぁ、そうですよね。無駄な処理になるし後者ですよね。
(OOP的に言うと、スコープ毎のインスタンスを参照的な)
ありがとうございました。

**デフォルトの名無しさん** · 2020/06/11(木) 22:40:57.89

>>456
Perlにあっては「わざわざ」ではない。
localはダイナミックスコープ、my/ourはレキシカルスコープであることは意識しておくべき。

**デフォルトの名無しさん** · 2020/06/12(金) 02:39:58.45

宜しくお願いします。
$1をクリアしたい場合は「'' =~ /()/;」等として
無駄なマッチングをして空文字列を設定しないとダメですか？
数億件のデータを捌く際とか、めちゃくちゃタイムロスになりますよね？
皆様はどうされてるのでしょう？

**461** · 2020/06/12(金) 02:41:54.90

>>461
↑に追記です。
$2以降のクリアも含めてお願いします。
最適な解を頂ければ幸いです。

**540** · 2020/06/12(金) 02:51:00.48

>>461
まず、scalar変数の場合
=()はできない

=''や""は明示的に空文字列を設定することになる

なので既存変数をクリア、というか不定状態に設定するには
= undef;

あるいは数値を設定するためのシンボルを値0に戻すには
= 0;

undefは値として評価されれれば0,文字列として評価割れれば空文字列''が返った
(と思う)

**デフォルトの名無しさん** · 2020/06/12(金) 03:17:40.95

答えではないのだけれど、そういう場面に遭遇したことがないんだよね
簡単でいいのでどんな時に必要なのかしら？

**461** · 2020/06/12(金) 03:24:01.31

>>463
あの…すみません。
スカラー値の評価の話をしている訳ではありません。
$1や$2や$3と言った特殊変数の値をクリアをする方法を聞いています。
これらの特殊変数に値を代入したらエラーになります。

引き続き>>461-462のベストな解をお待ちしています。
宜しくお願いします。

**461** · 2020/06/12(金) 03:52:20.68

>>464
計数億件のデータがあり、
それぞれにはCのラベルのような項目名がありまして、
それに続く文字列がその項目の値になるのですが、
(例えば「name: value…\n」な感じです)
これを一時的にDBに収めるためnameをキーとしてライブラリに渡したいんです。
一般的に思いつく方法としては、
「if( $ln =~ /^(パターン)://g ){ func( $1, $ln ); … }」
とすれば良いのですが、
なにせ件数が多いので、無駄な条件文を省きたいのです。
(条件文は処理が重いので)
検証実測値では1日以上の処理速度差がでるかもなのです。
(他にも同等の処理があるのでかなり省ける感じがするんです)

func()は、キーや値が未定義値もしくは空値であれば、
なにも処理をせず抜けるので、
$1がクリアできればif文を無くすことが出来ます。
そこで思いついたのが、
>>461の「'' =~ /()/;」ですが、これでは本末転倒です。

と言うのが経緯です。

**デフォルトの名無しさん** · 2020/06/12(金) 04:05:50.63

>>465
そもそも、$nはマッチしたときのみ参照する変数であるから、わざわざリセットする必要がない。

if (m/(.*)/) {
say $1;
}

これ以上の回答は>>464に答えてから。

**デフォルトの名無しさん** · 2020/06/12(金) 04:13:00.69

あら、いきちがった。。。

そういう話であれば、気にするな、ってところやろ。ｗ

オレの感覚では、ifで判定して関数を呼び出さないほうが速そうだと思うがなあ。
Perlの処理としては、関数からすぐ戻ると言っても、呼び出しもそこからの戻りもそんなに軽くはなかったような。

「かも」とか言ってないで、真剣ならまず計測してみろ。

**デフォルトの名無しさん** · 2020/06/12(金) 05:15:54.75

説明してくれたけど、やっぱイマイチ分からん
$1をクリアして無条件でfunc( $1, $ln )を呼び出したい、ということかしら
その時funcは通過するだけ、と
パフォーマンスを気にするならやっぱり　$1 && func( $1, $ln )とかの方がいいと思うけどな
多分、何か事情があるのでしょう。
美しくはないけど'' =~ /()/;なら誤差の範疇と思いますよ。
数値としてはベンチマークで

**デフォルトの名無しさん** · 2020/06/12(金) 05:31:29.45

$1をやめる選択肢は?

($label) = $ln =~ /^(パターン)://;
func($label, $ln);

**デフォルトの名無しさん** · 2020/06/12(金) 05:32:22.97

あ、/ 多い……

**デフォルトの名無しさん** · 2020/06/12(金) 05:38:56.76

答えじゃないんだけどさ、
$x = $ln =~ /^(パターン):/ && $1
これで以降は$xを使う、とか。

**デフォルトの名無しさん** · 2020/06/12(金) 05:48:44.96

え、array使わないの?
俺としては

($label) = $ln =~ /^(パターン):/;
func($label, $ln) if $label;

を推したい

**デフォルトの名無しさん** · 2020/06/12(金) 07:57:32.00

Ruby で特殊変数などは、スレッドローカル変数だから、
マルチスレッドでも共有しないから、安全だけど

特殊変数をクリアする必要など、考えたこともない

**デフォルトの名無しさん** · 2020/06/12(金) 09:26:27.43

マッチに失敗してるのに古い$1を使ってしまって、
みたいなケースはちょいちょいあるな

それはクリアしてなかったからではなくて、失敗をトラップしてないバグ

**デフォルトの名無しさん** · 2020/06/12(金) 13:25:45.07

>>466
もうCで書いちゃえよ。速いよ。
コロンまでの文字列抜き出すのは簡単だろう。

**デフォルトの名無しさん** · 2020/06/12(金) 13:29:01.14

速くしたいなら正規表現でマッチするかどうかなんてことやることそのものが間違いだとも思える。
同じPerl使うのであってもindex関数使うとか、他にやりようがあるんじゃないか？

**デフォルトの名無しさん** · 2020/06/12(金) 14:03:27.64

大量のデータを効率よく扱うのは、データベース構築するのが正解

個人が扱う範囲だと、テキストで持って全検索で困らないけど、
量が増えるとそのうち破綻する

**デフォルトの名無しさん** · 2020/06/12(金) 14:24:52.04

>466

$ln =~ /^(パターン):|(.*?)/
にすると、「^(パターン):」にマッチしないときに$1を空文字にできる。

**デフォルトの名無しさん** · 2020/06/12(金) 14:50:38.25

ただ、（試してはいないが）if文のオーバーヘッドより、
関数呼び出しのオーバーヘッドのほうが大きいと思うけどな。

**デフォルトの名無しさん** · 2020/06/12(金) 15:40:26.50

そこまで速度に気にするならC++とかで書いた方がいい気がするね

**デフォルトの名無しさん** · 2020/06/17(水) 18:41:04.46

そんなデカいデータをよくパールでやるね。
C で書け。

**デフォルトの名無しさん** · 2020/06/28(日) 09:30:04.48

https://developers.srad.jp/story/20/06/26/1324207/
> Perl 7が発表される。実質的にはPerl 5系のリネーム
> ストーリー by hylom 2020年06月26日 17時08分
> 現代における素人にはオススメできない言語部門より

現代における素人にはオススメできない言語
…なら、文字列処理をやりたい素人は何を学べばいいの？

**デフォルトの名無しさん** · 2020/06/28(日) 11:26:26.20

5の後継なら7にする必要あるの？

**デフォルトの名無しさん** · 2020/06/28(日) 13:29:12.55

>>484
事情を知らなくても最新版だとわかりやすくするために。

Perl6、Rakuがあるなかで、Perl5と言われたら古いとかEOLとかの疑いを持たれかねんから。
それに、必要であれば非互換も？

**デフォルトの名無しさん** · 2020/06/28(日) 18:17:09.91

お型付けできるようになったら嬉しいな

**デフォルトの名無しさん** · 2020/06/28(日) 19:55:20.21

ついに後方互換捨てるのか！

**デフォルトの名無しさん** · 2020/07/02(木) 21:44:39.67

デフォルトの状態が変わるだけで
適宜オプションつければ後方互換も保てるらしいよ
Perlのこういうところ好きだわ