Perlについての質問箱 35箱目

Perlについての質問箱 ..

116:デフォルトの名無しさん
08/05/13 14:30:44
>>114
ごめん，俺に理解力がないせいか何をしたいのかがよくわからない．
もうちょっと詳しく説明してくれたら助かるんだが．

117:デフォルトの名無しさん
08/05/13 14:42:28
もうちょっと実際のplに近いものを書いてみます。
お待ち下さい。

118:デフォルトの名無しさん
08/05/13 14:42:50
package number;
#sub get_codeNumber(){
my $number = 1;
if ($number > 0){
print "0より大です。";
}else{
print "0以下です。";
}
#}

119:デフォルトの名無しさん
08/05/13 14:55:04
>>118
単純に改行が入ってないからとか
stdout が flush されてないからとか
じゃないよね?

120:デフォルトの名無しさん
08/05/13 14:58:48
ちゃんと実行されてるかどうかがあやしいような

121:デフォルトの名無しさん
08/05/13 15:05:45
#torikomi.pl

package torikomi;

#戻り値：String（分類コード）

sub get_code(){
　　　　($organizationcode,$sectioncode,$itemcode)　=　@_;
　　　　
　　　　$itemcode =　"999999";
　　　　
　　　 my $i1cd 　　　　　　="";
　　　 my $i2cd 　　　　　　="";
　　　 my $i4cd 　　　　　　="";
　　　　
　　　　$i1cd=substr($itemcode,0,1);
　　　　$i2cd=substr($itemcode,0,2);
　　　　$i4cd=substr($itemcode,0,4);
　　　　
　　　　
　　　 if($itemcode eq "000000"){　
　　　　　　　 return "A00";
　　　　}
　　　 if(　$itemcode eq "999999"　){
　　　　　　　 return "Z00";
　　　　}
}

このperlが、きちんとA00やZ00を返しているかを確認したいのです。

122:デフォルトの名無しさん
08/05/13 15:11:54
「サブルーチンの中」を詳細に書けっていうんじゃなくて、
それを呼び出す側とか、実行している環境とかの詳細を書けって話だと思うよ。

123:デフォルトの名無しさん
08/05/13 15:37:02
あー、呼び出す側や実行環境のソースはもらっていません。

124:デフォルトの名無しさん
08/05/13 17:03:19
質問です。
１つのデータを複数に分割して、それぞれをgnuplotで
表示しようとしているのですが、実行すると

gnuplot> 'plot './X1.txt' using 1:2 w l 1'
　　　　　^
line 0: invalid command

という風なエラーが分割したデータ全てに対して出ます。
（X1.txtというのが分割したデータの１つです。）
分割まではうまくいっているので、gnuplotの部分で問題があると思うのですが、
わかる方がいましたらよろしくお願いします。
gnuplotの部分のプログラムは以下のような感じです。

for( $j = 0 ; $j < 10 ; $j++ ){
open ( GP "| gnuplot -persist" )
or die "no gnuplot";
print GP "set term postscript color 20\n" ;
print GP "set output './X1.eps\n'" ;
print GP "plot './X1.txt' using 1:2 w l 1\n" ;
close GP;
}

125:デフォルトの名無しさん
08/05/13 17:08:42
>>124
スレ違いだが、、、
w l 1 の「1」って何だ？　そんなのあったっけ？

126:124
08/05/13 17:14:59
>>125
スレ違いで申し訳ありません。
perlでプログラム書いてたんで、perlのスレで質問した方がいいかなと・・・

「1」はlineの色ですのであまり気にされなくても大丈夫です。

127:デフォルトの名無しさん
08/05/13 17:20:15
>>125
色だか線種だかを1に指定ってことだったはず．

>>124
gnuplotに流してるコマンドの最初と最後にいらないシングルクオートが入ってるせいじゃないかな？
このコピーでは問題なさそうだけど，ソースのprint文を確認してみたらいいと思う．

128:デフォルトの名無しさん
08/05/13 19:57:39
' なんてコマンドはねえよ、って言ってるだけじゃねえの?

129:124
08/05/13 23:28:23
124です。
124で書いたプログラムの間違いに気づきました。
プログラム中の「X1」は「X${j}」でした。
じゃないと、for文の意味ないですもんね。。。
あと、今自分で間違いに気づきました。
print GP "set output './X1.eps\n'"
じゃなくて、
print GP "set output './X1.eps'\n"
でしたorz
こんな簡単なミスに気づかないとは。。。
大変ご迷惑おかけしました。

130:デフォルトの名無しさん
08/05/14 00:54:44
>>121
>このperlが、きちんとA00やZ00を返しているかを確認したいのです。
Test::Base使えば良いじゃん。

131:デフォルトの名無しさん
08/05/14 02:52:29
asciiコードを16進数に変換するにはどうしたらいいでしょうか？
printf "%x","a"
こんなことやっても上手くいきません
61と表示させたいです

132:デフォルトの名無しさん
08/05/14 03:04:43
URLﾘﾝｸ(www2u.biglobe.ne.jp)
これみたら分かりました

133:デフォルトの名無しさん
08/05/14 03:21:56
grepでデータ中から目的の行を検索したいのですが
grep(/$foo/i, @ary);
・ignore caseは使いたい
・$fooは「+」などのデータが含まれており、そのままgrepすると正規表現と解釈されてエラーになる
・正規表現はつかわない
何かよい方法はないでしょうか？

134:デフォルトの名無しさん
08/05/14 03:32:47
>>133
quote (disable) pattern metacharactersの出番

135:デフォルトの名無しさん
08/05/14 03:35:23
ありゃッ、先頭が抜けた。

>>133
\Q quote (disable) pattern metacharactersの出番

136:デフォルトの名無しさん
08/05/14 04:14:43
>>134
grep(/\Q$foo\E/i, @ary);
でいけました。ありがとうございます

137:110
08/05/14 15:58:33
メインルーチンとの結合でうまくいきました。
相談に乗ってくれた方、ありがとうございました。

138:デフォルトの名無しさん
08/05/14 23:04:47
Windows環境で、ディレクトリ一覧を取得、正規化してリネームしたくて
いろいろやってるんだが、shift-jisの文字の扱いに苦労してる
ひょっとしてPerlでやるのあんま向いてなかったりする？

