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

**デフォルトの名無しさん** · 2014/02/19(水) 23:36:23.29

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: http://kohada.2ch.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.18.2)

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

**デフォルトの名無しさん** · 2016/06/22(水) 18:37:34.12

>>251
いや、そのドットが重要なのでは…？

**デフォルトの名無しさん** · 2016/06/22(水) 19:34:58.14

>>252
色々と試行錯誤した中で試してみましたが、ドットを入れるならスペース入れても
同じような・・・
perl -p -e 's/(12.34.56)/$1 /g;'

**デフォルトの名無しさん** · 2016/06/22(水) 19:45:27.49

もう連続した数値を2桁ずつ区切るとは話が違ってきてるぞ
まあ色々試しているんだろうが、まず正規表現をちゃんと勉強した方が結局は早道だよ

**デフォルトの名無しさん** · 2016/06/22(水) 20:13:59.90

>>253
正規表現を使っているという事は理解してる？
ドット一つは「任意の一文字」を意味しているのだけれども…

**デフォルトの名無しさん** · 2016/06/22(水) 20:14:45.08

$string = '012345';
$string =~ s/(..)/$1 /g;

**デフォルトの名無しさん** · 2016/06/22(水) 20:36:25.70

s/(..)/$1 /g

( ) で囲むと、キャプチャーできて、$1～9 で後方参照できる。
. は、任意の1文字だから、.. で2文字

その2文字を、$1で参照して、その後ろに、半角空白を付けている。
$1の後ろに、半角空白があるだろ

g(global)フラグは、すべて置換する

だから、ab なら、ab半角空白となる。
正規表現の説明を参照

**デフォルトの名無しさん** · 2016/06/22(水) 20:38:53.55

質問者は本当にやりたいことを隠して質問してるからもうどおでもいいけど
なぜ　 perl -p -e 's/(..)/$1 /g;'　でうまくいっちゃうんだろうね。

ぱっと見だと
001500 -> 00 01 15 50 00
になってもおかしくないのになと思った。

**デフォルトの名無しさん** · 2016/06/22(水) 21:11:10.25

>>249->>258　皆さまスレ汚してすみませんでした。
Perlは使うばかりで、プログラミングはど素人です。
(..)は顔文字だと思っていました・・・お恥ずかしい

○○○@H170M-PLUS ~
$ perl -p -e 's/(..)/$1 /g;'
123456
12 34 56

あ～スッキリした。
有難うございました。

**デフォルトの名無しさん** · 2016/06/22(水) 22:35:11.08

>>258
1234なら、12 23 34 にはならない

.. は2文字に一致するから、12に一致する。
すると次は、3からスタートするから、34に一致する

つまり、一致した次の文字から、スタートする

**デフォルトの名無しさん** · 2016/06/22(水) 23:26:29.09

なるほろー。
最初はこんな感じが頭にうかんだけど冗長だね。ワンライナー３級ですな。
perl -ne 'for( $i = 0; $i < length() ; $i += 2 ){ print substr($_,$i,2)" " }'

**デフォルトの名無しさん** · 2016/06/23(木) 09:02:33.36

もう顔文字にしか見えない(..)どうしてくれる

**259** · 2016/06/23(木) 10:28:45.02

>>262　_(_^_)_　m(_ _)m

**デフォルトの名無しさん** · 2016/06/23(木) 14:28:28.61

>>243
もう見てないと思うけど、一応書いとくよ。君はまず、
Perl readdir Windows
でググってみるべきだった。

**デフォルトの名無しさん** · 2016/06/28(火) 23:22:27.94

複数の文字列フィルタ (grep や s) を連続で通す書き方って、どうだったっけ？
ある文字列を
　・grep でフィルタ　→　grep で再度フィルタ　→ s で置換　→　split で分割　→　先頭要素だけスカラー変数に格納
これをスマートに（可能ならば1行で）やりたい。

**デフォルトの名無しさん** · 2016/06/28(火) 23:31:42.78

