Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
39(2): デフォルトの名無しさん [sage] 2012/10/08(月)15:43:26.69
>>37=>>38
108: デフォルトの名無しさん [sage] 2013/01/03(木)09:02:50.69
至らない実装は利用者が補えるが、オレオレ仕様は直せない、か
149: デフォルトの名無しさん [sage] 2013/01/24(木)17:21:48.69
PerlっていうとWebアプリしか書けないイメージがある
PHPは当初よりかなり進化しているので
今後も使われていくだろう
Perlがオワコン説は初心者プログラマがPerlを選らばないとう現実を意味しているから
もともと使っていた老害が使い続けるだけという結末になる
152(4): デフォルトの名無しさん [sage] 2013/01/27(日)11:34:47.69
perlからC言語で作った実行ファイルを実行するときC言語のソースが
printf("A");
scanf(); ---Bを入力
printf("C");
のときにこの実行ファイル実行結果ををperlで受け取るときperl側で
ACとなってしまいます。
これを
AB
C
として受け取りたいのですがどうすればいいでしょうか？
159(1): デフォルトの名無しさん [sage] 2013/01/29(火)21:29:31.69
何で作った奴にきかずに赤の他人にきいてんだ？
しかもタダで教えろとか本当にゴミだなお前。
回線切れ乞食。
185(1): 179 [sage] 2014/02/02(日)20:46:01.69
>>182
ありがとう
STDOUTだったわ
284: デフォルトの名無しさん [sage] 2014/05/17(土)18:54:17.69 ID:syasv/b2(2/2)
>>283
ありがとうございます
441: デフォルトの名無しさん [sage] 2018/10/06(土)03:33:56.69 ID:gPBhgV7B(1)
my @y = "";
while(<>) {
my @x = split ",";
# $x[1] = $x[0] eq $y[0] && ++$y[1] || 1;
$x[1] = $x[0] ne $y[0] || ++$y[1];
print join ",", (@y = @x);
}
ウチでやるならこうかしら
460: デフォルトの名無しさん [sage] 2018/11/14(水)19:36:24.69 ID:dXHPcciK(1)
>>457
オプションで可能であればと思ったのですが、マッチング文字列と対象を同じ文字種にしないといけないんですね。
ActivePerlでUnicode::Japanese
でUTF8から変換して書いてみたのですが、cp932にencodeすると、化けてしまい、使用できませんでした。
ActivePerlで使用可能なモジュールあればコードではなくてかまいませんので、何かあれば紹介してもらえますでしょうか。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.027s