[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
59: 2019/05/21(火)21:00 ID:BVi2WQ22(1) AAS
ていうかこんなに長くアップデートが続いていることだけでもかなり凄い事だと思う。
60: 2019/05/21(火)22:12 ID:vpg4l/5q(1) AAS
5.30.0 RC2までは出てるからそのうち出るだろ
61(2): 2019/06/01(土)02:23 ID:4bbBO9Ct(1/3) AAS
$str =~ /$pattern/
みたいなことはできるけど、
$str =~ /$pattern/$opt
みたいにして大文字小文字を同一視するかどうかを動的に指定したい
if文で処理行を分けるしか無理?
62: 2019/06/01(土)04:41 ID:uuPo6pHP(1/2) AAS
>>61
eval 使えばいいのでは？
63: 2019/06/01(土)08:47 ID:GQlgchjf(1) AAS
Ruby では、Regexp オブジェクトで、動的に作れる
str = "aB"
opt = Regexp::IGNORECASE
p re = Regexp.new( str, opt )
#=> /aB/i
64: 2019/06/01(土)10:32 ID:uuPo6pHP(2/2) AAS
パターンマッチの直前で比較対象の文字列を uc() 使って小文字を全て大文字に変換しておく、または lc() で大文字を全て小文字にしておく事でも実現できるな。
パターンの方にも変換必要になるかも知れないが、それについては予め大文字または小文字でパターン作っておけば回避できる。
65: 2019/06/01(土)10:33 ID:4bbBO9Ct(2/3) AAS
ただ、どう考えても遅くなるよな
素直に切り替えよう
66: 2019/06/01(土)11:42 ID:UESmRH3l(1) AAS
>>61
# 外部ﾘﾝｸ[pod]:perldoc.jp
my $subject = 'FooBar';
my $search = 'foobar';
my $pattern = qr/$search/;
print $subject =~ /$pattern/ ? 'match' : 'unmatch', "\n";
$pattern = qr/(?i)$search/;
print $subject =~ /$pattern/ ? 'match' : 'unmatch', "\n";
67: 2019/06/01(土)11:49 ID:4bbBO9Ct(3/3) AAS
(?i)と書いておけばいいだけか
じゃあもう実装済みで、使う側でどうにでもできる
68: 2019/06/01(土)13:34 ID:zyIO0HLx(1) AAS
Python ってダサいよね。
69: 2019/06/13(木)09:38 ID:8EHJsjb3(1) AAS
Pythonはほどほどの長さのスクリプト言語としてならアリなんだが
ツールとしては良くも悪くも電卓だなぁ
70: 2019/06/14(金)01:28 ID:TwyiKBjF(1) AAS
バッチは使いやすさでperl、サーバだと今はパフォーマンスで選んでgolangやろうとしてるわ
71(1): 2019/06/14(金)21:23 ID:GJHBGGzo(1) AAS
外部ﾘﾝｸ:tech.nikkeibp.co.jp
Pythonはコードが書きやすい？ご冗談でしょう
72: 2019/06/14(金)23:12 ID:oN4k2Se6(1) AAS
>>71
読んだけど、実際にはタイトルほどPythonを悪くいってないな。ｗ
73: 2019/06/16(日)10:31 ID:Q48cejx2(1) AAS
windowsでreaddirするとcp932で読めてくる
それだと面倒なので、opendirする時か、ハンドラに対して、
decoding(cp932) みたいに指定するにはどうすればいい?
74: 2019/06/16(日)14:26 ID:bI4lsVP6(1) AAS
外部ﾘﾝｸ[html]:www.javadrive.jp
75: perltidy バグってない？ 2019/06/28(金)03:27 ID:yOZUOG90(1/2) AAS
perltidy -pbp -nola perl_file
この -pbp は perl best practices にする設定になっている
という仕様が書かれているが
sub {
:LABEL
for ....................
のようなラベルが本の通りにならない。たとえば 103ページなど
ラベル調整を諦めて -nola をつけ、手動で正しくすることにした
これバグだよな？
76: バグもういっこ 2019/06/28(金)03:37 ID:yOZUOG90(2/2) AAS
画像ﾘﾝｸ
左のように綺麗にまっすぐ整えろ が本の通りなのに
右のように変なところにいく
77: 2019/06/28(金)05:48 ID:MYNfkfjj(1) AAS
何語?
78: 2019/06/28(金)14:53 ID:oMWPNRS2(1) AAS
perl にインデントを求めるな。
79: 2019/06/29(土)00:24 ID:YzN8MsSb(1) AAS
＼(^o^)／
80: 2019/06/29(土)05:53 ID:3U68S2mZ(1/4) AAS
どうでもインデント
81: 2019/06/29(土)15:13 ID:3U68S2mZ(2/4) AAS
sjisでローマ数字の?が書いてあるのをutf8にすると、どうやっても化けるな
82: 2019/06/29(土)15:18 ID:3U68S2mZ(3/4) AAS
一旦生で読んでcp932でデコードすればいいのか
LWP:Simpleだとそのへんに手が出せない
83: 2019/06/29(土)17:02 ID:o1VtcfU0(1) AAS
MySQLもそうだけど、sjisは使っちゃイカンやろ。
細かいところで文字の置き換えルールがメチャクチャだったような。
いわゆるシフトJISはとにかくcp932で。
84: 2019/06/29(土)17:53 ID:3U68S2mZ(4/4) AAS
多分htmlに俺はsjisだと書いてあると、LWPが勝手にsjisでデコードするんだろう
85: 2019/07/06(土)10:10 ID:oMEfEQKE(1) AAS
元がeuc-jpだと、
$str =~ s/\x{301c}/〜/g;
みたいなことを明示的に書かないと、回避できないみたい
同じものやがな
86(1): 2019/07/12(金)02:22 ID:AjCqo1Mf(1/2) AAS
下記のコードですがダブルクォートを介さずに$testから'フ'を表示させる方法はありますか？
#!/bin/env perl
use strict;
use warnings;
use utf8;
my $test = '\xE3\x83\x95';
my $test2 = "\xE3\x83\x95";
print "$test\n\n";
print "$test2\n\n";
87: 2019/07/12(金)02:35 ID:gPQuYcbX(1) AAS
my $test3 = $test;
$test3 =~ s/\\x([0-9A-Fa-f]{2})/pack('H2', $1)/eg;
print "$test3\n";
88: 2019/07/12(金)04:04 ID:yXcDIkyu(1) AAS
print eval qq/"$test\n\n"/;
上下前次1-新書関写板覧索設栞歴
あと 914 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.015s