Perlについての質問箱 30箱目
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2007/03/14(水) 22:54:12"There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。
CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
(WEBプログラミング板 http://pc8.2ch.net/php/ )
CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
http://www.perl.org/get.html
● 2006/12/21現在の最新版: 5.8.8
● 2006/12/21現在の開発版: 5.9.3
前スレ
Perlについての質問箱 29箱目
http://pc11.2ch.net/test/read.cgi/tech/1166708139/
リンク集は>>2-3
過去スレは>>4
0756デフォルトの名無しさん
2007/05/23(水) 14:34:480757デフォルトの名無しさん
2007/05/23(水) 14:38:03とりあえずCGIは置いといて、まずファイルの入力の基本をググって調べればいいんじゃね
0758デフォルトの名無しさん
2007/05/23(水) 14:38:300759デフォルトの名無しさん
2007/05/23(水) 14:47:34イカ＝print <<・・、がどこから出て来たかわからん、ってことだよ
0760デフォルトの名無しさん
2007/05/23(水) 14:52:370761デフォルトの名無しさん
2007/05/23(水) 14:54:09以下のように、が、"<meta http-equiv="refresh" content="5; url=aaa.cgi">" を指してるんじゃないの？
大体、何を言わんとしてるかはわかる
0762753
2007/05/23(水) 14:56:30すみません・・・
えーっと
５秒おきにaaa.cgiにアクセスしてIEの画面に数字を順番に
表示させたいだけなんです
753で書いた方法で $line の数値を表示させるだけと言えば
伝わりますかね・・・
0763デフォルトの名無しさん
2007/05/23(水) 15:02:20CookieやURIのクエリ部分だとか、サーバ上のファイルとかメモリとか。
0764デフォルトの名無しさん
2007/05/23(水) 15:02:570765753
2007/05/23(水) 15:05:13どっちか悩んだあげくこっちに書いてしまいました
お邪魔しました
0766764
2007/05/23(水) 15:06:45対象マシンのメモリ可哀想だな。 しかも、IEがそのデータを表示仕切る前に
IE落ちるだろうし、表示仕切る前に5秒経って更新かかるだろうな。
しかも、更新しようにもかなりの負荷がかかってるからモッサリ。
ブラウザクラッシャーでも作ろうとしてるのか?
0767753
2007/05/23(水) 15:10:09１行目表示して５秒後には２行目・・・みたいな感じで。
順番に表示されるのを見て 手元のデータと比較していくだけの
単調な作業なんです
0768デフォルトの名無しさん
2007/05/23(水) 15:26:280769デフォルトの名無しさん
2007/05/23(水) 15:56:500770デフォルトの名無しさん
2007/05/23(水) 16:12:49数万行のデータを手元に持ってきてjavascriptで順次表示させた方が増しな気がする。
何行目を表示させているかも、少し離して表示させておけば、中断したときには手書きでメモれば十分だろう。
表示開始行数は引数で与えれば再開できるし。
0771デフォルトの名無しさん
2007/05/23(水) 17:25:550772デフォルトの名無しさん
2007/05/23(水) 17:34:38BEFOREHAND: close door, each window & exit; wait until time.
open spellbook, study, read (scan, select, tell us);
write it, print the hex while each watches,
reverse its length, write again;
kill spiders, pop them, chop, split, kill them.
unlink arms, shift, wait & listen (listening, wait),
sort the flock (then, warn the "goats" & kill the "sheep");
kill them, dump qualms, shift moralities,
values aside, each one;
die sheep! die to reverse the system
you accept (reject, respect);
next step,
kill the next sacrifice, each sacrifice,
wait, redo ritual until "all the spirits are pleased";
do it ("as they say").
do it(*everyone***must***participate***in***forbidden**s*e*x*).
return last victim; package body;
exit crypt (time, times & "half a time") & close it,
select (quickly) & warn your next victim;
AFTERWORDS: tell nobody.
wait, wait until time;
wait until next year, next decade;
sleep, sleep, die yourself,
die at last
# Larry Wall
これどういう意味？暇だったら訳してくれ
0773デフォルトの名無しさん
2007/05/23(水) 17:35:38Excelでも十分かもしれん。
0774デフォルトの名無しさん
2007/05/23(水) 17:42:02で、sleep(5)とか
0775デフォルトの名無しさん
2007/05/23(水) 18:14:28excel だけど win は一万行平気で開く？
cat -n hoge.log | more で十分だったりw
0776デフォルトの名無しさん
2007/05/23(水) 18:26:06ラクダ本3版Volume2に訳が出てるお
0777デフォルトの名無しさん
2007/05/23(水) 18:39:22本当はそんな感じ（と、行番号カウンタか）でいいんだと思うよ。
Web鯖に吐かせるべき理由があるんだかどーなんだか。
0778デフォルトの名無しさん
2007/05/23(水) 18:45:09for >= grep > mapって感じみたいなのですがなんでmapだけこんなに遅いのでしょう？
■テストコード
use Benchmark qw/cmpthese/;
use strict;
use warnings;
my $LOOP = 100;
my @SEED = ('a'..'z','A'..'Z',0..9);
my @DATA = map {$SEED[int rand @SEED]} 1..10000;
my %TABLE = map {$_=>$SEED[int rand @SEED]} @SEED;
cmpthese($LOOP, {
#非破壊
'map1' => sub {my @hoge = map { $TABLE{$_} } @DATA; 1;},
'grep1' => sub {my @hoge;grep push(@hoge,$TABLE{$_}),@DATA;1;},
'for1' => sub {my @hoge;push(@hoge,$TABLE{$_}) for(@DATA);1;},
#破壊
'map2' => sub {map {$_=$TABLE{$_}} @DATA ;1;},
'grep2' => sub {grep $_=$TABLE{$_},@DATA;1;},
'for2' => sub {$_ = $TABLE{$_} for(@DATA);1;},
});
0779デフォルトの名無しさん
2007/05/23(水) 18:47:30Rate map1 map2 for1 grep1 grep2 for2
map1 25.8/s -- -14% -32% -33% -66% -69%
map2 30.1/s 17% -- -21% -22% -60% -64%
for1 38.0/s 48% 26% -- -2% -50% -54%
grep1 38.6/s 50% 28% 2% -- -49% -53%
grep2 75.8/s 194% 152% 99% 96% -- -8%
for2 82.6/s 221% 174% 117% 114% 9% --
■結果 ２回目
Rate map1 map2 grep1 for1 grep2 for2
map1 24.6/s -- -16% -33% -33% -71% -71%
map2 29.2/s 19% -- -20% -21% -65% -66%
grep1 36.6/s 49% 26% -- -1% -56% -57%
for1 36.9/s 50% 27% 1% -- -56% -57%
grep2 83.3/s 239% 186% 127% 126% -- -3%
for2 85.5/s 248% 193% 133% 132% 3% --
■結果 ３回目
Rate map1 map2 grep1 for1 grep2 for2
map1 23.3/s -- -17% -33% -37% -72% -73%
map2 27.9/s 20% -- -20% -25% -66% -67%
grep1 35.0/s 50% 25% -- -6% -57% -59%
for1 37.0/s 59% 33% 6% -- -55% -56%
grep2 82.0/s 252% 193% 134% 121% -- -3%
for2 84.7/s 264% 203% 142% 129% 3% --
0780デフォルトの名無しさん
2007/05/23(水) 19:28:11一つだけ全く別のことやってりゃそりゃ遅い罠。
map2が遅いのはfor2grep2と違ってブロック評価してるからだと思う。
とりあえず
'map1' => sub { my @hoge; map { push @hoge, $TABLE{$_} } @DATA; 1; },
'map2' => sub { map $_ = $TABLE{$_} , @DATA; 1; },
に書き換えたらグループごとの速度は大差なくなるはず。
関係ないけど最近のPerlのmapは
同じことやるforeachより速くなったりするのでびっくり。
古いバージョンなら戻り値使わない時は絶対forって言えたんだけどな。
0781デフォルトの名無しさん
2007/05/23(水) 19:30:42Rate grep1 for1 map1 grep2 map2 for2
grep1 19.8/s -- -1% -3% -64% -64% -65%
for1 20.0/s 1% -- -2% -64% -64% -65%
map1 20.4/s 3% 2% -- -63% -63% -64%
grep2 55.2/s 179% 176% 171% -- -1% -3%
map2 55.5/s 180% 177% 172% 1% -- -3%
for2 57.0/s 188% 185% 180% 3% 3% --
0782デフォルトの名無しさん
2007/05/23(水) 20:02:21map2はsub {map {$_=$TABLE{$_};1;} @DATA ;1;}
とすると順位があがりました。余計なメモリコピーが発生してたみたいです。
さらに>>780さんの指摘を受けて
'map1' => sub {my @hoge;map push(@hoge,$TABLE{$_}),@DATA; 1;},
'map2' => sub {map $_=$TABLE{$_},@DATA ;1;},
に変更したところ若干forが優勢っぽいですがほとんど同じ結果になるようになりました。
組み込みの関数なのでperlのバージョンによって変わってくる部分もありそうですね。
テスト環境はperl v5.8.5でした。(書き忘れ)
大変わかりやすい説明ありがとうございました。
0783デフォルトの名無しさん
2007/05/23(水) 20:05:520785デフォルトの名無しさん
2007/05/25(金) 01:12:04Perlでは初めてオブジェクト指向のコードを書いているのですが、
下記のようなコードでアロー演算子と行入力演算子が併用できなくて困っています。
一度他のローカル変数にファイルハンドルを代入してやればうまくいくのですが、
もっとスマートに、オブジェクトが持つファイルハンドルから行入力する方法はあるのでしょうか。
use strict;
sub parse
{
my $this = shift;
my @data = <$this->{fh_lex}>; # 文法エラー
# 下のコードなら成功
# my $fh = $this->{fh_lex};
# my @data = <$fh>;
for (@data) {
;# 省略
}
}
0786デフォルトの名無しさん
2007/05/25(金) 01:59:16括弧の中を $fh のような形をしたスカラ変数にしないとダメだから、
一時的に変数を作るしかないね。
my @data = sub{$_=shift;<$_>}->($this->{fh_lex}); とかｗ
0787デフォルトの名無しさん
2007/05/25(金) 02:08:240788デフォルトの名無しさん
2007/05/25(金) 02:09:520789デフォルトの名無しさん
2007/05/25(金) 02:22:28とかダメ？ 試してないけど。
0790デフォルトの名無しさん
2007/05/25(金) 02:31:13ダメだよ。やってみたw
<>を放棄した技だけどw
my @data = readline $$this{fh_lex} ;
0791デフォルトの名無しさん
2007/05/25(金) 02:37:14my @data = readline $this->{fh_lex};
でよかろ。
0792デフォルトの名無しさん
2007/05/25(金) 04:08:38別に無理に1行に書かなくても地味に$fhに代入した方がよっぽど明示的で
よいコードに見える。
どうしてもっていうんなら、$thisがオブジェクトならオーバーロードを使ってみては？
0793デフォルトの名無しさん
2007/05/25(金) 18:39:22>>780
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perl581delta.pod#Miscellaneous_Enhancements
> map in void context is no longer expensive. map is now context aware,
> and will not construct a list if called in void context.
perlstyle でやるなって言われてるのに、悪い癖を直そうとしない子が
あまりに多いから実装側でフォローした、と俺は解釈してる。
0794デフォルトの名無しさん
2007/05/25(金) 18:48:260795デフォルトの名無しさん
2007/05/25(金) 19:11:110796785
2007/05/25(金) 22:27:59みなさんどうもありがとうございます。
やはりPerlとはいえ表記上の制約はあるんですね。
にも関わらず他の方法がいくつもあると言うのはさすがですが。
どれを使おうか迷ったのですが、とりあえず今回は、readlineを使うのが一番綺麗に見えたので、それを使わせてもらおうと思います。
本当に勉強になりました。
0797デフォルトの名無しさん
2007/05/26(土) 02:42:48以下の[data.csv]ようなカンマ区切りのデータがあるとします。
横軸がX座標、縦がY座、各格子の数値がZ座標（標高）を示しています。
このデータを、[out.csv]のように変換したいのですが、2次元配列でつまずいてしまい、途方に暮れてしまいました。
どなたかお知恵を授けて下さい。よろしくお願いします。
あと、入力データのうち行頭が"#"で始まる行は無視する、というのはどうすればできるのでしょうか。合わせてご教授いただけると助かります。よろしくお願いします。
[data.csv]
, 1, 2, 3, 4
5, 12.63 , 33.82 , 31.71 , 29.73
4, 34.75 , 32.14 , 29.31 , 26.70
3, 33.55 , 30.27 , 27.17 , 23.43
2, 31.02 , 29.42 , 26.65 , 23.61
1, 28.00 , 27.04 , 25.39 , 22.60
[out.csv]
X,Y,Z
1,1,28.00
1,2,27.04
1,3,25.39
1,4,22.60
2,1,31.02
2,1,27.04
(中略）
5,3,31.71
5,4,29.73
0798デフォルトの名無しさん
2007/05/26(土) 03:41:35宿題乙＾＾
0799デフォルトの名無しさん
2007/05/26(土) 04:09:08さてコレをどれくらい短くできるだろうか
use strict;
open FILE, "data.csv";
my @data;
my @index;
my @ys;
for my $line (<FILE>) {
chomp $line;
unless (@index) {
@index = split(/\s*,\s*/, $line);
shift @index;
next;
}
my($y, @d) = split(/\s*,\s*/, $line);
push(@ys, $y);
for (my $i=0; $i < @d; $i++) {
$data[ $index[$i] ][ $y ] = $d[$i];
}
}
close FILE;
open FILE, ">out.csv";
for my $x (@index) {
for my $y (@ys) {
print FILE "$x, $y, $data[$x][$y]\n";
}
}
0800デフォルトの名無しさん
2007/05/26(土) 08:04:48use strict;
open FILE, "data.csv";
my(@data, @index, @ys);
while(<FILE>) {
chomp;
my($y, @d) = split /\s*,\s*/;
@index = @d, next unless @index;
push @ys, $y;
$data[ $index[$_] ][$y] = $d[$_] for 0..@d-1;
}
open FILE, ">", "out.csv";
for my $x (sort {$a <=> $b} @index) {
for my $y (sort {$a <=> $b} @ys) {
print FILE "$x, $y, $data[$x][$y]\n";
}
}
close FILE;
0801デフォルトの名無しさん
2007/05/26(土) 08:26:14こんなの例題に出てくるだろが。
open IN, "data.csv" ;
open OUT, ">", "out.csv" ;
print OUT "X,Y,Z＼n" ;
(undef,my @index ) = split /,/, do{ $_ = <IN> ; s/＼s+//g ; $_ } ;
for ( reverse (<IN>) ){
s/＼s+//g ;
next if /^#/ ;
my ( $index, @dat ) = split /,/ ;
for my $i ( 0 .. $#dat ){
print OUT join "," ,$index,$index[$i],$dat[$i] . "＼n" ;
}
}
close IN ;
close OUT ;
0802デフォルトの名無しさん
2007/05/26(土) 10:48:45おまいらやさしいな
0803797
2007/05/26(土) 13:30:30皆さん、どうもありがとうございます。
教えていただいたコードを読んで勉強します。
ところで、私のような初心者向けの本にはどんなものがありますか？
現在手元には、「Perlの絵本」といわゆる「らくだ本」の2冊がありますが、前者はまったくの初心者向けで今回の質問の答えは見いだせません。
一方、後者は私には取っつきにくくて、ヒントが書いてあるのかも知れませんが、見つけられませんでした。
なお、Visual BASICとTurbo PASCALはある程度勉強しました。
近くに大きな本屋がないので、現物を手にとって見比べることができません。アドバイスをいただければ幸いです。よろしくお願いします。
0804デフォルトの名無しさん
2007/05/26(土) 14:26:340805デフォルトの名無しさん
2007/05/26(土) 15:31:12という正規表現が
hogehogeにマッチして
/(\b\w+\b)\1/
という正規表現が
hoge hogeにマッチしないのは何故なんでしょうか?
0806デフォルトの名無しさん
2007/05/26(土) 15:36:26* \b は文字を消費しない。
0807デフォルトの名無しさん
2007/05/26(土) 16:15:33時間をかけて、「らくだ本」じっくりと２回読めばいい。
１回目は、解らない部分には「？」印を付けて、深追いしない。
２回目は、「？」印を付けた部分を重点的に読む。
その過程がなければ、らくだ本を辞書のように使うことはできない。
0808デフォルトの名無しさん
2007/05/26(土) 17:09:49本家だと２００５年に出てるんだよね
ラクダさんも早く新しいの出して欲しいな
0809デフォルトの名無しさん
2007/05/26(土) 18:15:30"Mastering Perl" By brian d foy
ttp://www.oreilly.com/catalog/9780596527242/
0810デフォルトの名無しさん
2007/05/26(土) 19:24:22ひょっとして use encoding でコード指定すると \w が日本語（文字）にもマッチする仕様？
0812デフォルトの名無しさん
2007/05/26(土) 20:17:05perl + 日本語には興味無いんで調べたが、perlunicode にまんま書いてあるぞ。
o Character classes in regular expressions match characters instead
of bytes and match against the character properties specified in
the Unicode properties database. "＼w" can be used to match a
Japanese ideograph, for instance.
0813デフォルトの名無しさん
2007/05/26(土) 20:27:38基本的には空白や記号類ではないような文字にマッチする。
通常は全ての言語の文字にマッチするけど、
use locale;すればロカールである程度は制御できるね。
0814デフォルトの名無しさん
2007/05/26(土) 20:39:14おお、すまそ。そしてありが㌧
今更だけど jcode.pl からの乗り換えに躓いてました
精進してきます
0815デフォルトの名無しさん
2007/05/26(土) 21:20:04cgiのもなんかライブラリあったな
0816デフォルトの名無しさん
2007/05/26(土) 21:22:410817デフォルトの名無しさん
2007/05/26(土) 23:38:11ああ、それそれ！
名前忘れる位懐かしいｗ
0818気まぐれアナスイ
2007/05/27(日) 01:28:48perl.といえば、perldl-command.が…
!(-＿Φ+){yes, So sexy.}
0819デフォルトの名無しさん
2007/05/27(日) 04:04:33@log=("1.txt","2.txt","3.txt","4.txt");
foreach $filename(@log)
{
open(LOG,$filename) || &er_("Can't open $filename");
@lines = <LOG>;
close(LOG);
}
@linesの中に、全てのテキスト内容を合成させた物が
入ってほしいのですが、最後に代入した4.txtの内容しか
入ってくれません。なぜでしょうか。
また、foreachで廻すのを条件として、
改造案を指南いただけると嬉しいです。
0820デフォルトの名無しさん
2007/05/27(日) 04:22:02の部分を
my @tmplines = <LOG>;
push(@lines, @tmplines);
の２行に置き換えてください。
千奈美に最後のやつしか残らないのは、
@lines = <LOG>;
が上書きしてるからです。
だから最後の結果しか残らない。
0821デフォルトの名無しさん
2007/05/27(日) 06:28:04ありがとうございます！できました。
0822デフォルトの名無しさん
2007/05/27(日) 18:20:34>Are you ready for manual configuration? [yes]
毎回、noを答えるんですけど、これ抑制できないんですか？
0823デフォルトの名無しさん
2007/05/28(月) 00:37:04> Are you ready for manual configuration?
俺は個人macもsolarisもyes選択してカスタマイズしたから、
最初にnoを選んだ時の挙動は分らんが、抑制もくそもこれって
最初の一回きりだろ？俺の環境だと出てこないんだけど。
何か変な事やってないか？
0824デフォルトの名無しさん
2007/05/31(木) 15:48:16sub flatten(@) { map { ref $_ eq "ARRAY" ? flatten(@$_) : $_ } @_ }」
の
flatten(@)は配列以外を引数に取れないということでしょうか？
あと
@deff = grep{ !{map{$_,1}@FileA }->{$_}}@FileB;
のmap{$_,1}@FileAなのですが{$_,1}はどういう式なのでしょうか
0825デフォルトの名無しさん
2007/05/31(木) 16:55:501) プロトタイプの@は残りの引数をすべてリストとして取り込むという意味。
(@) にはあまり意味がないんだけど、perlsubでも読んどき。
2) map の引数のBLOCKはリストコンテキストで評価されるから、
$_, 1 は $_ と 1 からなるリスト。
0826デフォルトの名無しさん
2007/06/01(金) 10:44:52最近の Perl でコマンドラインオプションの処理をする場合の標準を教えてください。
0827デフォルトの名無しさん
2007/06/01(金) 11:02:55Getopt::StdかGetopt::Longを使うのがいいよ。どっちも標準モジュール。
Getopt::LongはGetopt::Stdの機能も含むからGetopt::Longのほうがおすすめ。
0828デフォルトの名無しさん
2007/06/01(金) 11:04:230829デフォルトの名無しさん
2007/06/01(金) 12:00:06自分でちまちまとオプション解析するならそれでいいけどな。
0830829
2007/06/01(金) 12:01:080831デフォルトの名無しさん
2007/06/01(金) 13:21:53早速 Getopt::Long 使ってみました。使いやすそうですね。
御回答ありがとうございます。
>>828
すみません、ちょっと私には意味わからなかったのでスルーさせてくださいー。
0832デフォルトの名無しさん
2007/06/01(金) 16:08:31ありがとうございます
0833デフォルトの名無しさん
2007/06/01(金) 16:39:29$text =~ s/\s*//g;
を1行でする方法ないですか.
1行でなくとも見た目がよければいいです。
あとファイルの最初にmy宣言すると、その後のサブルーチン内でも
使えてしまうのですが、これは何か対策はありますでしょうか
0834デフォルトの名無しさん
2007/06/01(金) 16:51:36とか出来んわけではないが分けて書いたほうが見た目はよいだろ。
> あとファイルの最初にmy宣言すると、その後のサブルーチン内でも
> 使えてしまうのですが、これは何か対策はありますでしょうか
ファイルスコープのmyはグローバル変数だから、そういうもの。
嫌なら中括弧で囲っとけばいい。
0835デフォルトの名無しさん
2007/06/01(金) 16:58:410836デフォルトの名無しさん
2007/06/01(金) 17:06:21このぐらいなら、まあいい？
0837デフォルトの名無しさん
2007/06/01(金) 17:10:060838デフォルトの名無しさん
2007/06/01(金) 17:17:50実質4行w
0839デフォルトの名無しさん
2007/06/01(金) 19:21:130840デフォルトの名無しさん
2007/06/01(金) 19:23:33my $text = join "", map { s/\s*//;$_} <>;
0841デフォルトの名無しさん
2007/06/01(金) 19:43:020842デフォルトの名無しさん
2007/06/01(金) 20:35:25pu
0843デフォルトの名無しさん
2007/06/01(金) 23:04:430844デフォルトの名無しさん
2007/06/01(金) 23:14:33@ARGV を使うだけなのにご苦労様
0845デフォルトの名無しさん
2007/06/01(金) 23:45:56>826 名前：デフォルトの名無しさん：2007/06/01(金) 10:44:52
>はじめまして、 Perl 5.005_03 の世界から来ました。こんにちは。
>
>最近の Perl でコマンドラインオプションの処理をする場合の標準を教えてください。
>コマンドラインオプションの処理をする
>コマンドラインオプションの処理をする
>コマンドラインオプションの処理をする
0846デフォルトの名無しさん
2007/06/02(土) 00:07:520847デフォルトの名無しさん
2007/06/02(土) 01:45:09え！？もっと詳しく！！
0848デフォルトの名無しさん
2007/06/02(土) 02:56:27>>826は -Rrt -l --color=auto とかのコマンドラインオプションをパースしたいってことだろ。
学習目的ならいざ知らずそんなもんいちいち自前で処理する奴はマゾ。
0849デフォルトの名無しさん
2007/06/02(土) 12:28:03use Getopt::Stdするだけでプラス0.4秒
という時代とは違うんだから。
0850デフォルトの名無しさん
2007/06/03(日) 18:25:59$j =~ tr/０-９ａ-ｚＡ-Ｚ/0-9a-zA-Z/;
じゃダメなん？
5.8.4で文字列はutf-8なんだけど。
0851デフォルトの名無しさん
2007/06/03(日) 18:42:50use utf8 した上でなら、それでいいんじゃね? 確かめてないけど。
0853デフォルトの名無しさん
2007/06/03(日) 19:13:390854デフォルトの名無しさん
2007/06/03(日) 19:15:52スクリプトのソースや$jに入っているcharsetが何かがわかんないと答えようがないわな。
0855850
2007/06/03(日) 19:28:12入力と出力をprintして見比べてるけどマズかった？
■ このスレッドは過去ログ倉庫に格納されています