[過去ﾛｸﾞ]
Perlについての質問箱 64箱目 (1002ﾚｽ)
Perlについての質問箱 64箱目 http://mevius.5ch.net/test/read.cgi/tech/1548981877/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
137: デフォルトの名無しさん [sage] 2019/11/17(日) 00:22:07.56 ID:+/PgA3gU そもそもファイルをopenした時点で、ファイル名は自明だろ、、、 <>の場合は、今開いているファイル名は、$ARGVでアクセス出来るし、、、 while(<>){ print $ARGV if $. == 1 ; $. = 0 if eof } 他は、自分でコード書くんだからファイルリストの管理すりゃいいだけの 話だし。 http://mevius.5ch.net/test/read.cgi/tech/1548981877/137
156: デフォルトの名無しさん [sage] 2020/02/01(土) 09:03:36.56 ID:qxbFBKGD パターンの中で\1って使えるんや… 正規表現って普通「事前に」FSMにコンパイルされてからマッチングに使うるんじゃないの…？ バックトラックとかする高度な実装のやつはまた違うんかね http://mevius.5ch.net/test/read.cgi/tech/1548981877/156
212: デフォルトの名無しさん [sage] 2020/02/18(火) 23:17:41.56 ID:aJeTcUgK >>209 普通は>>204でしょ モジュールは精査して本当に必要なものしか入れない まあ現場次第だと思うが http://mevius.5ch.net/test/read.cgi/tech/1548981877/212
268: デフォルトの名無しさん [sage] 2020/03/05(木) 12:43:29.56 ID:eb4C0HQQ active perl の ppm がなくなっていろんなモジュールが動かないのだが、困ってるの俺だけ？ ググっても誰も文句言ってないな http://mevius.5ch.net/test/read.cgi/tech/1548981877/268
373: デフォルトの名無しさん [sage] 2020/03/18(水) 01:56:55.56 ID:jzX09kaS WindowsだしActivePerlのようだし、何がおきてもふしぎじゃないな。ｗ http://mevius.5ch.net/test/read.cgi/tech/1548981877/373
532: 532 [sage] 2020/07/24(金) 23:35:26.56 ID:Z8MDOpZc Binary fileをupdateモードでopenして 目的の位置にseekしpackで元のファイルの内容を直接書き換える方法なら ttps://docstore.mik.ua/orelly/perl/cookbook/ch08_14.htm http://mevius.5ch.net/test/read.cgi/tech/1548981877/532
577: デフォルトの名無しさん [sage] 2020/07/28(火) 07:37:42.56 ID: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毎に書く時に読むだろうからこんなもんか http://mevius.5ch.net/test/read.cgi/tech/1548981877/577
641: デフォルトの名無しさん [sage] 2020/08/15(土) 19:55:02.56 ID:dQrORRCv ２行目間違えてた。 while ($str =~ s{^[\s\S]*?<p>(.+?)</p>(.*)<p>(.+?)</p>[\s\S]*?$}{$2}){ http://mevius.5ch.net/test/read.cgi/tech/1548981877/641
918: デフォルトの名無しさん [sage] 2021/02/13(土) 20:39:32.56 ID:puXqs/bZ U+10000からU+1FFFFまでの文字があったら置換したい時はどう書けばいい? http://mevius.5ch.net/test/read.cgi/tech/1548981877/918
949: デフォルトの名無しさん [sage] 2021/03/08(月) 00:23:56.56 ID:tQicr2bh 再帰処理は考えてるの楽しいよな 実装するかとなると状況次第 http://mevius.5ch.net/test/read.cgi/tech/1548981877/949
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.033s