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

■ このスレッドは過去ログ倉庫に格納されています
2019/02/01(金) 09:44:37.18ID:1/Kr4Qjk
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/07/26(日) 02:35:47.46ID:T0U3lDAz
勉強する気はなしか
やれやれ
2020/07/26(日) 08:04:49.79ID:faz+YmuJ
進捗表示は、計算自体は簡単だけど、ちゃんと見えるように表示するのが
ちょっと面倒なんだよな
2020/07/26(日) 10:44:31.12ID:KWzmTFSY
好きなのを使えばいいよ。
https://metacpan.org/search?q=progress+bar
2020/07/26(日) 11:13:19.32ID:faz+YmuJ
そんなもんがいちいちあるのか
まあ、凝ったことをするなら共通化はするだろうけど
凝ったことしなくても、どういう頻度で表示するかとかの調整は必要で、
UI特有の機能と関係ない面倒臭さの部分なんだよな
2020/07/26(日) 13:26:52.37ID:y3z4IjvW
ターミナルの機能を使いきるなら面倒だろうけど、ただ垂れ流すだけなら簡単やろ。
547デフォルトの名無しさん
垢版 |
2020/07/26(日) 18:32:06.33ID:hRZi6+cn
>>512
最適化するとすると手順はこんな感じかな。

1. 0x1c バイト読んでそのまま書く。
2. 1バイト読む。読めなかったら 5 へ。読んだ内容が 0x40 なら 0x00 に変えて書く。0x40 でなければそのまま書く。
3. 最大 0x7fff バイト読み、読めたデータをそのまま書く。
4. 2へ。
5. 終わり。

STDIN から読んで STDOUT で書くならこうなる。

read(STDIN, $buf, 0x1c);
print $buf;
while (read(STDIN, $buf, 1)) {
　print $buf eq "\x40" ? "\x00" : $buf;
　read(STDIN, $buf, 0x7fff);
　print $buf;
}
548デフォルトの名無しさん
垢版 |
2020/07/27(月) 00:36:57.42ID:Y15FmTu1
>>530さんからの頂き物に、ファイルサイズを取得。。。まではできました（訳：パクれました
みなさんありがとう
し、進捗。。。
----------------------------------------------------------------
open F, "+< ファイル名";
binmode F;
my $filename = "ファイル名";
my $filesize = -s $filename;
print "$filenameのサイズは$filesizeです。\n";
while ($l = read F, $_, 0x8000) { substr $_, 0x1c, 1, "\0"; seek F, -$l, 1; print F }
549デフォルトの名無しさん
垢版 |
2020/07/27(月) 01:28:37.03ID:KvYX/iYh
>>548
いい加減にしろ
2020/07/27(月) 07:32:32.55ID:X6EMHfht
readして変更しないところまでprintするのは無駄なのに
無駄を省けば進捗表示がいらないくらい高速化するだろうに
2020/07/27(月) 09:23:37.46ID:HYhflFVx
コピーを作っておいて、そのコピーの一部だけ変更して書き戻せば一瞬
信頼性が上がったら、コピーは作らずにオリジナルを変更する
2020/07/27(月) 10:25:37.74ID:URSuW3yQ
>>550
ファイルサイズがGBレベルなら、そんなに速くはならんやろ。
2020/07/27(月) 17:35:52.14ID:X6EMHfht
ていうか >>548 は >>530 を参考にしてるのになんで遅い方を使ってるんだ
554デフォルトの名無しさん
垢版 |
2020/07/27(月) 18:21:31.29ID:Y15FmTu1
呼ばれた気がしたので
約10分のデータ（1.3GB）で比較しました

readあり

real 1m34.485s
user 0m0.888s
sys 0m6.100s

readなし

real 1m5.851s
user 0m0.340s
sys 0m3.563s

