- 1 名前：デフォルトの名無しさん mailto:sage [2009/02/09(月) 21:17:36 ]
- "The duct tape of the Internet" こと、Perl についての質問箱です。
"There's more than one way to do it" ということで、
Perl の奥深さについて皆で語り合い、追求してまいりましょう。
CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perlの区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: pc11.2ch.net/php/)
CGI の質問は答えが Perl と全然関係ない話に帰着する場合が
多かったりするので WEB プログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
www.perl.org/get.html
● 2009/02/09 現在の最新版: 5.10.0
▼ 前スレ
Perlについての質問箱 38箱目
pc11.2ch.net/test/read.cgi/tech/1221967332/
リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4
過去スレは >>5-6 あたり
- 101 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 12:51:19 ]
- >>100
手元で検証してみたが、サーバ側のバグかもしれない
IDパラメータの「@」が「%40」にエンコードされていると認証に失敗した
- 102 名前：101 mailto:sage [2009/02/22(日) 12:58:44 ]
- さっきのレスがわかりにくいかもしれないので…
futen.cgiに渡すパラメータは通常
ID=mail@domain.jp&PASS=password
って風になるんだけど、これが
ID=mail%40domain.jp&PASS=password
という風に渡すと、なぜか認証に失敗する。
本来は後者でも%40が@にデコードされた結果、認証が成功していないといけないのだが…
あ、>>100のコードでおかしいところ発見。
my $req = POST($url,[%form]);
↓
my $req = POST($url,\%form);
- 103 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 13:12:46 ]
- >>102
・エンコードしない。
・[%form]→\%formに修正。
再度実行してみましたけど、認証に失敗・・・orz
- 104 名前：101 mailto:sage [2009/02/22(日) 13:20:31 BE:1092302674-2BP(1)]
- >>103
いや、プログラムが間違ってるわけじゃなくて、サーバ側の実装がおかしいんです。
で、一応の回避策ですが、
\%form
↓
Content => "ID=$id&PW=$pw"
に修正すればうまくいくかと思います。
P.S.
サーバ側のバグについて
qb5.2ch.net/test/read.cgi/operate/1225876082/591
にて問い合わせています
- 105 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 14:11:11 ]
- お～っ、勃ってる。
辛抱強く DAT 落ちしたログ持って待ってた甲斐があった。
…単なるログコレクターみたいなもんなんだけど…。
- 106 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 19:02:42 BE:318384566-PLT(54324)]
- 大昔から知られてる問題
- 107 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 19:48:03 ]
- ↑
すぐそういうことを言う・・・
たまたま知ってたから自慢したいだけやろ。
- 108 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 20:13:00 ]
- >>107
そういう風に嫉妬むきだしの解釈するのは感心しませんね。
>>106さんは、自分がたまたま読んでいなかったばかりに、素早く問題点を
指摘してあなたがたに無駄働きさせないことが出来なくてすいませんと
言いたかったんですよ。
- 109 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 20:18:33 ]
- 後出しジャンケンみっともない
- 110 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 22:12:06 ]
- >>104
解決しました。
ありがとうございました。
- 111 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 22:36:02 ]
- 仮想配列の中に'abc'が存在するかどうか確認する方法はありますか？
- 112 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 22:40:11 ]
- exists
- 113 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 22:40:20 ]
- 仮想配列って何ですか
- 114 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 22:40:39 ]
- 「仮想配列」
- 115 名前：デフォルトの名無しさん mailto:sage [2009/02/22(日) 23:51:08 ]
- 先っぽの皮が半分だけ剥けてるヤツだろ。
手で引っぱって全部剥けるなら心配いらん。
- 116 名前：デフォルトの名無しさん mailto:sage [2009/02/23(月) 03:18:46 ]
- >>106
＞switch.layer3.asia が稼動してる際に SNMPv2c の一般的な読み取りコミュニティ名で
＞リクエストを送ると、どこかのツリーの下に私の携帯電話番号が現れますよ
layer3.asia/
痛いｗ
- 117 名前：デフォルトの名無しさん [2009/02/24(火) 03:02:56 ]
- perlに限った事じゃないかも知れない(前置き)
klassというのをたまに見掛けるけど、これはどういった意図で使ってるの?
ある程度の頻度で見掛けるので、一定の合意があるのかと思って聞いてみました。
- 118 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 03:29:04 ]
- classが予約語の言語でclassの類似物を作った場合とか
funktionなんてのもよく見るね
- 119 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 13:22:48 ]
- フォームから読み出したデータを処理したいのです。
読み出したデータの名前はa1からa10までで、それを$a1から$a10に入れたいのですが、
$form = new CGI;
$a1 = $form -> param('a1');
$a2 = $form -> param('a2');
…と、a10まで順番に書いていかなければならないんでしょうか。
すっきりした書き方があれば、教えて下さい。
- 120 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 13:25:44 ]
- >>119
そもそも変数名に通し番号をつけるセンスをなんとかすべきだな。
配列使えよ。
- 121 名前：デフォルトの名無しさん [2009/02/24(火) 13:32:09 ]
- $form = new CGI;
foreach(0..10){push(@a, $form->param('a' . $_))}
でいいんじゃね？ゼロからだけど@aの添え字にあわせるため。
- 122 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 14:00:14 ]
- >>119
${"a$_"} = $form->param("a$_") for 1..10;
- 123 名前：デフォルトの名無しさん [2009/02/24(火) 14:13:51 ]
- 変態が好きなら0-9にしようぜ
push(@a,$form->param($_))for a0..a9;
- 124 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 14:23:55 ]
- というか、パラメタにつく数字は２桁超えるならa00-a10と言う風に桁をそろえようぜ。
ソートする時とか上のような技法が使えないから。
- 125 名前：119 mailto:sage [2009/02/24(火) 14:41:12 ]
- >>120-124
配列なんて考えもしませんでした…思いついたところで、
今度は「配列に入れたいんですが」と泣きついていたように思いますが。
桁数にも気をつけます。
ありがとうございました。
- 126 名前：デフォルトの名無しさん [2009/02/24(火) 14:45:13 ]
- >>124
ラマ本は買った？
www.amazon.co.jp/dp/4900900818
昔のラマ本の方が分かりやすかったな・・・。
- 127 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 14:45:31 ]
- >>125
- 128 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 14:47:47 ]
- さらにごめん。さっきの中古本だった。３版になってるのね。
www.amazon.co.jp/dp/4873111269
- 129 名前：デフォルトの名無しさん [2009/02/24(火) 17:06:30 ]
- BigFloatで以下などが正確に計算出来ないのですが、何故なのでしょうか？
print Math::BigFloat->new('436611485')->fdiv('2074', 3)->bstr, "\n";
# 211000 と表示されてしまう
- 130 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 17:24:37 ]
- つprint Math::BigFloat->new('436611485')->bdiv('2074')->bstr, "\n";
fdivじゃなくてbdivだよな。bdivの二番目の引数は精度だから精度３桁で計算合ってるよ。
- 131 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 18:44:14 ]
- jcode(ver 2.7) で誰か知ってたらおしえてください。
utf8の文字列（フラグ付き）で、 'あ' という文字を 650字程度より
多い状態で、sjis に変換すると 途中から、????? と文字化けします。
Jcode.pm ってバイト数の制限があるのでしょうか。
どなたか知っていたら教えてください。
- 132 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 18:54:10 ]
- >>131
とりあえずざっと目通した？
search.cpan.org/~dankogai/Jcode-2.07/Jcode.pm
search.cpan.org/~dankogai/Encode-2.31/Encode.pm
- 133 名前：デフォルトの名無しさん [2009/02/24(火) 23:21:18 ]
- Perlの実行エラー時に、エラーの発生したファイル名と行番号が表示されますが、
それに加えて、呼び出し元（さらに呼び出し元の呼び出し元なども）の関数を表示できるような機能ってありますか？
&aaa();
sub aaa{ &bbb(); }
sub bbb{ &ccc(); }
sub ccc{ &ddd(); } #ここでエラー
たとえば、上のようなプログラムで、関数 ddd が定義されていないとき、
「Undefined subroutine &main::ddd called at test.pl line XX.」というエラーが出ますが、
このエラーの呼び出し元が bbb でさらにその呼び出し元が aaa であることが
エラーメッセージで表示されると助かります。
- 134 名前：デフォルトの名無しさん [2009/02/24(火) 23:52:07 ]
- anond.hatelabo.jp/20080822142610
ここにプログラムがありますが、これを実行するために
1.必要なもの
2.(1.)が揃ったらやること
をざっと教えてください。
- 135 名前：デフォルトの名無しさん mailto:sage [2009/02/24(火) 23:57:57 ]
- >133
自前でエラー出すなら perldoc carp 参照。
そうじゃなきゃ、perl -d hoge.pl でデバッガ上で実行すれば？
- 136 名前：デフォルトの名無しさん mailto:sage [2009/02/25(水) 00:06:54 ]
- >>134
増田に聞けば？
はてなでもいいけど
とりあえず自分がどこまで理解しているのかくらいは書けよ
環境とか
- 137 名前：デフォルトの名無しさん [2009/02/25(水) 00:13:10 ]
- >>136
すんません
プログラミング経験はありません
環境はwindows vistaです
- 138 名前：デフォルトの名無しさん mailto:sage [2009/02/25(水) 00:26:05 ]
- >>134
> anond.hatelabo.jp/20080822142610
> ここにプログラムがありますが、これを実行するために
> 1.必要なもの
それを実行するために何が必要で、何をやればいいのかがわかるだけの知識。
- 139 名前：デフォルトの名無しさん mailto:sage [2009/02/25(水) 00:26:18 ]
- >>136
それ書けば質問に答えられるのか？
- 140 名前：デフォルトの名無しさん [2009/02/25(水) 00:31:02 ]
- >>138
その知識を分けてください
>>139
もしかしたら>>134の1,2,の回答だけじゃ俺には無理かもしれないけど
最低限それだけあれば頑張れそうな気がする
要するにエロい思いしたいからです。
- 141 名前：デフォルトの名無しさん mailto:sage [2009/02/25(水) 00:32:54 ]
- えっちなのはいけないと思います。
- 142 名前：デフォルトの名無しさん mailto:sage [2009/02/25(水) 00:33:20 ]
- 正直者め
- 143 名前：デフォルトの名無しさん mailto:sage [2009/02/25(水) 03:22:27 ]
- >>140
ここ見て、知らない単語はぐぐれ。
ttp://www.moongift.jp/2008/06/strawberry_perl/
英語読めるなら
ttp://win32.perl.org/wiki/
- 144 名前：デフォルトの名無しさん mailto:sage [2009/02/25(水) 13:44:59 ]
- >>140
プログラミング自体が初めてなら、こうゆう本から始めたほうがいいかもな。
books.livedoor.com/item/379362
Perlとは何か、プログラムとは何か、というところから始まってるから。
ただ、オレ自身はこの本を読んだことはないが。
- 145 名前：デフォルトの名無しさん mailto:sage [2009/02/25(水) 19:34:10 ]
- ワラタｗ何という見当外れな回答
その上、読んでない本すすめてるし
ちょっと興味もって調べたら著者はこぼら
- 146 名前：デフォルトの名無しさん mailto:sage [2009/02/25(水) 23:35:21 ]
- 4Uは、Gigazineの記事を読んだだけでスルーしてたけど、二次元版も出来てたんだな
さっそく登録した
- 147 名前：デフォルトの名無しさん [2009/02/26(木) 06:13:13 ]
- Sort::Fields - 区切られたフィールドを持つ行のソート
fleur.hio.jp/perldoc/mix/Fields.ja.html
フィールドソートをしたいのですが、
use Sort::Fields;
これを書くとエラーになります。インストール先ディレクトリをみると
sort.pmやfields.pmがperl本体と同じディレクトリに置かれています。
本来は perl本体のディレクトリ直下から /sort/の下に存在するべき物でしょうか？
インストール場所が悪いと手直しをお客に依頼する必要があるのですが、
作業は大変でしょうか？
環境はlinux Red Hatなのでsortで頑張った方が良いですか？
sort に詳しくありません。
- 148 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 06:21:09 ]
- 「エラーになります」
大爆笑
- 149 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 06:59:30 ]
- ぞっとした
- 150 名前：デフォルトの名無しさん [2009/02/26(木) 09:21:40 ]
- みんなで仲良くね
- 151 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 10:15:42 ]
- >>147
確かにuse Sort::Fieldsがアクセスするのは"[モジュールの検索パス]/Sort/Fields.pm"(大文字小文字の区別有り)だと思うけど、
なんかファイル名が小文字でperl本体と同居してるとかなってるなら
もはやカオスとしか言いようが無い。
CPAN行ってインストールをやり直した方がマシじゃね。
もちろん、使うコマンドは"perl -MCPAN -e shell"で。
- 152 名前：デフォルトの名無しさん [2009/02/26(木) 10:27:07 ]
- sortで出来るかどうかもわからないなら、もはやらくだ本からやり直してもらうしかない。
第三フィールドでソートしたいとかなら配列の配列使えば出来るよ。
- 153 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 10:46:46 ]
- >>151
バカに引っ張られて自分もバカになるなよ。
- 154 名前：デフォルトの名無しさん [2009/02/26(木) 13:04:39 ]
- 正規表現スレとどっちかと思ったんですが、perlで組んでいるので
ひとまずこっちに質問させてください。
XMLっぽいタグを解析してるんですが、
<AAA BBB=CCC>
にマッチさせるのに
/<.*?>/
と書いています。一応これでマッチするのですが、CCCに例えば
<AAA BBB="XXX>=YYY">
のような大小比較式がダブルクオートで囲まれて入っている場合があって、
このときは上の書き方だと
<AAA BBB="XXX>
にマッチしてしまいます。ダブルクオート内を無視して<～>にマッチさせる
にはどう書けば良いのでしょうか？
よろしくお願いします。
- 155 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 13:17:12 ]
- 誰かがゴリゴリ書いてるだろうと想像して傍観。"....\"...."とかは許されるんだっけ？
- 156 名前：デフォルトの名無しさん mailto:sage [2009/02/26(木) 13:21:26 ]
- XML タグ 正規表現
でググったら変態正規表現がけっこうヒットするな。
- 157 名前：154 mailto:sage [2009/02/26(木) 13:34:51 ]
- ども
- 158 名前：デフォルトの名無しさん [2009/02/26(木) 17:04:37 ]
- 誰もゴリゴリ書かなかったな。
/(<[^>"]*?(?:(?:".*?){2}|)>)/
- 159 名前：147 mailto:sage [2009/02/26(木) 22:26:27 ]
- >>151
＞use Sort::Fields
＞"[モジュールの検索パス]/Sort/Fields.pm"(大文字小文字の区別有り)
やっぱりそうでしたか。
エラーにはperlのインストール環境と思われるパスが出力されました。
＞なんかファイル名が小文字でperl本体と同居してる
今日も確認しましたが、小文字でperl本体と同居になっていました。
お客の環境を使っているので、指摘や説明をするのが大変なので諦めます。
有り難うございました。
- 160 名前：デフォルトの名無しさん mailto:sage [2009/02/27(金) 07:35:19 ]
- 全力でスルーしてたが…
sort.pm, fields.pm => pragma
Sort::Fields => 外部モジュール
「人間はタマゴから生まれる」レベルの気違い理論を展開してる事に気付け。
- 161 名前：デフォルトの名無しさん mailto:sage [2009/02/27(金) 07:40:21 ]
- よくそれで仕事にしてるよな・・・。
- 162 名前：デフォルトの名無しさん mailto:sage [2009/02/27(金) 07:58:04 ]
- がまんしてスルーして
- 163 名前：デフォルトの名無しさん mailto:sage [2009/02/27(金) 11:24:32 ]
- Windows 2000 / XPでは$SIG{'QUIT'}を設定することで、Windowsのシャットダウン時に
終了処理ができたんですが、Vistaでは終了処理が実行されずに、問答無用で停止し
ているようです。Vistaで終了処理を実行するヒント等、ありますでしょうか？
ActivePerl 1004で、以下のようなスクリプトでテストしています。
$SIG{INT} = $SIG{HUP} = $SIG{TERM} = $SIG{KILL} = $SIG{QUIT} =
sub {
# 終了処理
}
while (1){
print "a";
sleep 1;
}
- 164 名前：デフォルトの名無しさん mailto:sage [2009/02/27(金) 17:07:51 ]
- ループでひとつの配列を使いまわしているのですが、次のループ時も前のループのときの配列のデータが残っていて都合が悪いです
配列を空っぽにする方法はありますか？
- 165 名前：デフォルトの名無しさん mailto:sage [2009/02/27(金) 17:13:02 ]
- >>164
@a = ();
- 166 名前：164 mailto:sage [2009/02/27(金) 17:31:23 ]
- ありがとうございました
うまく空っぽにすることができました
- 167 名前：デフォルトの名無しさん mailto:sage [2009/02/27(金) 17:35:31 ]
- >>166
できれば仕組みも理解してね。応用利くから。
- 168 名前：デフォルトの名無しさん [2009/02/28(土) 23:31:59 ]
- 複数のテキストファイルから1行目だけを抜き出すスクリプトって
かけないでしょうか。
- 169 名前：デフォルトの名無しさん mailto:sage [2009/02/28(土) 23:37:29 ]
- >>168
#!/usr/bin/perl
foreach my $fn (@ARGV){
open my $fp, "<", $fn;
print scalar(<$fp>);
}
- 170 名前：デフォルトの名無しさん mailto:sage [2009/02/28(土) 23:39:31 ]
- >>168
書けるよ
- 171 名前：デフォルトの名無しさん mailto:sage [2009/02/28(土) 23:43:38 ]
- >>169が回答出してるのに「書けるよ」と自慢げに一行レスする>>170
- 172 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 00:10:02 ]
- >>168
書けるよ
- 173 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 00:10:14 ]
- >>171
いやん
- 174 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 00:11:00 ]
- ところで、headコマンドつかっちゃダメなの？pure perlでやらなくちゃダメなの？
- 175 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 00:21:22 ]
- >>169
まだ冗長だね。
#!/usr/bin/perl
while(<>){
print $_;
close(ARGV);
}
- 176 名前： ◆TWARamEjuA mailto:sage [2009/03/01(日) 00:30:41 BE:2723055-BRZ(10000)]
- え？
- 177 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 00:40:57 ]
- PERLっていくら学んでも知らない書き方が出てくるな・・ｗ
>>175
close(ARGV)ってclose($ARGV)やclose(@ARGV)とはどう違うん？
とりあえず、printの後の$_は省略出来るぜ
- 178 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 00:45:08 ]
- >>175
おお、㌧＞printの後の$_
close(ARGV)はコマンドラインで指定されたファイルのうち今開いてるファイルを閉じる。
次の<>では次のファイルを開く。
- 179 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 00:52:04 ]
- #!/usr/bin/perl -n
print ;
close ARGV;
- 180 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 01:17:03 ]
- % perl -ne 'print;close ARGV'
- 181 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 01:23:46 ]
- perl -pe 'close ARGV' *
- 182 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 01:32:22 ]
- perl -pe'close ARGV' *
- 183 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 01:57:48 ]
- head -n 1 -q *
- 184 名前：デフォルトの名無しさん [2009/03/01(日) 08:33:59 ]
- #!/usr/local/bin/radin;
print $musabetsutero;
- 185 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 10:38:53 ]
- >>184
いつのネタだよ。ったく。
- 186 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 10:42:21 ]
- >>181
先にcloseしちゃうからダメじゃん。
- 187 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 11:04:56 ]
- >>186
closeする前に1行分が読み込まれてるから大丈夫。
- 188 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 11:13:47 ]
- >>187
あ、そか。さんくす。
- 189 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 12:05:50 ]
- 日本語でおk
- 190 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 12:12:36 ]
- openで開くファイル名に使えない文字コードってありますか？
Shift-jisでスクリプトを書いていてShift-jisのファイル名でファイルを作成しようとするとエラーは出ないのですがファイルが作成できません
英数字のファイル名だとファイルが作成できます
- 191 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 12:16:16 ]
- >>190
システムがShift-JISのファイル名に対応してなかったら当然作れない。
あと""で囲むとメタ文字が発動するかもな。
- 192 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 12:28:07 ]
- 使用環境はWindows+ActivePer5.10.0lです
$file = "テスト";
open FH, ">$file"; →失敗
open FH, '>$file'; →書き込めるが当然変数展開がされない
open FH, ">テスト"; →成功
open FH, '>テスト'; →成功
ファイル名を変数を使わずに直接記述するとうまくいきました
変数に格納されている文字列の形式がおかしいのかな…
- 193 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 12:35:19 ]
- >>192
調べてないけど、2回""で囲ってるからメタ文字が二度発動してるんだと思われ。
- 194 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 12:37:40 ]
- まあ、Shift_JIS文字列はいかなる場合でもメタ文字に気をつけるのが吉。
ダメ文字という言葉は知っておいた方がいい。
- 195 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 13:24:19 ]
- 時々ファイル名にもIOレイヤみたいな仕組みが欲しくなるね。
- 196 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 13:45:53 ]
- ダメ文字の対処法としてメジャーなのが
$a = '十\';
だと思うが、探すのもメンテも面倒だしなんかイラッとくるから、
$a = <<'EOF';
十
EOF
chop($a);
とするようにしてる。
- 197 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 13:47:50 ]
- つーかそんな面倒なことしなくてもqwで何とかなるような気がしてきた。
昔はqwなかったからその時の流儀をそのまま使ってる。
- 198 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 13:53:03 ]
- あー久しぶりにこのコード書くなと思ったら、最近はUTF-8でコード書いて出力時変換だな。
連投ｽﾏｿ
- 199 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 17:07:13 ]
- >>190-198 のような話題を解決するために
>>4のテンプレがあるのにな。
- 200 名前：190 mailto:sage [2009/03/01(日) 19:41:26 ]
- open ">$file";
ならファイルが作成できるんですが、
open ">$file.txt"にするとだめでした
事前に$file .= ".txt";
で文字結合してもだめでした
- 201 名前：デフォルトの名無しさん mailto:sage [2009/03/01(日) 19:48:27 ]
- file="テスト"なんだよね？
ソースファイルのエンコーディングは何？
もしSJISでなければSJISにしてみては？
|
 |
