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

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

38(4): デフォルトの名無しさん [sage] 2012/10/08(月)15:34:01.73
荒らしの連立てしたスレを伸ばそうとしてる>>31は荒らし
消えろやゴミが

---

206: デフォルトの名無しさん [sage] 2014/02/15(土)22:15:24.73
こういうクズがコミュニティの足引っ張ってんだよな

---

385(1): デフォルトの名無しさん [sage] 2016/11/20(日)11:39:42.73 ID:fMzPWX9X(1/2)
なんで -m と -M 重ねてるの？それと隙間開けずにやってみ
-MWin32::Clipboard
　 ↑

---

446(1): デフォルトの名無しさん [sage] 2018/11/11(日)14:11:11.73 ID:eqm/EHYd(2/2)
[環境]
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

---

458: デフォルトの名無しさん [sage] 2018/11/14(水)12:24:46.73 ID:XfG22Q3S(1/2)
教えて下さい。

my @str4=['a','b','c','d','e'];
my $ref4=\@str4;

print $str4[0][1],"\n"; # b
print @{ $str4[0] },"\n"; # abcde

ref4を使って同様に b と abcde を表示するには、どうしたらいいですか？

---

462(2): デフォルトの名無しさん [sage] 2018/11/14(水)22:57:23.73 ID:otO/yyOk(1/2)
>>453-455
Linux では、BOM なしUTF-8 を使う、アプリ開発者が多く、
BOMありにするとバグるアプリがあるから、BOMなしを使っているけど、

そうすると、Windows では、sjis と区別がつかなくなり、
Explorer での文字列検索ができなくなる

だから、Windows10 で、WSL, Ubuntu を導入して、grep を使っている

---

490: デフォルトの名無しさん [] 2021/11/19(金)22:27:21.73 ID:v67hT9Zk(1)
二つ以上の空白文字列を
一つの空白に変えたいのですが
うまくいきません。

if($line=~/\s\s+/){
$line=~s/\s\s+/\s/g
print("$line\n")
}

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.024s