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

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のデフォルトのコードページとかエンコードとか」というのが
そもそも不明。

310:デフォルトの名無しさん
08/06/03 18:18:44
>>308
OSごとにデフォで使われてる文字コードを完璧に判定することはできない。

同じ記述なら一括で置き換えればいいだけだし
共通する部分なら最初に開発した段階で
定数なり関数なり作ってそこに定義しておくべきだった。

311:デフォルトの名無しさん
08/06/03 19:03:49
>>308
OS名や環境変数で、ある程度は判別できるだろうね。

312:デフォルトの名無しさん
08/06/03 20:04:39
>>311
> OS名や環境変数で、ある程度は判別できるだろうね。

「そのOSのデフォルトのコードページとかエンコードとか」が存在するかどうか
とか、それを守っているのかとか、そもそも一貫性があるのかとか
はいちいち調べないとね。

313:デフォルトの名無しさん
08/06/03 20:21:42
出力の話なんだから環境変数LANGみて空ならCP932にするだけで
ほぼ解決しないかな？

314:デフォルトの名無しさん
08/06/03 21:48:18
中国とかフランスとかドイツの Windows って、環境変数 LANG に何て設定してあるの？

315:デフォルトの名無しさん
08/06/03 22:25:52
そもそもUNIX系OSには「OSのデフォルトのコードページとかエンコード」なんて概念自体無いわけだが。
LANGはOSのデフォじゃなくて、「その人が端末に表示したいエンコード」。
端末装置はユーザごとに異なるのが当たり前・・・というUNIXの基本を忘れてるよ。

んで、メンド臭いなら全部 UTF8 にしたら？
今時のWindowsのメモ帳ならUTF8開けるよ。

316:デフォルトの名無しさん
08/06/03 22:29:21
Unix環境なら
use open ":locale";
とかでよきに計らってくれるようだが
Win32だと良い方法はないかも

317:デフォルトの名無しさん
08/06/03 22:32:43
> use open ":locale";

これも駄目。
何故なら、プロセスの実行環境と、その出力を閲覧するユーザのlocaleが一致する保証は無いから。

318:デフォルトの名無しさん
08/06/03 22:36:41
>>317
それが「いい」か「だめ」かはケースバイケースでしょ。

それで少なくとも伝統的なUnixのI18N/L10Nプログラムと同じ動作にはなる。
Cでsetlocale(LC_CTYPE, "")するのとほぼ同じだから。

無論、設定ファイルや何かでオーバーライドできるようにすることが
望ましいけどね。

319:デフォルトの名無しさん
08/06/03 22:37:25
>>313
他国語版使ったこと無いから知らんけど、cp932が有効なのが
そもそも日本語版Windowsだけなんじゃないかな。

>>314
中国はbig5?(と思ったら、Windowsでは、GB2312(cp936)らしい？？)
フランス等ラテン語件はlaten-1(ISO-8859-1)なんじゃね？(cpだと1252)

>>316
VCからなら、locale取得したり、変更したりする関数があったハズ。
Win32APIから叩けそうな気がするけど、どうなんだろ。

まあ、日本語環境のみで使用するってんなら、>>313でええかも。

320:305
08/06/03 23:32:11
>>306
CGIでPerlをかじりました。
実行ファイルにしてしまえば（自分のパソコンにはperl入ってるので不要ですが）Perlで問題ないと思いました。
Perlではwindowsを操作するようなプログラムはかけないなんてことはないと思ってたんですが。

特に簡単なのなら言語なんてほとんどなんでもいいのかと。

>>307
win32apiとやらを調べてみます。

321:デフォルトの名無しさん
08/06/04 01:36:05
>>315
UNIXのメモ帳で端末のエンコードが変更できるんですか？

エンコードの概念が無いなら、いったいどうやって漢字を表示するんでしょう？
テキストファイルをopenするのに、いったい何のコードでデコードすればいいんでしょう？

322:デフォルトの名無しさん
08/06/04 02:00:32
>>321
> UNIXのメモ帳で端末のエンコードが変更できるんですか？

「UNIXのメモ帳」という謎の概念が提示されました。

323:デフォルトの名無しさん
08/06/04 02:01:13
viとemacsの戦い