139:デフォルトの名無しさん
08/05/14 23:14:21
Unicodeであつかえばいいだろ。

140:デフォルトの名無しさん
08/05/15 19:33:10
あまりPERLの構文詳しくないので誰か教えてください
こんなのを作ってみたのですが
sub cont{print "contents\n";}
sub html{print "<html>\n"; $_[0](); print "</html>\n";}
sub body{print "<body>\n"; $_[0](); print "</body>\n";}
body(\&cont);
html(\&cont);
これを、出力が<html><body>cont</body></html>となるように
呼び出したいのですが可能でしょうか
↓動かないですが、こんな感じのことがやりたいです
１．　html(\(body(\&cont));
２．　sub f{html(\&&_[0]);} f(\&html);
３．　sub g{$f=shift; html(\&f);} g(\&html);

141:デフォルトの名無しさん
08/05/15 19:43:23
>>140
こういうことか?

sub cont { print "contents\n"; }
sub html { print "<html>\n"; shift->(); print "</html>\n";}
sub body { print "<body>\n"; shift->(); print "</body>\n";}
html(sub { body(\&cont) } );

142:140
08/05/15 19:58:14
おお、想定通り動きました。ありがとう。

143:デフォルトの名無しさん
08/05/15 20:19:38
use strict;
use warnings;
sub binding{ my($F,@P)=@_;sub{$F->(@P)} }
sub cont {print "contents\n";}
sub html {print "<html>\n"; shift->(); print "</html>\n";}
sub body {print "<body>\n"; shift->(); print "</body>\n";}
sub cont2 {return "contents\n";}
sub html2 {return "<html>\n",shift->(),"</html>\n";}
sub body2 {return "<body>\n",shift->(),"</body>\n";}

html( binding( \&body => \&cont ) );
print html2( binding( \&body2 => \&cont2 ) );

144:デフォルトの名無しさん
08/05/15 20:21:07
windows上のperlのGDモジュールで、
日本語フォントをjpg画像で出すサンプルってありませんか。
下のサンプルをmsgothic.ttcに変えて実行したら、
どうやっても・という文字になってしまいます。
URLﾘﾝｸ(x68000.q-e-d.net)

145:140
08/05/15 20:41:48
>>143
このbindingってやつナイスですね
これ参考に、1タグ多要素に拡張してみます

146:デフォルトの名無しさん
08/05/15 21:51:34
>>144
PerlMagickでできるかも。
まー、内部はGDかもしれないから、同じ結果かも知れない。

147:デフォルトの名無しさん
08/05/15 22:05:34
>>144
よくわからんが、文字コードの問題とか？

148:デフォルトの名無しさん
08/05/15 22:32:06
>>144
utf8か、フォントファイルを絶対パスで指定かな。
Imagerも良いよ。

149:プヨー
08/05/16 18:03:07
Perl で Lisp のマクロのようなものを使うことはできないの？
遅延評価する仕組みがほしい。

Func1( ...exp1..., ...exp2....);
という呼び出しがある場合、状況に応じて exp1, exp2 の
いずれか一方だけを評価したい。

Func1( sub { ...exp1...}, sub {...exp2...} );
のように無名関数を渡す方法は思いついたが、
記法が簡単でないので、もっと簡単に記述できる方法がいい。

150:デフォルトの名無しさん
08/05/16 19:09:34
>>149
Lispは名前しか知らないけど、「状況に応じて」の部分を条件文にすればいいんじゃない？
関数を呼んだ時点では、引数の値が決定してないってこと？
そうだとしても、値が決定するまで待つとかすればいいような気がする。
Lispがわからない人でもわかる説明で。

151:プヨー
08/05/16 19:31:07

> Lispは名前しか知らないけど、「状況に応じて」の部分を条件文にすればいいんじゃない？

そうなんだけど、
if (,,,) { ... } else {...}
のような定型化した条件文が大量にあるから、きれいじゃないんだよね。
それよりも、単に
Func1( ...exp1..., ...exp2....);
のように書けば一行ですむから、保守性が高くてクールだよね。

> 関数を呼んだ時点では、引数の値が決定してないってこと？
そう。Lisp のマクロというのは、必要に応じて引数を eval するみたいなものだよ。

Lisp のマクロはコードを簡単化するために使われることが多い。

152:デフォルトの名無しさん
08/05/16 20:02:14
>>151
sub exp1{ .... }
sub exp2{ .... }

Func1(\&exp1, \&exp2)

でいいんでないの？

153:デフォルトの名無しさん
08/05/16 20:02:34
>>151
質問が漠然すぎるんだが、、、
my %hash = (
　foo => sub { print "foo\n" ; },
　bar => sub { print "bar\n" ; },
);
$hash{foo}->() ;

こう言うこととかしたいのか？
それともif文を三項演算子？

154:デフォルトの名無しさん
08/05/16 20:04:34
常に先行評価のPerlで急に遅延評価になったら保守性が著しく低下するだろ
sub { } で我慢しろ。どうしても黒魔術を発明したいならソースフィルタを使って何とかすればいい

155:デフォルトの名無しさん
08/05/16 20:30:18
exp1,exp2が長い場合、保守性がいいとは思えないし
>>149が考えたコードも改行位置ちょっと変えてあげれば複雑にはみえないし
関数を読んだ時点で引数の値が決まってないのは
コードがタコなだけな気がしてならないので
せめて、もう少し具体的に書いてもらえないかな

とりあえずFunc1の中でevalしたいならそうすればいいんじゃ？
Func1(
　q(...exp1...),
　q(...exp2...)
);
sub Func1 {
my($exp1,$exp2) = @_;
#なんかいろいろ
my $exp = $COND ? $exp1 : $exp2;
eval "$exp";
}

156:デフォルトの名無しさん
08/05/16 21:45:27
初歩的な質問で申し訳ないのですが

クッキーにデータを入れるときエスケープなどの処理をしてから入れたほうがいいのでしょうか？
よろしくお願いします。

157:デフォルトの名無しさん
08/05/16 23:13:35
>>156
URLエンコードと同じエスケープがいるよ。
日本語化されたRFCもあるから、読んでみれば？
もっと簡単にやるなら、CGIモジュールに全部任せる。

158:デフォルトの名無しさん
08/05/16 23:57:48
>>157
なるほど。クッキーはURLエンコードですか。勉強になりました。

159:デフォルトの名無しさん
08/05/17 01:38:05
最終的に決められた文字だけになるなら、任意のエスケープ方式でいい

160:デフォルトの名無しさん
08/05/17 13:25:57
要素数が同じlistとvalueがあるときに、同じ添え字の処理ってどうやって書きますか？
#こんなのがほしい・・
for $i $j(@list @value){print "$i=$j";}

タプルみたいなのがあれば使いたいんですが
やっぱり添え字をインデックスにしてループするしかないんですかね

161:デフォルトの名無しさん
08/05/17 13:35:43
どういうときに便利になる？
その例でもwhile shiftで事足りるし。

162:デフォルトの名無しさん
08/05/17 13:40:01
use List::MoreUtils qw(each_array);

163:デフォルトの名無しさん
08/05/17 13:54:11
zipWithを書けばおｋ

164:デフォルトの名無しさん
08/05/17 13:55:32
単に短く書きたかっただけなんですが、あまりPERL使いこなせてはないので・・
shiftだとこんな感じでしょうか。
while(@list){print shift @list;print "=";print shift @value;}
これはこれで、短くていいですね。

165:デフォルトの名無しさん
08/05/17 13:57:38
while($i=shift@list and $j=shift@value){print "$i=$j";}

166:デフォルトの名無しさん
08/05/17 14:04:10
>>162
　オブジェクト指向部分はあまりわかってないので後ほど調べてみます。
>>163
　sub zipwith{shift->(shift,shift);}こんな感じですかねｗ
　ちゃんと動くかはこれから試してみますが・・
>>164
　こっちのが全体的にいいですね、トン

167:デフォルトの名無しさん
08/05/17 14:38:21
練習がてら作ってみました
@a=qw(a b c);
sub zipwith{($f,$l,$r)=@_;while($i=shift @$l and $j=shift @$r){$f->($i,$j)}}
zipwith(sub{($a,$b)=@_;print "$a=$b\n";},\@a,[1,2,3]);

関数へ複数の配列を渡す際にはリファレンスにしないとだめってのは少し不便ですね

168:デフォルトの名無しさん
08/05/17 17:31:48
perlの勉強中で
カメラ　785円
お菓子　98円
…
という文字列がファイルであるのですが

if(円という文字を含んでいたら)
$temp = "円より前の数字";

という風に文字の抽出を行いたいのですが
正規表現の部分と、抽出の部分がわかりません
ファイルの読み込みから1行だけを取り込むのは出来たのですが

ご指導お願いいたします。

169:デフォルトの名無しさん
08/05/17 17:55:32
/円/ and $temp = $`;

170:デフォルトの名無しさん
08/05/17 18:12:27
すいません、上手く動かないみたいです

171:デフォルトの名無しさん
08/05/17 18:23:41
ちょっとかんべん

172:デフォルトの名無しさん
08/05/17 22:31:48
perlっていうかsendmailについてなんですが…
open(MAIL, "| /usr/sbin/sendmail -t env_addr") or die $!;
# 中略
close(MAIL) or die $!;
のように、パイプ渡しでopenするとき、closeに失敗するときがあるんですが、このとき
エラーメッセージを捕捉する方法どなたかご存じですか? $!には入ってこないのです。

173:デフォルトの名無しさん
08/05/17 22:34:32
>>172
エラーメッセージは何処に出るの? 標準出力ならIPC::Open2, 標準エラー出力ならIPC::Open3参照。

174:デフォルトの名無しさん
08/05/19 11:53:11
#!/usr/bin/perl

$inputfile="test.txt";
open (FILE1, ">>$inputfile") or die "$!";

for ($hoge=0;$hoge<10;$hoge++) {
print FILE1 "$hoge";
　　sleep(1);
}
close (FILE1);

このプログラムを同時に2つ実行すると、私の予想ではtest.txtの中身は
00112233445566778899
となると思うのですが、なぜかファイルの中身には
01234567890123456789
と出力されます。
perlは排他制御が勝手に行われたりするんでしょうか？

175:デフォルトの名無しさん
08/05/19 11:54:52
バッファリングされてるから

176:デフォルトの名無しさん
08/05/19 11:56:39
>>175
どういうことでしょうか？
もし正しくバッファリングされるのならflockなどの排他制御は不要な気が…。

すいませんがもう少し詳しくお願いします。

177:デフォルトの名無しさん
08/05/19 12:05:50
どのタイミングでflush()されるかわからないのに、それに依存しちゃダメでしょ
ちゃんと排他制御しなよ

178:デフォルトの名無しさん
08/05/19 12:27:50
なんとなーく分かりました。ありがとうございました

179:デフォルトの名無しさん
08/05/20 19:30:53
cryptの返り値はsaltと同じ半角英数字、半角スラッシュ、半角ピリオドの範囲で
salt2文字と残り11文字ってことでってますでしょうか。

180:デフォルトの名無しさん
08/05/20 19:31:58
あってますでしょうか、の誤字でした。あとあげます。

181:デフォルトの名無しさん
08/05/20 20:50:16
いいえ。ホストのcrypt(3)に依存です。

182:デフォルトの名無しさん
08/05/20 20:53:22
マニュアルを読むのは身分の低い下賎の民の仕事なので、
高貴な方々は、他人にマニュアルを読ませます。

183:デフォルトの名無しさん
08/05/20 21:02:57
だからいつまでたっても

184:デフォルトの名無しさん
08/05/20 23:59:36
これだからゆと（ｒｙ

185:デフォルトの名無しさん
08/05/21 01:05:07
言っても無駄だから、適当にヒントなり与えてスルーしようよ。

186:デフォルトの名無しさん
08/05/21 01:13:28
>>182　職業に貴賎なし。

だが、海外にも目を向けるとインプリする人はいっぱいいるから、
そういう志向はありだと思う。

187:デフォルトの名無しさん
08/05/21 18:46:46
ファイルテスト演算子を再定義することって可能でしょうか？

188:デフォルトの名無しさん
08/05/21 20:52:09
むり

189:デフォルトの名無しさん
08/05/22 01:15:29
「独習　perl」を一冊
やり通したのですが、次は何をすべきでしょうか？
perlの機能を覚えただけで実用的な使い方は学べていません。
次は何をしたらいいでしょうか？

190:デフォルトの名無しさん
08/05/22 01:28:32
何かを作る。
ファイルの一括処理プログラムとか、板違いではあるがCGIなんかでもいい。

191:デフォルトの名無しさん
08/05/22 03:09:43
自分が何をしたいのか、わかりません。

てか？

192:デフォルトの名無しさん
08/05/22 03:15:25
そもそも何で perl をやろうとしたのかって話だ

193:デフォルトの名無しさん
08/05/22 03:50:29
プログラムって何かを作るためにある道具であって
何を作るかは作り手が考えなきゃどうしようもなかろう。

194:デフォルトの名無しさん
08/05/22 04:11:01
>>189
適当なフリーのCGI等をダウンロードして
辞書的に使える本（Google先生でもOK)で調べながら
ソースを読んでみる。

ある程度理解できるようになったら、それを少しだけ改造してみる。

これを繰り返すだけでも相当勉強になると思うよ。

195:デフォルトの名無しさん
08/05/22 09:02:43
ネットに転がってるperlで書かれたCGIやCGI解説本のソースはほぼ100%クズなので
初心者はそんなものを見てはいけない。

196:デフォルトの名無しさん
08/05/22 09:14:39
言いますね…

197:デフォルトの名無しさん
08/05/22 10:03:26
まあ、メジャーな掲示板のcgiコードもひどいもんだ。
一番良い例が、しばらく前までの2ch。

今動いているのはプロが書いたはずだから、ちゃんとしているはずだけど、
公開されてんのかね。

198:デフォルトの名無しさん
08/05/22 10:13:12
フリーGGIはオススメできない
書き方が古いから。

199:デフォルトの名無しさん
08/05/22 10:41:17
>>191
自分がやって「楽しい」と思うものでなければ、長続きしない。
例えば、任意の文字列を入力すると、
　　　　　　　　　　　　　　　　　　　　　　　　　▄　　　　　　　　　▄▄▄▄▄▄▄▄
　　▄▄▄▄▄▄▄　　　　　　▄▀　　　　　　▄▄█▄▄　　▄▄　　　█▄▄▄▀　　█
　　　　　　　　　　　　　　▄▀　　　　　　　　▄▀　　　　▄　▀　　█▄▄█▄▄　█
　　　　　　　　　　　　　▄█▄▄　　　　　　　█　　　　　█　　　　█▄▄█▄█　█
　█　　　　　　　　　　▄▀　　　█　　　█　█　　▄▀▀▀█▄　　　█　　█　▄　█　▄
　▀▄▄▄▄▄▄▄▄　▄▀　　　　▀▄▄▀　　　　　▀▄▄▄▀　▀　█　▀▀▀▀　▀　▀█
に変換するスクリプトを作ってスレを荒らすというのはどうだ？

200:デフォルトの名無しさん
08/05/22 11:22:02
>>199
それくれｗ

201:デフォルトの名無しさん
08/05/22 12:34:25
>>197-198
同じ事をするにも何通りも書き方がある，

というのとは違うのかい？正直わからん。

202:デフォルトの名無しさん
08/05/22 12:37:30
>>197
2chのbbs.cgiは8年ぐらい前に流出した以外に表に出てないと思うのだが。

203:デフォルトの名無しさん
08/05/22 16:25:48
>>201
perlのCGIがブームだった頃に作られた遺産がたくさん残ってる。
それらは大抵perl4時代のコードのままメンテナンスされてない。

204:デフォルトの名無しさん
08/05/22 17:32:22
元々の>189からの話の流れからすると、特定のものを批判するより
これ読めってのを挙げた方がいいと思うが、定番といえそうなものがないな。

205:デフォルトの名無しさん
08/05/22 17:34:57
普通に推奨本のコードを真似れば良いよ。

206:デフォルトの名無しさん
08/05/22 18:19:24
ラマですね、わかります。

207: ◆TWARamEjuA
08/05/22 20:21:28 BE:1961429-2BP(7088)
おいちゃん＝プロですね。わかるます。

208:デフォルトの名無しさん
08/05/22 20:32:50
やっぱある程度面白くないとね。
mailあたりをいじってみたらどうかな

209:デフォルトの名無しさん
08/05/22 20:44:22
>>189
2-gramの全文検索エンジンの試作オススメ。
リスト処理や文字列処理などまんべんなく入ってる。

210:デフォルトの名無しさん
08/05/22 20:59:36
モチベーション最強は、やっぱエロだろ。

211:デフォルトの名無しさん
08/05/22 21:12:29
・出版ブームが終了してまともな本が出てない
・Apache + mod_perlでも面倒なのにモジュールとか考えたくない
・webで探すとまともにメンテされてない糞ページがヒットしまくる
・Perl自体の記法が自由すぎるせいでそのページのコードが古いのかこっちの設定ミスなのでエラー出してるのか区別ができない

参入障壁高すぎ

212:デフォルトの名無しさん
08/05/22 21:37:14
>・出版ブームが終了してまともな本が出てない
>>2以外の本はビブリオマニアでなければ必要ないよ。

>・Apache + mod_perlでも面倒なのにモジュールとか考えたくない
文の前後が繋がってないよ。

>・webで探すとまともにメンテされてない糞ページがヒットしまくる
Perlの疑問はググる前にperldocだよ。

>・Perl自体の記法が自由すぎるせいでそのページのコードが古いのか
>こっちの設定ミスなのでエラー出してるのか区別ができない
最新のperl(1)でもPerl4時代のコードが問題なく動くよ。
混ぜておかしくなるのは「新旧」でなく「お作法」だよ。

213:デフォルトの名無しさん
08/05/22 23:42:33
Perlでクロスワードパズルつくってみたいんだ
まずは　その準備として単語（表記はカタカナで）とその対応説明が
登録されているデータベース（Excelでもテキストでもなんでもいい）
が必要です。どなたか知ってたら教えてください。それではおやすみ。

214:デフォルトの名無しさん
08/05/22 23:46:34
>>213
っ[Wikipedia]

215:デフォルトの名無しさん
08/05/23 00:01:31
クロスワードパズルは数理パズルじゃなくて、おちゃらけクイズごっこだから得る物ないよ

216:デフォルトの名無しさん
08/05/23 01:46:17
chasenの辞書からも取り出せるんじゃないかな。

217:デフォルトの名無しさん
08/05/23 01:51:48
茶筅の辞書に言葉の意味なんて入ってないだろ

218:デフォルトの名無しさん
08/05/23 07:32:37
>>213
クロスワード作るのとPerlは無関係
まず紙に書いて作ってPerlで起こす時に分からないことあったらまた質問しな

219:デフォルトの名無しさん
08/05/23 23:40:22
\xe3\x80\x9cは変換できるのに、\xc2\xa2は変換できん。何故？
$PTNの内容をs///にべた書きすると変換できるようになる。何故？tr///が高速ならこんなことせんでもええのに。何故？
(ver. 5.8.5)

use encoding "utf8";use Encode;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";

$PTN="(\xe3\x80\x9c|\xc2\xa2)";
%HASH=("\xe3\x80\x9c"=>"\xef\xbd\x9e","\xc2\xa2"=>"\xef\xbf\xa0");

while(<STDIN>)
{
s/$PTN/$HASH{$1}/geo;
print;
}

220:デフォルトの名無しさん
08/05/24 02:10:23
URLﾘﾝｸ(w8ac6nxs.hp.infoseek.co.jp)

perlで書かれたCGIゲームです。
パーラーのみなさん、ユーザーとして
どうぞ登録してください。

まだプレイヤー４人くらいしかいません。

ユーザーの５０％をパーラーにしたいという
計画です。

221:デフォルトの名無しさん
08/05/24 03:24:15
>>219
$PTN="(\x{301C}|\x{00A2})";

222:デフォルトの名無しさん
08/05/24 03:26:18
>>219
ｽﾚﾘﾝｸ(tech板)

223:デフォルトの名無しさん
08/05/24 11:07:24
>>221
ダメでした。
\x{00a2}が\xc2\xa2じゃないものになってしまいます……。

224:デフォルトの名無しさん
08/05/24 11:51:07
>>前スレ928の方
utf8を扱う tr/// で再帰時に落ちる件、ActivePerl 5.10.0.1003 では正常になっていました。
詳細は未確認だけど、33747 のmg.cへの修正が効いている感じ。

225:デフォルトの名無しさん
08/05/24 13:24:03
>>215

英会話の勉強とか。。。perlのコマンド、モジュール名だけでできたクロスワードだったら
といてみたいかも。

226:デフォルトの名無しさん
08/05/24 13:25:32
>>225
「Head First Java 第2版―頭とからだで覚えるJavaの基本 (単行本) 」
ではJavaに関連した単語でクロスワードパズルがあった。

227:デフォルトの名無しさん
08/05/24 17:26:41
>>219
ソースコード中に「use utf8」の宣言が無いから、全ての文字列は、
UT8フラグの無い、シングルバイトの文字から構成されていることになる。
ネット上の情報からすると、Perl では、UTF8 フラグ
なし文字列を Latin-1 文字列とみなしている（らしい）。次に、
binmode STDOUT, ":utf8";
の宣言があるから、print 文等において文字列が出力される際には、
シングルバイトのLatin-1 文字列が、utf8に変換される。その結果、
このような現象が起きる.....ということでいいのかな？

間違っていたら、エロイ人、修正して下さい。

228:デフォルトの名無しさん
08/05/24 19:50:41
だから猿用のテンプレを何で貼らんのよ？

229:デフォルトの名無しさん
08/05/24 19:58:46
>>227
>>3
#!/usr/bin/perl -w
require 5.008001;
use encoding 'utf8';
print utf8::is_utf8('binary?') ? 'with utf8 flag' : 'binary';
__END__

>>228
utf8 プラグマも encoding プラグマも使わないに越した事ないし。
フラグの有無で悩むより、マルチバイト文字処理が本当に
必要な箇所でだけフラグ付け外しする方がよっぽど楽。

230:デフォルトの名無しさん
08/05/24 20:02:05
つーかおまえら。
shは使わない方がいい、Perl使うべきだ。
とかいって、perlで

$test = `cat /home/test/test.txt`

とか多様してるやつってなんなの？

231:デフォルトの名無しさん
08/05/24 20:02:50
Missing ;

232:デフォルトの名無しさん
08/05/24 20:22:26
使うななどとどこのどいつが言ってるんだ？

ものぐさ番長＝パーラーだ。

233:デフォルトの名無しさん
08/05/24 20:34:51
猿用のテンプレってこれだっけ？
次スレからは入れような。

---------------------------------------------------------
#　　【Perl 日本語処理の基礎の基礎】
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
#　このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
#　入出力ともシフトJIS形式のファイルまたはDOS窓を想定しています。
#　まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
#　次に、あなたが実行したい処理の内容を入れて下さい。
print "SJISには、「十表貼申予暴」のようなダメ文字がある。\n";
sleep(1);
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。

234:デフォルトの名無しさん
08/05/25 02:05:50
>>230

if( `[ -f /home/test/test.txt ]` ) {
　$test = `cat /home/test/test.txt`;

235:デフォルトの名無しさん
08/05/26 21:58:51
>>219です。
結局、\xc2\xa2の置換は諦め、別ツールで提供することになりました。
別のバージョンとか調べている時間がない……。

236:デフォルトの名無しさん
08/05/26 22:16:31
>>234
if( -f /home/test/test.txt ] )
{
$test = `cat /home/test/test.txt`;
}

237:デフォルトの名無しさん
08/05/26 22:17:11
>>234
if( -f /home/test/test.txt)
{
　　　$test = `cat /home/test/test.txt`;
}

238:デフォルトの名無しさん
08/05/26 22:57:43
普通

my $test = `cat /home/test/test.txt` if(-f /home/test/test.txt);

だろ

239:デフォルトの名無しさん
08/05/27 01:22:49
>>238
>>230

240:デフォルトの名無しさん
08/05/27 22:41:24
Ｃ言語のプラグラミングできたお。

void main(int argc, char**argv)
{
　system("cat /home/test/test.txt");
}

241:デフォルトの名無しさん
08/05/27 22:48:04
URLﾘﾝｸ(www.amazon.co.jp)

これが書かれた頃は perl など無かったが
まさに、system() 関数使いまくろう！的な内容。

242:デフォルトの名無しさん
08/05/28 00:33:29
cでやるとすごく損した気になるんだよなあ

243:デフォルトの名無しさん
08/05/28 18:50:42
perlでやっても損でしょ。
perlでできる処理はperlでできるだけやるべき。

catとか。

244:デフォルトの名無しさん
08/05/28 19:08:58
>>243
確かにそうなんだけど、catについてはそうかな～。

perl　だったら、open,while,colose　(またはread)とかで三段処理踏まないといけないから、
cat　なんかは　$test　=　`cat　file.txt`　なんかはよく使う。
実際どっちが早いとかBenchとったことはないけど・・・。

245:デフォルトの名無しさん
08/05/28 19:09:46
失敬、close間違い

246:デフォルトの名無しさん
08/05/28 19:12:39
かなり遅いよ、perlで外部コマンド実行したら。

相当な差がある。
コード的には段階踏んでるが。

247:デフォルトの名無しさん
08/05/28 19:20:10
一つ関数を書くか、CPANから探してきて使うだけでしょ

248:デフォルトの名無しさん
08/05/28 19:36:06
qxはforkしてshell起動して実行して・・・って感じなので
perlだけで終わらせたほうが圧倒的に早い

File::Slurp使うか、入れるのめんどくさかったら
sub slurp {open my $fh , $_[0] || die("$_[0]:$!");local $/;<$fh>}
って書いとけばＯＫ

249:244
08/05/28 20:06:16
いやいや、そりゃあ自分も本格的な(？)スクリプト書く時や、
複数のファイルにループ処理する時はサブルーチンで書いたりするよ。

そうでなくて、ちょっとした確認とかで数行のスクリプトとか、
コマンドラインからのワンライナーみたいな感じで書く時には便利かな　ってゆうぐらい。

そんな時にまで、いちいち、useやrequireやsub{}なんて書きたくないじゃん。

250:デフォルトの名無しさん
08/05/28 20:21:38
>>244
数行だとか、処理速度とか処理効率を考えなくていいなら便利。
あくまでコマンドレベルの用途ね。

ただ不明なのが、
>サブルーチンで書いたりする
ってとこ。

関係が不明なんだけど。

251:デフォルトの名無しさん
08/05/28 20:50:01
むっか～しは、sortは外部コマンドでやってたりしたもんだ。

環境やバージョンが変わったら、こまめにベンチマーク取って
最適の方法を探らないとね。

252:デフォルトの名無しさん
08/05/28 21:09:03
「cat を使う」
…ねえ。知ってると思うけど
$ cat > foo.pl
#!/usr/bin/env perl -n
print ;
}
{
print "foo\n" ;
# control + D をタイプ
$ perl foo.pl foo.pl foo.pl
$ perl -lne '}{ print $. ;' foo.pl

253:デフォルトの名無しさん
08/05/28 21:25:17
そいつは初耳だ
解説よろしく

254:デフォルトの名無しさん
08/05/28 21:46:36
>>253
optionに関しては perl -h するなりで
-n assume "while (<>) { ... }" loop around program
-p assume loop like -n but print line also, like sed
で実際の挙動を見るには
perl -MO=Deparse -ne 'print;'
この結果を見ると while ループで単純にかこってあるだけだから
ループの終りの「}」と無名ブロックの始まりの「{」を入れて
好きな様に処理させる。
応用すれば、「tsvの第二カラムの積算」なんてのは
perl -lane '$t += $F[1] ; }{ print $t ;' FILE

スクリプトファイルにしたときも同じ事。B::Deparse にて確認して。
perl -MO=Deparse foo.pl
あとはお好みに。これで手に負えない時とかstrict適用したい時は
普通に書きゃいいだけだし。

255:244
08/05/28 22:41:30
>>250
それは、>>247や>>248に対するレスで、例えばopen();while(){うんたらかんたら・・・}close();を
一まとめにしたサブルーチンなんかに投げるってこと。

いや、スマン。244で速度のこととか言い出したんだけど、
自分が言いたかったことは、>>240-243までの流れで、ちょっとした処理(>>240とかｗ)を
わざわざCで書いたんなら、かなり損した気分になるのは大いに理解できるけど、
それをperlでやるのは、そんなに損した気にはならない、
ってゆうか、perlだからこそ、$nakami　=　`cat　file.txt`;や@files　=　`find　・・・`;
みたいな事が手軽に出来る、ってのが、perlの大きな魅力の1つではないかと自分は思ってる。
ってことを言いたかった。

>>252
それはオレも初耳。
完全に理解しきれてないけど、色々応用が効きそうだ。

256:デフォルトの名無しさん
08/05/28 23:31:00
>>246
>>248
「かなり」とか「圧倒的に」とか、ずいぶんアバウトだな。
そんなんじゃ全然説得力が無い。

たとえば、$a = `cat unko.txt` すると０．１秒かかるとしよう。
open・read・close すると０．０１秒しかかからないとしよう。
で？それが何なの？どうなのよ、って事だ。
えっ？１０倍早いだって？
おいおい、０．１－０．０１＝０．０９秒しか違わないんだよ。
たったの０．０９秒の差を人間が感じ取れるとでも思うの？
アフォくさ。

257:デフォルトの名無しさん
08/05/28 23:34:30
>>256
whileかけるようになったらまたおいで。

258:デフォルトの名無しさん
08/05/29 00:09:41
>>256
一回だけ処理するならその程度で済むかもね。

259:デフォルトの名無しさん
08/05/29 00:29:53
svn より、cvs のほうがインストールの敷居は低いんじゃないかなぁ。
cvs のほうが依存するライブラリ少いし、FreeBSD なら最初から入ってるし。

260:デフォルトの名無しさん
08/05/29 00:42:12
俺はsubversion派だわ

って誤爆か

261:デフォルトの名無しさん
08/05/29 13:56:47
誤爆じゃないだろ。perldoc.jpの話じゃね？

262:デフォルトの名無しさん
08/05/29 15:29:41
my $message = "He is 5 years old\n";
$message =~ s/(\d+)/{ twice($1) }/e; #数字を検索して、2倍して置換
print $message;

これなのだけど
my $message = "He is 5 years old\n";
$message =~ s/(\d*)/{ twice($1) }/e; #数字を検索して、2倍して置換
print $message;

これじゃダメなのはなんで？

263:デフォルトの名無しさん
08/05/29 15:35:34
* は0回以上の繰り返しだから、先頭でマッチする。

264:デフォルトの名無しさん
08/05/29 18:45:13
(\d*)

全てが任意なので、全ての行で置換が行われることに

265:デフォルトの名無しさん
08/05/29 18:47:59
先頭つーか、全ての文字の間にマッチする。

266:265
08/05/29 18:48:46
\d\d*

でやってみ。

267:デフォルトの名無しさん
08/05/29 19:34:03
>>265
egじゃなくてeだから、この場合は先頭だけだろう。

268:デフォルトの名無しさん
08/05/29 21:48:26
お、eをgと見間違えたわ。

269:デフォルトの名無しさん
08/05/29 21:59:34
いーじーさんにつーれられーてー・・・
いや何でもない

270:デフォルトの名無しさん
08/05/29 22:23:27
逝っちゃった

271:デフォルトの名無しさん
08/05/29 23:56:31
横浜港乙

272:デフォルトの名無しさん
08/05/30 03:29:45
港のヨ～(ry

273:デフォルトの名無しさん
08/05/31 19:56:52
cpan起動出来なくなりました。

#cpan
Unable to get Terminal Size. The TIOCGWINSZ ioctl didn't work.
The COLUMNS and LINES environment variables didn't work. The resize program didn't work.
at /usr/local/lib/perl5/site_perl/5.8.3/i386-freebsd/Term/ReadKey.pm line 362.
Compilation failed in require at /usr/local/lib/perl5/site_perl/5.8.3/Term/ReadLine/Perl.pm line 63.

とエラーが出ます。
恐らく、perlのバージョンアップした際に不具合が生じているのかと思うのですが・・・。
ネットで解決法を探すも情報がほとんどなく手がかりもつかめません。

perl　v5.8.3
OS FreeBSD　4.2-R

助けて下さい。お願いします。

274:デフォルトの名無しさん
08/05/31 20:09:04
もっかいCPANインスコしなおせばいいじゃん

275:273
08/05/31 21:57:38

インストールしなおしてみましたが、ダメでした。
同じ症状です・・・。トホホ。

276:デフォルトの名無しさん
08/05/31 21:58:41
12 May 2008 20:15:40
を
2008/05/12 20:15:40
という風に返すモジュールないですか？

277:デフォルトの名無しさん
08/05/31 22:02:33
>>273
どこでおかしくなっているか明示されているんだから、
見てみればいいだけ。

278:デフォルトの名無しさん
08/05/31 22:19:44
>>276
use HTTP::Date qw(str2time time2iso)
print time2iso( str2time("12 May 2008 20:15:40") );

279:デフォルトの名無しさん
08/05/31 22:22:11
ああスラッシュ(/)か >>278 なし

280:デフォルトの名無しさん
08/05/31 22:27:06
>>276
Date::Manipかな。日付を扱うならDate::Calcとともに定番。

perl -MDate::Manip -e 'print UnixDate("12 May 2008 20:15:40", "%Y/%m/%d %H:%M:%S")'

281:276
08/06/01 00:57:56
>>278
>>280
280氏のDate::Manipで解決できました。ありがとうございました。

282:デフォルトの名無しさん
08/06/01 04:50:03
activeperl v5.10.0 built for MSWin32-x86-multi-thread
において

　GD v2.39
　GD::Graph v1.4308
　GD::Text v0.86

で

use GD;
use GD::Text;

use GD::Graph::bars;
my $graph = GD::Graph::bars->new( 800, 800 );
my $gd_text = GD::Text->new();
GD::Text->font_path( _______DIR______);
$gd_text->set_font(_______FONT______, 178) ;#or die $gd_text->error;
$graph->set_title_font(_______FONT______, 178 );

_______DIR______ = undef | '' | 何か意味のある値
_______FONT______ = undef | '' | 何か意味のある値

をWindowsXP SP2あるいはWindows2k SP1で実行したとき
どうもシステムのフォントを破壊?するようです

283:232
08/06/01 04:57:25
以下windows板に書いた物。

windows XP

起動してみると　”ようこそ”が明朝体になってて
ファイル名の全角空白までも文字化けしている状態になりました。

標準で恐らく第１水準漢字が表示できたりできなかったりするフォントが選択されているようです。
検索　-＞　索　が表示できない
削除 -＞削　が表示できない
書き込む　－＞　込が表示できない

またcmdで日本語が返ってくるような状態
>> c:\hoge\foo.bar （実際には存在しないファイル）
とかタイプすると　■■■■■　■■■■と文字化けして
（ファイルが見つかりませんとかそんな感じのメッセージ）と返ってきます。

URLﾘﾝｸ(support.microsoft.com)
に従ってフォントキャッシュを消して再起動しても改善されませんでした。

Windows 2000 SP1ではＩＥ6の検索ウインドウに英字を入れるとイタリックに化ける
という共通してんだか共通してないんだかな現象が発生します。

232に書いたコードを実行したときに即に破壊するわけではなく、次回起動時から影響が出始めるので
何がどうなってるのかまったく分からない上に妙な分野にまたがった問題のために、
５時間戦って何にも戦果が上がらずもう疲れたのでとりあえずよし牛でも行ってからＯＳ入れなおすことにしますた。

GD(GD::Textだと思うんだけど)使うときは気をつけてください。

284:282
08/06/01 05:17:28
すみません、　訂正　283 で　s/232/282/g; で読んでください。
再現したくないのでぜんぜん検証ができないのですが
これはCPANの作者さんにも報告したほうがいいのでしょうか？

285:デフォルトの名無しさん
08/06/01 17:00:58
ヤフオクの管理をしようと思います

とりあえず出品リストを作ろうと思って、
URLﾘﾝｸ(openuser.auctions.yahoo.co.jp)
の内容の取得をしようと思っても、アダルト商品なので表示されません
クッキー周りだと思うのですが、うまくいきません
書いてみたのは下のようなもので、
yahoo_cookieにはadministrator@auctions.yahoo.co[2].txtの内容を
#LWP-Cookies-1.0
Set-Cookie3: YAUC_AV=.....
みたいな感じでコピーしてあります
どこが間違っているのでしょう

use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;
use Encode;
$cookie_file = 'yahoo_cookie';
my $cookie_jar = HTTP::Cookies->new(file => $cookie_file, autosave => 1);
$ua = LWP::UserAgent->new;
$ua->cookie_jar($cookie_jar);
$req = GET "URLﾘﾝｸ(openuser.auctions.yahoo.co.jp)";
$res = $ua->request($req);
print $res->content;

286:デフォルトの名無しさん
08/06/01 17:12:13
どういう風にできないの？

287:デフォルトの名無しさん
08/06/01 23:15:25
要素に配列への参照か文字列を含んだ再帰的な配列を出力するプログラムを作ろうとしているのですが
ややこしくてついアイスに手を出してしまいます。
どうすれば幸せになれますか

my　@a=(1,2,3);
my　@b=qw(a　b　c);
my　$c=[\@a,\@b];
my　$aa=[1,2,3];
my　$bb=[4,5,6];
my　$cc=[\$aa,\$bb];
sub　pr{
　　　　my($depth,$ary_ref)=@_;
　　　　if((ref　$ary_ref)　eq　"ARRAY"){
　　　　　　　　foreach　(@$ary_ref){
　　　　　　　　　　　　pr(($depth+1),$_)
　　　　　　　　}
　　　　}elsif(defined　$$ary_ref){
　　　　　　　　print　$depth,":",$$ary_ref,"do　something\n";
　　　　}else{
　　　　　　　　print　"do　nothing\n";
　　　　}
}
pr　$cc;
pr　$c;

288:287
08/06/02 08:56:48
自己解凍しました。

289:デフォルトの名無しさん
08/06/02 11:07:13
書きたかっただけだろｗ

290:デフォルトの名無しさん
08/06/02 12:34:14
sendmailで受信したメールを、procmailからperlスクリプトを起動して処理しているのですが処理結果ない場合があります。
どこかでエラーが出て止まっていると思うのですが、エラー内容をファイルに出力できないでしょうか？
.procmailrcを

:0
|perl ./foo.pl 2>&1 > ~/out.txt

としてみましたがout.txtにはなにも出力されませんでした。(空ファイル)

291:デフォルトの名無しさん
08/06/02 12:44:59
Windows だとその書き方はダメで
perl ./foo.pl > ~/out.txt 2>&1
というふうに 2>&1 を後ろにもっていく必要がある。
Unix 系はどうか知らん。

292:デフォルトの名無しさん
08/06/02 12:55:40
2>&1は後ろに持っていくはず。
Unix系でも。

293:デフォルトの名無しさん
08/06/02 13:42:21
perl ./foo.pl 2> ~/out.txt

じゃだめだっけ？

294:デフォルトの名無しさん
08/06/02 14:45:45
>>290
リダイレクトは左から評価されるんで、順序に注意汁ってこったな

2>&1みたいのはイメージ的には $b = $a みたいな変数のコピー
>~/out.txtみたいなのは $a = "hoge" みたいな代入
と思っておけば、イメージ的にはほぼ間違い無い

$b = $a;
$a = "hoge";
とかやっても、$bは"hoge"にならないでしょ
逆順だと上手くいくけど

295:デフォルトの名無しさん
08/06/02 19:03:12
少しそれるが、この右からとか左からとかってのは結局のところ
対象の言語の実装がfastcallとかstdcallとかってことかね

296:290
08/06/02 19:33:01
>>291-294
ありがとうございます。解決しました。
perlじゃなくてshellの問題でしたね。すいません。
294氏のイメージは理解しやすかったです。

297:デフォルトの名無しさん
08/06/02 21:15:52
binmode(STDOUT);
と指定したものをテキストモードに戻すにはどうしたらよいでしょうか？

298:デフォルトの名無しさん
08/06/02 21:40:55
binmode(STDOUT, ":crlf");

perlfunc読めよ糞が

299:デフォルトの名無しさん
08/06/02 22:59:05
　　　　　↑
キミ、後輩を育てられないタイプだね。

300:デフォルトの名無しさん
08/06/02 23:06:24
うん。自分でもそう思う。
でも、いまのところ自営業で後輩いないからなんとかなってる。

301:デフォルトの名無しさん
08/06/02 23:11:36
相手に糞とか言う輩は、殆どの場合己がそうだから。

302:デフォルトの名無しさん
08/06/02 23:31:02
相手をくそとか言う輩は，ほとんどの場合周囲からくそと言われてるから。

303:デフォルトの名無しさん
08/06/03 00:41:30
>>301
> 相手に糞とか言う輩は、殆どの場合己がそうだから。

調査不可能なことを断言する嘘つきの出現です。

304:デフォルトの名無しさん
08/06/03 02:06:42
断言してないような

305:デフォルトの名無しさん
08/06/03 02:30:56
質問してもいいでしょうか？
winxp sp2を使っていて、activeperlを入れています。

パソコンのボリュームの調整をするコードを書きたいのですが、
perlからでもそういうのはいじれるのでしょうか？

メイン音量・ＷＡＶＥ、あと、wmpなど音楽再生ソフトの音量もいじりたいです。
どこか参考になるサイトなどありますでしょうか？

306:デフォルトの名無しさん
08/06/03 03:48:25
なんでperlで？
VBでも使った方が良くね？

307:デフォルトの名無しさん
08/06/03 07:37:39
>>305
どうしてもPerlでやりたいなら、Win32APIをつかえば？
それ以上は、Perl関係ない。

308:デフォルトの名無しさん
08/06/03 17:03:21
use utf8;
binmode STDOUT, ':encoding(cp932)';

このコードを他のOS環境で使うためには
:encoding(cp932) を手作業で書き換えてもらってるんですが
自動取得することはできますか？
そのOSのデフォルトのコードページとかエンコードとかを
自動取得することは出来ますか？

309:デフォルトの名無しさん
08/06/03 17:32:59
>>308
「そのOSのデフォルトのコードページとかエンコードとか」というのが
そもそも不明。

次ページ