@result = map {(split //)[0]} map {s//;$_} grep {} grep {} @strings;
こんな雰囲気でええんでないかい？

**デフォルトの名無しさん** · 2016/06/29(水) 01:53:58.12

mapやgrepを一行で複数書くのはアホの代表だと思いまーす

**デフォルトの名無しさん** · 2016/07/02(土) 14:22:47.36

基本的に日本語で書いたときの逆順に記述するだけなんだけどね
マニュアル読んで分からなければたぶん無理だろう

**デフォルトの名無しさん** · 2016/07/02(土) 15:01:42.19

批判するならコードかけや

**デフォルトの名無しさん** · 2016/07/04(月) 00:55:08.84

id="011"<width>1</width>

この文字列から011だけ正規表現で抜き出す方法教えてください
idの数値だけを抜き出したい

**デフォルトの名無しさん** · 2016/07/04(月) 00:57:21.80

>>270
これで文字列全体？
その前後にいろんなタグがありそうないやな予感がするんだが？

**デフォルトの名無しさん** · 2016/07/04(月) 01:08:21.29

>>271
ありますが、かなり長いxmlなので必要だと思った部分だけ抜き出しました
もう少し抜き出してみるとこんな感じです

source="http://hogehoge.xml"; />
<name="foo" id="0110"

このような文字列が大量にあってそのなかからidの数値だけが欲しいです

**デフォルトの名無しさん** · 2016/07/04(月) 01:29:50.90

>>270
/id="([0-9]*)/g
これでできたような気がします

**デフォルトの名無しさん** · 2016/07/04(月) 22:53:37.85

HTMLパーサーを使うのが一番簡単で正確
コメントの中にHTMLがあったらどうするんだ？

つーか正規表現を乱用するな。

**デフォルトの名無しさん** · 2016/07/04(月) 22:54:10.05

XMLパーサーか

**デフォルトの名無しさん** · 2016/07/05(火) 17:36:47.05

>>270 だとタグの外にあるように見えるのに >>272 ではタグの中になってる。
だから静観してたけど、結局どっちなの？

**デフォルトの名無しさん** · 2016/07/05(火) 17:48:38.40

なんか最初のだと後に<width>のある特定のidの値が欲しいのかな？って思ってたけど
そうでもなくて全部のidの値でいいんだってのが>>273でわかったんで拍子抜けしたところ

**デフォルトの名無しさん** · 2016/07/08(金) 23:33:47.61

うん、自称ベテランにありがち。

**初心者です** · 2016/07/09(土) 07:48:40.33

宜しくお願いします。

$ua->cookie_jar(HTTP::Cookies->new(file => "cookie.txt",autosave => 1));
でcookie.txtにクッキーを取得できるのは分かりますが
削除したい場合にはどのようなコードを書くんでしょうか？

**デフォルトの名無しさん** · 2016/07/09(土) 16:55:14.14

そういえばいつもお世話になってるのに知らないな……と思ってマニュアルを読んでみた。
どうやら clear を使うらしいな。まずは scan で中身を見てみるのが良さそうだ。
これ以上は説明のしようがない。自分で頑張ってほしい。

**デフォルトの名無しさん** · 2016/07/09(土) 21:07:47.73

ウィッス

**デフォルトの名無しさん** · 2016/07/11(月) 17:00:44.97

マルチプロセス処理の Parallel::Prefork は、
Ｗindows のＳtrawberryＰerl かＡctiveＰerl に、インストール可能ですか？
http://pass.cpantesters.org/distro/P/Parallel-Prefork.html

Ｓtrawberry、Ａctive、旧バージョン、32bit、64bitなど色々試したけど、
＞Can't locate Parallel/Prefork.pm in @INC (you may need to install the Parallel::
＞Prefork module) (@INC contains: C:/．．．

**デフォルトの名無しさん** · 2016/07/12(火) 01:04:59.55

cpanmやらppmでやってみたら

**デフォルトの名無しさん** · 2016/07/14(木) 20:00:42.23

突然文字が正しく表示できなくなるゴミPerl
人をイラつかせるために作られた言語だなこれ
存在価値がないどころか存在事態が害悪
早く消滅すればいいのに

**デフォルトの名無しさん** · 2016/07/14(木) 20:06:36.90

マジで使い物にならない
「ゴミPerlで文字がいきなり変になる対処」
「産廃Perlの文字取り扱いがおかしいのをなんとかする方法」
「糞Perlが文字をまともに扱えないことへの特効薬」
もう数時間検索してるが解決案が出てこない
こんなに酷い言語はPerlくらい

**デフォルトの名無しさん** · 2016/07/14(木) 20:15:06.51

Perlは本物のゴミ
文字すらまともに表示できないとか利用価値なし

**デフォルトの名無しさん** · 2016/07/14(木) 20:25:10.95

Perlのゴミなところ

文字「あ」すら表示すらできないためとてつもなくイライラする

**デフォルトの名無しさん** · 2016/07/14(木) 20:28:38.21

明日納品なのに解決する兆しなし
こういうときは一から書き直すことも多いが何千行もあるシステムを明日までに書き上げられるわけもない
本当にPerlはゴミすぎる

**デフォルトの名無しさん** · 2016/07/14(木) 23:24:13.01

だからバイナリで扱えと口が酸っぱくなるほど言ってきたわけで聞き入れないお前が悪い。

**デフォルトの名無しさん** · 2016/07/15(金) 08:14:17.03

文字コードを理解してないだけでは・・・？

**デフォルトの名無しさん** · 2016/07/15(金) 08:34:29.93

テンプレの>>5 を誰かが勝手に変えたからだ。
元々はこうなっていた。
http://pc12.2ch.net/test/read.cgi/tech/1234181856/4
------------------------------------------------------------
#　[Perl 日本語処理の基礎の基礎]
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
#　このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
#　入出力ともシフト JIS 形式のファイルまたは DOS 窓を想定しています。
#　まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO =>

**デフォルトの名無しさん** · 2016/07/15(金) 08:36:25.21

ありゃ？途中で切れちゃった。>>291のリンク先見てね。

**デフォルトの名無しさん** · 2016/07/15(金) 09:08:17.43

とりあえず Data::Dumper と PerlIO::get_layers を使えば助けを求めるのに役立つと思うが
責任転嫁しかできないゴミに言ってもなぁ……

**デフォルトの名無しさん** · 2016/07/15(金) 12:22:26.70

>>285 それからな、
> ゴミPerl
> 産廃Perl
> 糞Perl
どれも、なかなかいいところを突いているが、ちょっと外れているな。
正解は「ガラクタ」だ。

Perl とは「pathologically eclectic rubbish lister」
（病的折衷主義のガラクタ出力装置）の略なのだ。

**デフォルトの名無しさん** · 2016/07/16(土) 12:58:34.75

インコード
使ったソースは
ウンコード

**デフォルトの名無しさん** · 2016/07/17(日) 01:45:28.71

内部エンコードはperl独特だよね。
扱えれば入力と出力がどんなエンコードだろうが無双出来るけど

**デフォルトの名無しさん** · 2016/07/17(日) 09:40:41.84

>>294
「Perl を愛する人にとっては」と前置きするのを忘れてるぞ。

**デフォルトの名無しさん** · 2016/07/17(日) 13:59:57.99

まぁperlなんて使い物にならないでしょ

use utf8;付けたらそれまで文字化けしなかったUTF8の文字列が文字化けしたし

**デフォルトの名無しさん** · 2016/07/17(日) 14:42:10.28

なにその理論(笑)

まぁ使いにくいのは異論ないが

**デフォルトの名無しさん** · 2016/07/17(日) 16:24:12.49

ではperlじゃないならなにがいいのかな。python?
rubyはパイプ記号が変なところで出てくるからちょっと違和感有り。

**デフォルトの名無しさん** · 2016/07/17(日) 17:57:00.54

＝パイプ記号

**デフォルトの名無しさん** · 2016/07/17(日) 17:57:53.58

賭けてもいいが、文字コードが分からないのをPerlのせいにしてるやつが、
自分で1からプログラミングしたら壊滅的な状況になると思う。

**デフォルトの名無しさん** · 2016/07/18(月) 02:39:59.89

でも、かつて壊滅的な状況じゃなかったよね？

**デフォルトの名無しさん** · 2016/07/18(月) 03:14:08.10

＞賭けてもいいが、文字コードが分からないのをPerlのせいにしてるやつが、
＞自分で1からプログラミングしたら壊滅的な状況になると思う。

意味不明な言動をする気違い。

「賭けてもいいが、腹が痛くなるのを残飯のせいにしてるやつが、
自分で1から料理したら壊滅的な状況になると思う。」

と言ってるのと同等で意味不明。
気違い。

**デフォルトの名無しさん** · 2016/07/18(月) 07:46:08.11

自分で料理出来るのであれば、残飯なんて最初から食べないよ…
残飯を食べるという事は、食べざろうえない理由があっての事だろうに…

**デフォルトの名無しさん** · 2016/07/18(月) 08:14:55.04

すくなくとも腹痛を人のせいにしなくてすむんじゃね？

**デフォルトの名無しさん** · 2016/07/18(月) 14:09:08.76

高級料理も残せば残飯になるのさ。
最後の姿を見ただけで、本来の姿を判断するのは
無能というもの。

**デフォルトの名無しさん** · 2016/07/19(火) 09:36:50.47

文字コードが分からないのをPerlのせいにしてるのは馬鹿の上限を突破してるが、
腹痛を残飯のせいにするのは間違ってないだろう。食ったと言う意味では馬鹿だが

**デフォルトの名無しさん** · 2016/07/19(火) 14:33:33.84

どんなに文字コードを理解している人間でも文字をまともに扱えないピログラム言語の前では無力
その程度のことも分からないのかはたまたPerlがまともな言語だと錯覚しているのか
もし錯覚しているならば自分の使っている言語についてほとんど何も知らないということになる
まずはその自覚をすべきである

**デフォルトの名無しさん** · 2016/07/19(火) 15:10:05.04

参考までに聞くけど、文字をまともに扱える言語って何？

**デフォルトの名無しさん** · 2016/07/19(火) 15:23:05.53

全行つっこみどころ満載なやつにかまってはいかん

**デフォルトの名無しさん** · 2016/07/20(水) 17:32:04.55

んで俺も文字をまともに扱える言語がなにか気になるわけだが
310とは別人

**デフォルトの名無しさん** · 2016/07/20(水) 19:56:54.60

文字は知らんけど、
Perlってあらゆる面でPHPより劣ってるよな。

**デフォルトの名無しさん** · 2016/07/20(水) 20:04:27.70

PHPってHTML言語じゃないの？比較の対象にもならないと思うんだが。
rubyに負けてるというならまだわかるけど。

**デフォルトの名無しさん** · 2016/07/20(水) 21:52:53.39

PHPてあんた

**デフォルトの名無しさん** · 2016/07/20(水) 23:37:17.38

>>314
HTML言語ってなんやｗ
HTMLに埋め込めるってだけでごく普通の
プログラム言語だぞ。

どれくらい普通かというと以下の機能が搭載されてる
・クラス
・インターフェース
・トレイト
・ラムダ
・クロージャー
・名前空間
・例外
・ジェネレーター
・ガベージコレクション

あと言語機能じゃないが、CLIプログラムの作成や
ウェブフレームワークなどもある。

**デフォルトの名無しさん** · 2016/07/20(水) 23:43:45.09

＞PHPってHTML言語
Perl厨は他の言語をロクに知りもしないで
敬遠してるんだろうな。
だからPerl厨はいつまで経っても
エンジニアとして半人前なのだろう。

**デフォルトの名無しさん** · 2016/07/20(水) 23:47:10.52

309ではないがC言語。もちろんPerlもだ。
ついでなんで
s/ピログラム言語/プログラム言語/;

**デフォルトの名無しさん** · 2016/07/20(水) 23:55:15.99

Cって純粋なC？
ご冗談を。
あれは何も文字を扱ってないよ。
自分で作って下さい、ってね。

**デフォルトの名無しさん** · 2016/07/20(水) 23:58:27.03

>>316
だからなに？
その機能'(笑)はわざわざ書かなくてはならないことなの？
だから文字の扱いに対してもおかしな考えを持つんだね。
文字を扱うのは言語の機能(笑)が大事なんだってね。

基本プログラムが出来ない人はスクリプトが持つ機能とやらに注目したがる。
自分でプログラミングできないからね。

**デフォルトの名無しさん** · 2016/07/21(木) 00:13:43.65

普通のunix処理系にperlは入ってるけどPHPは入ってないでしょ。
Webプログラミングなんてどうでもいい。システムプログラミングとか
テキストマイニングしたいんだって動機から入るとぱっと見PHPは目に入らないよ。
紹介がWeb用ですなんだし。
幼児的に誹謗中傷しないで諭すコミュ力をつけたほうが。。

**デフォルトの名無しさん** · 2016/07/21(木) 01:02:15.71

PerlとPHPを比較するって事自体、CGIの定番としてPerlが使われはじめた15～20年ぐらい前の話だから

**デフォルトの名無しさん** · 2016/07/21(木) 02:09:41.10

>>320
> その機能'(笑)はわざわざ書かなくてはならないことなの？

わざわざ書かないとわからないでしょ？ｗ

これ以外に何が必要なんだい？
言ってみ。

**デフォルトの名無しさん** · 2016/07/21(木) 02:18:26.64

>>319
お前のいう文字は文字列のことか？

**デフォルトの名無しさん** · 2016/07/21(木) 09:47:01.78

質問者が言う文字だ
質問じゃなくて子供の八つ当たりに見えたが

**デフォルトの名無しさん** · 2016/07/21(木) 10:12:11.24

普通のunix処理系ｗｗｗｗ
普通てｗｗｗｗｗｗｗｗｗｗｗ
こんな曖昧でいい加減な単語を使って反論になると思ってんのかｗｗｗ

こんな客観的数値も示せない思い込みが根拠になるなら
普通の人間はPerlなんざ使わねーよｗｗｗｗｗｗｗｗｗ
普通の人間はなｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

**デフォルトの名無しさん** · 2016/07/21(木) 14:22:48.08

perl-5.24.0.tar.gz 開いて見てみたけど
ソースはC言語で書かれているんだよね

作った人は「自分で作って下さい」を実行したんだろうね

**デフォルトの名無しさん** · 2016/07/22(金) 00:54:29.43

文字を扱うのは人間。Perlが扱っているのは文字コードな。

**デフォルトの名無しさん** · 2016/07/22(金) 02:53:58.61

>>316
post/getがよしなにスーパーグローバル変数(笑)に入ったり
何もしなくてもエラーがブラウザで見られたり(言語がhttpプロトコルを理解できてる?)
iniファイルで挙動が変わったり
ごく普通のプログラム言語からはかけ離れてるだろ
Javascriptの方がよっぽど普通なんだけどなぁ

**デフォルトの名無しさん** · 2016/07/22(金) 03:14:36.53

> post/getがよしなにスーパーグローバル変数(笑)に入ったり
それは10年以上前の話だよｗ
知識止まってんなぁ。

**デフォルトの名無しさん** · 2016/07/22(金) 03:31:19.54

>>330
お前の使ってるナウ(笑)なPHPはquerystringに値いれてもvar_dump($_GET)するとnullなの？
言語って10年経とうが根本的な部分はそうそう変わんないだぜ

**デフォルトの名無しさん** · 2016/07/22(金) 04:41:07.53

>>331
Perlではグローバル変数$ENVの$ENV{'QUERY_STRING'} に
querystringが入るけど、それと何が違うん？

**デフォルトの名無しさん** · 2016/07/22(金) 09:01:23.54

>>332
それはCGIとかがquerystringを環境変数へセットしてるだけであって(postは標準入力)
環境変数や標準入力、argsを読む機構はperlに限らずどの言語で備えてるでしょ。
デリミタも指定せずname[]のようなオレオレ仕様で勝手に解釈して予め変数に入れるのを
言語のレイヤーで行うのはphpぐらいしか思いつかない。

**デフォルトの名無しさん** · 2016/07/22(金) 09:13:02.54

>>333
え？「思いつかない」ってだけ？ｗ

**デフォルトの名無しさん** · 2016/07/22(金) 09:14:42.73

PHPの話してる時点でズレてるとは思わんのかね

**デフォルトの名無しさん** · 2016/07/22(金) 13:21:21.28

いきなりなんの前触れもなかったし、何言ってんだ？と思ったら、PHPのdisりかよ。
知らんがな…

**デフォルトの名無しさん** · 2016/07/22(金) 14:07:48.50

＞セットしてるだけ
だけｗ

**デフォルトの名無しさん** · 2016/07/22(金) 14:50:50.79

言い訳が苦しくなってくると、最後に「だけ」を付加するPerl厨
窃盗犯が「ちょっと借りただけだろ」と言い訳するのと同じ
犯罪者と同じ思考パターンを有するPerl厨

ちなみに犯罪者と同じ思考パターンを持つヴァカがPerlを選ぶのか
Perlを使ってるうちに犯罪者と同じ思考パターンを持つようになるのかは不明

どちらにせよPerl厨はヴァカで犯罪者予備軍ということに変わりはない
まともな人間はPHPを選ぶ

**デフォルトの名無しさん** · 2016/07/22(金) 22:02:06.14

今時仕事にも趣味にも役に立たないPHP選ぶバカはいないだろ

**デフォルトの名無しさん** · 2016/07/22(金) 23:10:31.36

>>334
php以外の該当する言語を一つあげるだけで完全に論破できるチャンスだよ！

**デフォルトの名無しさん** · 2016/07/22(金) 23:38:00.41

はいはい。犯罪者予備軍ね。NGにしときますわ。
やりたいことやりたい人は処理系にこだわりはないのにアホか。
コード書けない中学生がVBよりVCと言ってるのと変わらんわ。

**デフォルトの名無しさん** · 2016/07/23(土) 01:01:50.42

>>340
逆だろ？

PHPが他の言語と一緒だということを証明するために
他の言語でもあるような機能を言う。
PHPは他の言語と同じであることを示すことが、正しい論破の仕方だ。

PHPは「他の言語＋αの機能」であるという事実に対して
それと同じものを出すことで、何を論破することになるのか？

**デフォルトの名無しさん** · 2016/07/23(土) 02:01:49.49

そろそろ邪魔くさくなったから消えてほしい
劣等感のかたまりは迷惑関係なく必死で長所をアピールしはじめるってね
適切なスレでやってくれんかね

**デフォルトの名無しさん** · 2016/07/23(土) 02:30:45.09

嫌なら見なければいいのに
他人にあっちいけとか指示する池沼っているよな。
自己中心的な池沼のお手本。

**デフォルトの名無しさん** · 2016/07/23(土) 08:35:47.91

他プロセスでファイルをopenしているときにそのファイルをrenameしようとすると
renameできないみたいだけどうまくrenameする方法は？

**デフォルトの名無しさん** · 2016/07/23(土) 10:06:58.15

close

**デフォルトの名無しさん** · 2016/07/23(土) 11:14:44.62

>>346
それだとopenとcloseする間にrenameが割り込むとだめ

そこで自分で方法を考えました
まずディレクトリにaccess_kinshi.datというファイルを作ります
このファイルが存在している間は他プロセスでこのディレクトリにあるファイルは全てアクセスできないものとする
そしてディレクトリ内にあるファイルを全てrenameする
そのあとaccess_kinshi.datファイルを削除すればいいということです

**デフォルトの名無しさん** · 2016/07/23(土) 11:20:06.22

前提条件が変わってますけど

**デフォルトの名無しさん** · 2016/07/23(土) 15:21:23.54

他のプロセスってなに？
どっちもPerlで自分の作った物なら、ファイルロックでも使うと良い。
自動待機してくれる

**デフォルトの名無しさん** · 2016/07/23(土) 19:27:38.24

後方参照で教えていただきたいことがあります。
A 80 90
(空白の部分はタブかスペース)
と書いてあるファイルの80とか90の部分を書き換えたいのです。
perl -pe 's/^([A-Z])(\s+)([0-9]{2})(\s+)([0-9]{2})/$1$2$3$4$5/' file で
マッチした部分を参照できるのはわかっているのですが、この場合$3の「80」を「1」にするには
どのような方法をとればよいでしょうか?
perl -pe 's/^([A-Z])(\s+)([0-9]{2})(\s+)([0-9]{2})/$1$21$4$5/' file とすると
$21と解釈されるようで結果がA 90となってしまいます。

**デフォルトの名無しさん** · 2016/07/23(土) 19:32:51.24

シェルスクリプトと同じで、{} で変数名を明治する。
/${1}${2}1${4}${5}/