USB2.0（）でUbuntuにマウントさせた外付けHDD上のデータを直接書き換えています
特殊なフォーマットなのでWindowsでは認識できないのです
555デフォルトの名無しさん
垢版 |
2020/07/27(月) 19:14:13.61ID:KvYX/iYh
DRM解除の片棒担ぐ人達かね
2020/07/27(月) 19:33:35.94ID:HYhflFVx
なんて大層なDRMだ
557デフォルトの名無しさん
垢版 |
2020/07/27(月) 19:46:48.42ID:Y15FmTu1
残念ながら暗号化解除まではされないんです
別の機器にコピーしようとしても「コピープロテクトがなんちゃら。。」と、ちゃんとハネられます
機器内の制限を緩くするためのオフホワイトな作業です
558デフォルトの名無しさん
垢版 |
2020/07/27(月) 20:24:22.40ID:2I3xUck9
頭悪くてプログラムしかできなかった大企業CEO一覧
http://re-file.com/18k/1677/
2020/07/27(月) 22:09:54.28ID:P2Gsimd7
研究目的なら、犯罪の意思がないから、無罪だろ
2020/07/27(月) 23:21:16.44ID:Z4OWIfz1
>>559
理由は関係ないはず
秘匿目的で暗号化されているものを解読することそのものが犯罪
2020/07/27(月) 23:23:00.46ID:Dzov2n68
>>560
そんな事みんな知ってるよ
2020/07/27(月) 23:33:36.72ID:Dzov2n68
法律に詳しいオレってカッコいいだろう？
563デフォルトの名無しさん
垢版 |
2020/07/28(火) 00:29:51.31ID:cSYuj1Eq
>>557
お前は裁判になって負けたら責任全部背負うのか？
564デフォルトの名無しさん
垢版 |
2020/07/28(火) 01:16:10.36ID:YHRj/bUX
責任ｗ
2020/07/28(火) 01:21:05.81ID:YHRj/bUX
暗号化解除してないので責任ｗないですぅ プ
2020/07/28(火) 01:36:31.30ID:Jzf+DoQ+
自称”法律専門家”の底辺ニート達が不毛な議論を展開すると予想
2020/07/28(火) 01:48:48.45ID:R7vB/BT5
コピー許可するフラグをいじるのは私的利用の範囲なら自由じゃないですか？
ここでその方法を聞いたりその答えを書いたりした人がどうなるかはわかりませんが
568デフォルトの名無しさん
垢版 |
2020/07/28(火) 02:17:19.93ID:F+mRlQPD
>>567
他人が使うためにプログラムを公開することに問題がないとでも？
2020/07/28(火) 02:23:12.72ID:p8KDyqHY
Winnyの作者は捕まるが利用者は捕まらない
包丁の販売は捕まらないか利用者は捕まる事が有る
YouTubeであるけど包丁を自作して販売したら捕まるのか？
2020/07/28(火) 02:35:26.47ID:R7vB/BT5
>>568
コピー許可フラグを取り除くプログラムを公開することは問題ありと見ているわけですね
確かに東芝の全機種に対して動作可能であるなら影響は大きそうです
571デフォルトの名無しさん
垢版 |
2020/07/28(火) 05:40:11.08ID:U3aN9PuQ
おかしな雲行きになってきたので説明（釈明）を

まず第一に、このスクリプトだけでは目的を達成することができません
いくつか別ファイルを修正する必要があります
当然ながらこのスレではそれらは公開されていません
不完全な変なデータが出来上がるだけです

第二にこの手法が通用するのは、10年以上前に発売された「ある機種」のみです
次機種以降ではこの"バグ"はすっかり塞がれました
ディスクの中身をこれほどたやすく弄れるなんて話は聞いたことがないです
今現在どれほどの人がこの機種を使っているか知りませんが。。。

そしてこれは「暗号化解除」を目的としていません
ヘッダの一部分をちょっと弄っただけでプロテクトが外れるとか、幼稚園児ですか？
これはデータを細工して機器を「騙している」にすぎません
572デフォルトの名無しさん
垢版 |
2020/07/28(火) 05:41:52.28ID:U3aN9PuQ
「暗号化解除ではない」と書いているのに裁判（ｗ）とか責任（ｗ）とか言ってる人って
字が読めないのか、頭が悪くて理解できないのか、あるいは目が見えないのか
10年前も当時の２ちゃんねる（）で話題になって多くのスクリプトやプログラムも配布されました
彼らは訴えられたのかなぁ？心配です（棒

ついでに言えば
実は>>530は私です
壮大な自作自演です（今時）
進捗表示を教えてほしかっただけなのです。。。

みなさん釣り堀へようこそ

そして農家の朝は早い
573デフォルトの名無しさん
垢版 |
2020/07/28(火) 05:43:41.18ID:U3aN9PuQ
それでは最後に

