Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新

---

446(1): 2018/11/11(日)14:11 ID:eqm/EHYd(2/2) AA×


[240|320|480|600|原寸|JPG|べ|ﾚｽ栞|ﾚｽ消]
446: [sage] 2018/11/11(日) 14:11:11.73 ID:eqm/EHYd [環境] Activeperl win8.1 or 2016 server perl -v This is perl 5, version 24, subversion 3 (v5.24.3) built for MSWin32-x64-multi-thread [コード utf-8で作成] #res[1]にはcp932のコードの「テスト」を含む文字列が格納されている。 $res[1] = Encode::decode('cp932', $res[1]); #patern.txtはutf-8で「テスト」の文字列が格納されている。 open (FILE, "<:utf8", "patern.txt") or (die "$!"); my $line = <FILE>; close(FILE); #$line = 'テスト';←#を外して直接コードに書くとヒットする。 print encode('cp932', $line);(正常に取得できている。) if ($res[1] =~ /$line/){ print "Hit!"; } else{ print "not Hit"; } ---出力--- >テスト >not Hit http://mevius.5ch.net/test/read.cgi/tech/1349538519/446
環境 コード で作成 にはのコードのテストを含む文字列が格納されている はでテストの文字列が格納されている テストを外して直接コードに書くとヒットする 正常に取得できている 出力 テスト

---

上下前次1-新書関写板覧索設栞歴

---

あと 77 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.022s