324:デフォルトの名無しさん
08/06/04 02:02:10
ああ、いるんだよ。別なOSを「別なWindows」だと思ってるやつ。

325:デフォルトの名無しさん
08/06/04 02:08:47
しばらく俺の雇用は安泰だな

326:デフォルトの名無しさん
08/06/04 04:11:02
まあ、確かにメモ帳ライクな外見＆操作を意識したテキストエディタはあるけどな。
それならUNIXのメモ帳と言っても何ら差し支えは……。

327:デフォルトの名無しさん
08/06/04 05:04:24
>>322
> > UNIXのメモ帳で端末のエンコードが変更できるんですか？

これ全体が謎なんだな。

328:デフォルトの名無しさん
08/06/04 07:03:52
>>320
Perlもモジュールだなんだでいろいろ出来るようにはなったけど
基本はテキスト処理をするための言語だぜ？

ちょっとじかじったくらいなんだったら
それに適した言語をかじり直したほうがたぶん早いよ

329:デフォルトの名無しさん
08/06/04 08:25:15
>>320
win32apiをPerlから使うのは結構面倒なので、場合によるだろうけど、>>305をみると、Perlでコーディングする意味はないと思う。
やってで気ないことはないけど、適材適所ってヤツがある。
VBだと金がかかるという場合、もしVista使ってるならサイドバーガジェットという選択肢もあるかな。

330:デフォルトの名無しさん
08/06/04 10:48:24
>>319
ちょっとやってみた感じだと、ActivePerlでもPOSIXモジュールのsetlocale()は
機能する模様（実際にはMSVCRTのsetlocale()を呼んでいるのだろう）

use POSIX qw(locale_h)
$old_locale = setlocale(LC_CTYPE, "");
とかやると、Japanese_Japan.932とかいう文字列が帰ってくる。
.の後ろがコードページのはず。

cygwinみたいにロケールが完全に腐ってる環境ではどうしようもないけどな。

331:デフォルトの名無しさん
08/06/05 00:25:55
>>323
おーっと、ここで「ed・はるみ」が乱入ｗ

332:デフォルトの名無しさん
08/06/05 05:42:10
帰れカス

333:デフォルトの名無しさん
08/06/05 10:17:09
Kwaliteeってなんですか？

334:デフォルトの名無しさん
08/06/05 15:09:00
$ ed
hello, world
?
help
?
quit
?
exit
?
q
?
?
?
--help
?
-help
?
fuck
?

335:デフォルトの名無しさん
08/06/05 16:18:29
ﾜﾛた

336:デフォルトの名無しさん
08/06/05 20:11:12
open FILE, '<:utf8', "unko.txt";
read FILE, my $content, (stat FILE)[7];
close FILE;

この (stat FILE)[7] の部分が、見た目が汚く感じるんですが
もっと美しい書き方はありませんか？
read FILE, my $content, 9999999999; とか、死んでもイヤです。
どっかのクソ言語の ReadAll メソッドみたいなのが欲しいです。

337:デフォルトの名無しさん
08/06/05 20:13:08
open my $file, '<:utf8', "unko.txt";
my $content = do{local $/; readline $file}
close $file;

338:デフォルトの名無しさん
08/06/05 21:12:54
-s FILE

339:デフォルトの名無しさん
08/06/05 21:16:32
>>336
っ[File::Slurp]

340:デフォルトの名無しさん
08/06/06 00:13:26
my $content = join("",<FILE>);

341:デフォルトの名無しさん
08/06/06 00:39:53
>>338
そっか、それがあったか。それ使わせてもらいます。感謝感謝。
あとの残りはクズですね。

342:デフォルトの名無しさん
08/06/06 00:46:36
全部読むなら$/をクリアするのが常套手段だろ。

343:デフォルトの名無しさん
08/06/06 00:59:50

OBJS = ${CSRC:.c=r30}

.c.r30:
${CC} $<

Makefile中の$<をPerlを使って置換してCCに渡すことは可能でしょうか？

$<に含まれているスラッシュを\\に置き換えるために
$< =~ s|/|\\\\|g
このような置換を行いたいです。
環境はCygwinPerl5.8.8です。