普段から社会にこれっぽっちも貢献してないくせに、こんな匿名掲示板で妙な倫理観や底が浅い正義感を振りかざすとか

以降、間抜けな人たちの「負け惜しみ」のレスが続きます
屁理屈、論点ずらし、人格否定など、つたない書き込みをしばらくの間お楽しみください
合わせて「おかしな雲行き　まで読んだ」もお楽しみください
574デフォルトの名無しさん
垢版 |
2020/07/28(火) 06:49:13.06ID:Z44sycP1
釣り堀する前に、Linuxインストールできるようになれよ。
575デフォルトの名無しさん
垢版 |
2020/07/28(火) 07:03:33.82ID:U3aN9PuQ
Linuxで思い出したが、最新のUbuntuとかでは（仕様変更で）その機種の外付けHDDを「書き込み可」
でマウントできない
手動で”-RW”オプション付けてマウントしようとしてもダメ
書き込みできないからスクリプトもエラーになる
仕方ないのでUDF関連のソースファイルを弄ってカーネルをコンパイルしている
多分世界で私だけだと思う（そんな需要があるわけない）

>>574
頑張って
576デフォルトの名無しさん
垢版 |
2020/07/28(火) 07:08:12.80ID:Z44sycP1
パソコンはコマンドが基本だからな。
コマンド出来るようになれよ。
2020/07/28(火) 07:37:42.56ID:s7pIWQUC
readの有無で差がなさすぎて信じがたいんで実験してみた

RAMディスクで fsutil file createnew data 2000000000 して

Measure-Command { perl -e 'open F, q/+< data/; binmode F; while ($l = read F, $_, 0x8000) { substr $_, 0x1c, 1, qq/\0/; seek F, -$l, 1; print F }' } | % TotalSeconds
2.8214867

Measure-Command { perl -e 'open F, q/+< data/; binmode F; seek F, 0x1c, 0; while (! eof F) { seek F, 0, 1; print F qq/\0/; seek F, 0x7fff, 1 }' } | % TotalSeconds
1.3621179

readしなくても32KB毎に書く時に読むだろうからこんなもんか
578デフォルトの名無しさん
垢版 |
2020/07/28(火) 13:31:46.55ID:DVrEteyf
>>571
あんた誰？
2020/07/28(火) 14:31:17.47ID:U3aN9PuQ
>>578
あんたは誰？
先に名乗って マヌケ
580デフォルトの名無しさん
垢版 |
2020/07/28(火) 15:14:32.97ID:DVrEteyf
ひみちゅ
581デフォルトの名無しさん
垢版 |
2020/07/28(火) 16:12:16.22ID:7IzxJUwl
>>580
なんかこの人好きやわ笑笑
582デフォルトの名無しさん
垢版 |
2020/07/28(火) 20:58:23.32ID:U3aN9PuQ
約13GBのデータで(usb2.0)