344:デフォルトの名無しさん
08/06/06 01:00:03
>>341
どうやって使うの？

345:デフォルトの名無しさん
08/06/06 01:11:15
sub write {
　($fileName, $text) = @_;
　open(FH, "+>$fileName");
　print FH $text;
　close(FH);
}

こんな感じでファイルを出力するコード書いたのですが、
サブルーチン経由だとなぜか動きません
サブルーチンなしだと正しくファイルが書き出されました
なにがおかしいのでしょうか

346:デフォルトの名無しさん
08/06/06 01:21:24
writeという標準関数があるから

347:デフォルトの名無しさん
08/06/06 01:52:38
>>346
writeという標準関数の存在しりませんでしたが
今回はなぜこのコードが動かないかについてよろしくお願いします

というのも、同じ仕様(関数名,引数,戻り値)を複数の言語で記述してみてるだけなのです

348:デフォルトの名無しさん
08/06/06 02:11:42
組み込み関数を再定義するためにはお作法がある。writeが再定義可能かは知らん。
perlsub読むか、親切に解説してくれるおせっかいが通りかかるのをまて。

349:デフォルトの名無しさん
08/06/06 02:23:57
あ、なるほど　そういう意味でしたか
文法自体はあってるんですね
ありがとうございます

350:デフォルトの名無しさん
08/06/06 02:35:57
&writeでもだめなのかな。

351:デフォルトの名無しさん
08/06/06 08:19:33
>>349
ほかにどういう意味だと思ったんだ？

352:デフォルトの名無しさん
08/06/06 08:22:01
>>343
makeのsubstやpatsubst関数じゃだめ？

353:デフォルトの名無しさん
08/06/06 08:33:28
perlを始めたばかりなのですが、
foreachやwhile等で、何回目のループかをカウントしているような
変数は無いでしょうか？
自前で用意すればいいだけなのですが、そのような変数が無いかと思い
質問させて頂きます。

354:デフォルトの名無しさん
08/06/06 11:20:21
あったとしても、時前で用意した方が他の人も読み易いんじゃないかな。

355:デフォルトの名無しさん
08/06/06 11:57:16
そういえば、不精なPerlのハッカーたちは、foreachを使わずに全てforを使う……だなんて
どこかに書かれてたような気がするけど、実際どう？

自分は使い分けてる。

356:デフォルトの名無しさん
08/06/06 12:02:27
自分は for かな後ろ見りゃわかるし。
foreach で (;;) とかやらなきゃどっちでも良いとは思う。

357:デフォルトの名無しさん
08/06/06 12:08:14
forもforeachも一緒じゃないの？ただのシンタックスシュガーかと思ってたけど

358:デフォルトの名無しさん
08/06/06 12:17:35
>>357 それを前提として書いたつもり。

a) for my $n (0..9) {}
b) foreach (my $n=0; $n<10; $n++) {}

a は許容できるが、b は嫌かなってこと。

359:デフォルトの名無しさん
08/06/06 12:21:56
for しか使わね。それと、C type の for は使わね。

360:デフォルトの名無しさん
08/06/06 12:29:16
俺も同じくforのみ

361:デフォルトの名無しさん
08/06/06 13:32:56
どうでもいい。
んで、暗黙のループカウンタなんてあったら言語仕様としてきもい

362:デフォルトの名無しさん
08/06/06 15:39:58
C言語の const 変数の様なのは定義できないでしょうか？ perl 5.8です。

363:356
08/06/06 16:14:23
んー、やっぱforだけとかの人のほうが多いのね。
まさにPerlスタイル。

>362
use constantとかはー？

364:デフォルトの名無しさん
08/06/06 17:02:47
use Readonly ;
>>361
$. は？w

365:デフォルトの名無しさん
08/06/06 17:07:46
つまりキモイってことですよPerlはｗ

366:デフォルトの名無しさん
08/06/06 17:19:32
柔軟な頭を持ってない奴が負け惜しみを言ってますw

367:デフォルトの名無しさん
08/06/06 17:23:44
ゴミを美味いと思う自分の狂った味覚を「柔軟さ」と主張する人生ですかｗ