2ch配布Linuxネイティブアプリ@10年前　64bit版
　12m10.357s
Perlスクリプト readあり
　12m5.101s
Perlスクリプト readなし
　8m38.678s
583デフォルトの名無しさん
垢版 |
2020/07/28(火) 21:18:54.63ID:LCUSVvjE
>>582
死ね、クズ
584デフォルトの名無しさん
垢版 |
2020/07/28(火) 21:42:15.96ID:7IzxJUwl
>>583
ネットでの暴言はインキャがすること。
てめぇはこうなれ！！！
http://re-file.com/18k/1669/ (結構グロ)
2020/07/28(火) 21:51:29.80ID:rf/YfV6w
殺したいほど嫌悪するような事か？
おそらく心の病気だから早く病院行った方がいい
586デフォルトの名無しさん
垢版 |
2020/07/28(火) 22:01:24.31ID:7IzxJUwl
>>585
あの〜傍観者なのですが、これって584と583
どっちに言ってるんですか？？
2020/07/28(火) 22:22:07.89ID:Jbl72Gtp
もっと争え
588デフォルトの名無しさん
垢版 |
2020/07/28(火) 22:27:18.25ID:7IzxJUwl
ネットはこうでなくちゃ！明日の学校めんどいけど、この争いみたら
楽になれる！
2020/07/28(火) 23:07:09.57ID:rf/YfV6w
なぁお前らってホントにコード書けるの？
何でここにいるの？
2020/07/28(火) 23:26:37.15ID:rf/YfV6w
明日の学校とか五十過ぎのオッサンが恥ずかしくないのか？
591デフォルトの名無しさん
垢版 |
2020/07/28(火) 23:54:00.05ID:7IzxJUwl
>>590
福岡県福岡市東区在住
西南学院中学二年〇組テニス部
学力推移調査:225/223位
全教研赤坂本校筑女,西南合同ｖクラス
明日の時間割英会話.社会.聖書.体育
(保護者面談なので４限授業）
頭は悪いがプログラムができるのでマークザッカーバーグ
のように校内snsをつくって流行らせようとしてます笑笑。
昨日、無断で水曜日に部活休んだのでめちゃくちゃ怒鳴られました。
明日の聖書は、「手紙」というくだらない日本映画を見ます。
今日は一時から「爆笑問題カウボーイ」というラジオがあるので、
monsterのんでずっと起きてます。２年になって運が悪いことに親しかった
友達は２組と五組に分かれてしまい、僕だけ〇組という
辺境の地に飛ばされました笑笑。好きなアーティストは「ずっと真夜中でいいのに」
という顔出ししていないバンドです。さっき5chのずとまよ専用スレで顔写真をみて、
とても美人だったので今すごくうれしいです。好きなサイトは、「リファイル」というグロサイトです。
「西南学院中学２年という名前でコメント投稿してるので、グッドボタン押して下さい。
592デフォルトの名無しさん
垢版 |
2020/07/28(火) 23:55:04.17ID:V3SVLGoH
>>590
学校の先生かも知れんよ
593デフォルトの名無しさん
垢版 |
2020/07/28(火) 23:59:10.33ID:7IzxJUwl
ほんとに信じてくれ!
594デフォルトの名無しさん
垢版 |
2020/07/29(水) 00:00:07.74ID:hFsck1GX
>>592
全然信じてくれんやん笑笑
595デフォルトの名無しさん
垢版 |
2020/07/29(水) 00:01:21.85ID:hFsck1GX
>>591
というか、こんなにネットにさらすのはやばかったかな?
596デフォルトの名無しさん
垢版 |
2020/07/29(水) 00:05:34.09ID:hFsck1GX
>>590
逆に聞きますが、あなた五十過ぎのオッサン
何ですか?( ´∀｀ )
2020/07/29(水) 00:11:56.16ID:g1h81RwA
>>593
リアル厨房なら、perlなんかやめたほうがいいね。
python のほうがずっと言語仕様が綺麗で、複雑な処理も簡単にこなせる。
今、perlを使っているのはな、20年前からperlを使ってて、
他の言語に乗り換える気力も失ったオッサンばっかりだよ。
598デフォルトの名無しさん
垢版 |
2020/07/29(水) 00:13:37.08ID:CwVjY0Ri
蛇より真珠のがキレイだ
599532
垢版 |
2020/07/29(水) 00:13:51.84ID:gNILtmsT
python, goなど他の言語もやってますが
600デフォルトの名無しさん
垢版 |
2020/07/29(水) 00:19:14.22ID:hFsck1GX
>>597
最近はperlよりphpに力を入れてます
2020/07/29(水) 02:50:53.58ID:ZD2Ud5DP
>>597
互換性重視ならPerlしか。
Rubyはとんでもないし、Pythonもあやしい。
602デフォルトの名無しさん
垢版 |
2020/07/29(水) 02:59:07.17ID:TsNd4noZ
Kotlinもよろしく
2020/07/29(水) 07:08:18.48ID:q44g7qzE
問題
----
$flags に格納されているフラグ 0x40 をリセットして 0x00 にする
次の3通りの処理から採用する方法を理由を添えて答えなさい

　　　a. $flags = 0x00
　　　b. $flags = 0x00 if $flags == 0x40
　　　c. $flags &= ~0x40
2020/07/29(水) 08:33:33.53ID:W2ZwK0DF
でも、そこだけ書き換えて、ちゃんと動いたの？

もし、チェックサムがあれば、エラーになるはずだけど
2020/07/29(水) 15:15:31.23ID:opF1rrDZ
>>597
個人的にはサーバプログラムはgo
時点でpythonかな
perlはlinuxなら環境を選ばないという点で、シェルスクリプトはperl一択
それぞれに良さがある
606デフォルトの名無しさん
垢版 |
2020/07/31(金) 06:23:48.86ID:uvjudIRN
>>603
a, b は他のビットが0になっても良い場合、及びbは他のビットが0の場合に動く。
cは
あ、ちょっと今書いてる時間ない。誰か他の人よろしく。
607デフォルトの名無しさん
垢版 |
2020/08/02(日) 05:05:52.61ID:IlYSPDQE
Cは他のビットを崩さずに 0x40 の所のビット(2進だと01000000)だけ0にする。
2020/08/02(日) 07:04:07.45ID:MjfLntA9
何を 0x00 にするのか不明確な時点で出題者の頭が悪い。
a を意図しているなら 0x40 は関係ないし
b を意図しているなら「0x40 をリセットして」ではなく「0x40 がセットされていれば」と
書かれていなければならない。
ひょっとして、元の値が 0 だったらリセットしたことにはならないということか?
c を意図しているなら他のビットが全部 0 の場合に限り「$flags の値を 0x00 にする」
ことになるだろうが、そのようには書かれていない。
$flags & 0x40 を 0 にするということなら、 0x00 と表記するのは
値としては同じでも適切な表記なのか疑問が残る。
しかしこれが最も無理のない解釈だろう。
こんなに忖度させるようでは出題者は落第だ。
2020/08/02(日) 07:43:03.21ID:muADJDro
うわあ恥ずかしいやつが来ちゃった
>>603 は >>505 からの流れがあって出された問なのに・・・
2020/08/02(日) 09:49:24.57ID:LgIKwsTf
pythonいいけどちゃんと書かないとすぐバグるから気をつけてな
2020/08/02(日) 10:05:23.75ID:Vanmrtqf
perlもちゃんと書かないとバグるぞ
2020/08/02(日) 12:33:21.72ID:uvJ0AhRU
ちゃんと書かないで
バグらない言語ってあるのか?
2020/08/02(日) 12:40:43.04ID:L8TYFRoG
水掛け論でしょ　言語仕様を理解しないで適当に書いてちゃんと動くかどうかの話
2020/08/02(日) 12:45:33.70ID:Vanmrtqf
仕様からコードを自動生成すればバグらない
仕様はちゃんとしか書けないものとする
2020/08/02(日) 15:01:47.55ID:4gDW5awL
>>608
>>505をよろしくお願いします
美しいスクリプトを期待
616デフォルトの名無しさん
垢版 |
2020/08/02(日) 16:23:15.21ID:qo03Ruan
また釣りのクズか
2020/08/02(日) 17:01:54.34ID:4gDW5awL
病気の人か
５ちゃんねるで悪態つくだけの惨めでみっともない人生
2020/08/02(日) 17:05:00.79ID:4gDW5awL
>>616
>>505をよろしくお願いします
期待していい？
619デフォルトの名無しさん
垢版 |
2020/08/02(日) 18:07:45.30ID:JnzrulEq
>>617
死ね
2020/08/02(日) 18:54:17.87ID:4gDW5awL
効いたな
2020/08/02(日) 19:26:37.18ID:TAOBMMvc
>>614
数万人の天才が挑戦しているがいまだに達成していない
2020/08/02(日) 19:41:56.53ID:hIQzyyzC
>>621
むしろ天才よりも秀才のほうやろ。
本当の天才はそういうことに関わらん気がする。
直感的に不可能か、現実的に意味がないかを悟っていそうというか。
2020/08/02(日) 20:29:18.39ID:Vanmrtqf
バグの無いことの証明が不可能なのは、
ゲーデルの不完全性定理とかあのへんまで突っ込んでいくからであって、
99.9%okなら良しとする現実世界なら普通に可能
2020/08/03(月) 23:11:06.80ID:/fZxIKnK
>>623
そしてその0.1%が理由になって戦争になるわけですね
2020/08/09(日) 01:00:36.25ID:JDEJdFnx
過疎ってると落ち着く
2020/08/13(木) 15:32:24.87ID:g8OxF1lY
UTF8からShift-JISに変換し、その中で変換できなかった文字列はhtml数値文字参照に変換したいです

(UTF8)楽しいね🙂→(Shift-JIS)楽しいね🙂 ;
このような風にです

こちらのサイトを参考にして↓のように書いてみたのですが
https://blog.netandfield.com/shar/i/details/004482.html#home


use Encode;
my $word = "楽しいね🙂";
Encode::from_to( $word, "UTF8", "Shift_JIS", Encode::FB_HTMLCREF);
print "$word";

(結果)
?y??????🙂 ;

と、元の日本語が文字化けしてしまいます
どこを直せばいいでしょうか？

Perlのバージョンは5.18.2
Encodeモジュールのバージョンは2.49です
2020/08/13(木) 16:19:08.99ID:HLH3bdVq
その出力先(ターミナル？コンソール？)は、そもそもシフトJISテキストを表示できるのか？
できない場合は、プログラムは関係なく、ターミナルが文字化けする。

ためしにtext.htmlのようなファイルに出力してから、その内容を確認したら？
2020/08/13(木) 16:44:17.95ID:DQVPr3Tq
前にやろうとして諦めた
pythonだと簡単

try:
　　str_sjis = str.encode("CP932")
except UnicodeEncodeError:
　　print str.encode("utf-8")
2020/08/13(木) 16:48:34.24ID:/BJ4BGZD
>>628
そのレベルならPerlでも簡単
絵文字だけ抜き出してHTML特殊文字化　でしょ
2020/08/13(木) 17:00:11.25ID:g8OxF1lY
>>627
ターミナルです
ファイルに出力してそれをShift-JISとして開いたら文字化けもなく見ることができました
内部的には問題なかったのですね
ありがとうございました
2020/08/13(木) 22:25:11.59ID:L5UfXSE8
>>628
笑わすんじゃねーｗ
2020/08/15(土) 08:35:13.06ID:ACgG3ouC
プロトタイプ属性の指定がどうやってもできん

use feature 'signatures';
sub foo :prototype($$) ($left, $right) {
return $left + $right;
}

これで構文エラーになる理由が全く分からん
2020/08/15(土) 10:52:43.99ID:N6F3nDZU
釣れますか？
2020/08/15(土) 12:09:58.58ID:ybTBju6n
同時には使えんやろ
2020/08/15(土) 14:02:00.78ID:ACgG3ouC
え？？？？

use feature 'signatures';
sub NAME(SIG) BLOCK # with signature
sub NAME :ATTRS (SIG) BLOCK # with signature, attributes
sub NAME :prototype(PROTO) (SIG) BLOCK # with signature, prototype

構文こうなってるけど？
636デフォルトの名無しさん
垢版 |
2020/08/15(土) 15:48:07.40ID:k2IZqmRY
以下のようなhtmlがあるとします
<div>
<p>AAA</p><p>BBB</p><p>CCC</p><p>DDD</p>
</div>
<p></p>の構文が４個の場合は、構文を文字列として２個ずつ別の変数に分けたいです。
（$str1 に"<p>AAA</p><p>BBB</p>" 、 $str2に"<p>CCC</p><p>DDD</p>"
<p></p>の構文が6個の場合は3個ずつ、8個の場合は4個ずつ・・・と前半と後半で分けて
２つの変数に代入したいのですが、方法はあるでしょうか？
2020/08/15(土) 16:19:42.08ID:V1MJgzDn
そら一発では無理だろう
一旦配列に入れてから真ん中で分ける
638デフォルトの名無しさん
垢版 |
2020/08/15(土) 16:34:06.12ID:o+i8zw5r
釣りに引っ掛かるな
639デフォルトの名無しさん
垢版 |
2020/08/15(土) 17:04:09.01ID:gFfdk9Ij
>>636
はい。あります。
2020/08/15(土) 19:50:33.78ID:dQrORRCv
ちょろい問題。単なる初心者で釣りなんかじゃないでしょう。

@foo = (); @bar = ();
while ($str =~ s{^[\s\S]*?<p>(.+?)</p>(.*)<p>(.+?)</p>[\s\S]*$}{$2}){
push @foo, $1;
unshift @bar, $3;
}
2020/08/15(土) 19:55:02.56ID:dQrORRCv
２行目間違えてた。
while ($str =~ s{^[\s\S]*?<p>(.+?)</p>(.*)<p>(.+?)</p>[\s\S]*?$}{$2}){
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況