368:デフォルトの名無しさん
08/06/06 17:31:57
君がゴミだと思って捨てていた部分は実は高値で取引される珍味でした。

369:デフォルトの名無しさん
08/06/06 17:56:23
>>362
Cライクにやりたいなら
use constant NAME => 'hoge';

ただし Perlでベアワードはメンドくさい。
"my name is NAME"
とやっても展開されないから
"my name is ".NAME
とするしかない。

*NAME = \'hone';
これを使えば
"my name is $NAME"
で展開できる。

*C_STR = \'xxxx'; # 文字列定数。参照は $C_STR
*C_NUM = \100; # 数値定数。参照は $C_NUM
*C_ARRY = [1,2,3]; # 配列定数。参照は @C_ARRY
*C_ASSOC = {k1 => v1,k2 => v2}; # ハッシュ定数。参照は %C_ASSOC

370:デフォルトの名無しさん
08/06/06 18:04:39
>>368
まぁ、珍の字はニュアンスぴったりだと思うよ。
Perlの仕様を漢字一字で表せといったら、珍・奇・醜・糞あたりが有力だろうし。

371:デフォルトの名無しさん
08/06/06 18:44:43
forは数値カウンタのときやCライクな使い方のとき。
配列から読み取るってときはforeachにしてるな。こっちはPHPぽい方で

372:デフォルトの名無しさん
08/06/06 18:45:22
>>370
あれ？なんでわざわざこのスレに？

373:デフォルトの名無しさん
08/06/06 18:50:29
・上にあがってるから
・Perlを盲目的に全肯定するキチガイだけが住人ではないから

374:デフォルトの名無しさん
08/06/06 19:03:32
誰も全肯定なんてしとらんがな・・・

375:デフォルトの名無しさん
08/06/06 19:41:58
それを言ったら、誰も負け惜しみなんて言ってないよな。

376:デフォルトの名無しさん
08/06/06 20:34:35
>>373
ゲテモノだってのは認識しとる。

377:デフォルトの名無しさん
08/06/06 21:41:28
>>352
レスありがとうございます。
substを使ってうまくいきました。
ありがとうございました。

378:デフォルトの名無しさん
08/06/06 22:15:29 BE:477576296-DIA(100004)
まず匿名の臆病者は自分の (好きな|メインの) Lightweight Language を言えよ

379:デフォルトの名無しさん
08/06/06 22:52:56
BER圧縮された数値(オフセット値、ID)のビット列に対し、
二分探索法を行なっている実装例ってありませんかね?

380:デフォルトの名無しさん
08/06/07 01:02:59
そういうのはCでやった方が

381:デフォルトの名無しさん
08/06/07 14:17:18
>>378
できるよ。
以上。
↓次どうぞ

382:デフォルトの名無しさん
08/06/08 00:21:35
↑おつかれさまでした

383:デフォルトの名無しさん
08/06/08 19:02:55
他のファイルに変数を設定したファイルを用意し、
そのファイルを読み込み設定された変数を利用したいのですが、
どのようにすれば実現できますか？

384:デフォルトの名無しさん
08/06/08 19:05:01
そのようにすれば

385:デフォルトの名無しさん
08/06/08 19:13:01
そういうふうにプログラムすりゃいいでしょ

386:383
08/06/08 19:14:47
すみません。
サンプルコードなど頂けませんでしょうか？

387:デフォルトの名無しさん
08/06/08 19:16:05
do "configs";

388:デフォルトの名無しさん
08/06/08 19:17:30
D'OH !

389:383
08/06/08 19:19:09
reqireでできました。

阿呆しか答えてくれないので、聞く手間をかけずに調べれば良かったですね。

390:デフォルトの名無しさん
08/06/08 19:26:32
reqireなんてあったか？

391:383
08/06/08 19:26:33
>>389は私ではありません。
requireも試してみたのですが、変数の値が継承されないようで
うまくできませんでした。

>>387
ありがとうございます。
試してみたのですが、requireと同じように変数の値が継承されません。
doと言うものを調べたのですが、while文のdoしかなかなか見付からず
使い方が悪いのかも知れません。
すみませんが詳しく教えて頂けるとありがたいです。

次ページ