Perlコーディング初心者質問スレ Part 39
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/11/27 11:35:03ID:DJwiGeFM【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0175nobodyさん
04/12/06 06:14:11ID:???0177nobodyさん
04/12/06 10:08:16ID:???ファイルが生成されません。
サーバはRedhat9＋Apacheで構成されているようなのですが
環境に依存して生成・書込みが出来ないことがあるのでしょうか。
以下のようなルーチンを使用しています。（パスは合っています。）
use MLDBM qw(DB_File Storable);
sub DbmWrite {
my($data, $filename) = @_;
my(%writehash);
tie %writehash, MLDBM, $ini::path.$filename, O_CREAT|O_RDWR, 0666;
%writehash = (%writehash, %$data);
untie %writehash;
}
0179nobodyさん
04/12/06 12:35:45ID:???# とりあえずお気に入りの一覧ということで
&showdir("C:\/Documents and Settings\/Administrator\/Favorites");
sub showdir {
my($dir) = @_;
opendir(DIR, $dir) || die $!;
my(@files) = readdir(DIR);
closedir(DIR);
foreach (@files){
if($_ ne '.' && $_ ne '..'){
$path = $indir . "/" . $_;
for($i=0; $i<$level; $i++){
print " ";
}
print $_ . ((-d $path) ? "/" : "") . "\n";
if(-d $path){
$level++;
&showdir($path);
}
}
}
$level--;
}
現在はこのように書いているのですが、このように書くとディレクトリやファイルなど関係なく、
名前順でソートされてしまうようです（Win2K SP4 ActivePerl 5.6.1）。
2レスに分けます、
0180nobodyさん
04/12/06 12:36:24ID:???aaa.txt
bbb
bbb.txt
ccc
ccc.txt
ddd.txt
このように表示されてしまいます。
これを、まずはディレクトリとファイルでソートして、
そこからファイル名でソートさせたいと思っているのですが、
ディレクトリかファイルかでソートするにはどのように記述したらいいでしょうか。
上の例で言いますと、
bbb
bbb.txt
ccc
ccc.txt
aaa.txt
ddd.txt
このような表示順序にしたいと思っています。
0183nobodyさん
04/12/06 13:36:20ID:???0184JAPU
04/12/06 13:51:45ID:???>>171
無関係の文字コードで送ってくるブラウザもあるようなので注意。古い例で恐縮ですが，たとえばBSD/386版Mozilla/3.xではJIS固定で送信していました。
INPUTはHTMLの文字コードで送られるが，HIDDENは別のコードで送られるという実装もあるようです。(何となく内部処理が想像つきますが…)
いまどきの主要なブラウザをターゲットにするのであれば，HTMLの文字コードがそのまま利用されるという仮定でも問題無いようです。
(FYI) HTMLでは送信されるエンコードを指定することができるが，現状まともに利用されてはいない模様。
cf. http://www.w3.org/TR/html401/interact/forms.html#h-17.3
0185nobodyさん
04/12/06 13:54:44ID:???例えば:
my %file_or_dir;
@file_or_dir{@files} = map { (-d "$dir/$_")? 0: 1 } @files;
@files = sort { $file_or_dir{$a} <=> $file_or_dir{$b} || $a cmp $b } @files;
0186JAPU
04/12/06 14:10:52ID:???>>132 で既に回答出てたの気づかずに >>82 用のコード書いてしまったよ… 悔しいのでとりあえず貼り付けておきます。(インデントずれるので http://www.japu.org/tmp/ayumoesort.pl にも置きました…) あ，手抜きなので注意して。
#! /usr/bin/perl -w
# This code is public domain; I never assert any rights.
# This code is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
use strict;
use constant COND_DTYPE_STR => 0;
use constant COND_DTYPE_NUM => 1;
use constant COND_ORDER_ASC => 0;
use constant COND_ORDER_DESC => 1;
MAIN: {
my @data = ("foo,bar,2,3,4",
"foo,bar,3,4,5",
"fog,bar,2,2,2",
"fgh,bar,3,4,2",
"foo,bar,4,5,6");
my @ordered = ayumoesort(\@data,
{dtype => COND_DTYPE_NUM,
order => COND_ORDER_ASC,
keyno => 2},
{dtype => COND_DTYPE_STR,
order => COND_ORDER_DESC,
keyno => 0});
print "$_\n" foreach @ordered
}
# つづく
0187JAPU
04/12/06 14:11:27ID:???# This code is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
sub ayumoesort
{
my $dref = shift;
my @cond = @_;
my @sgn = map { -($_->{order}*2 - 1) } @cond; # ASC: +1, DESC: -1
# Schwartz Transform; cf. Effective Perl or ask Google
# equivalent to:
# @tmp = map { ... } @$dref;
# @tmp = sort { ... } @tmp;
# @$dref = map { ... } @tmp;
@$dref = (map { $_->[-1] }
sort {
foreach my $i (0..$#cond) {
my $r;
if($cond[$i]{dtype} == COND_DTYPE_STR) {
$r = $sgn[$i]*($a->[$i] cmp $b->[$i]) and return $r;
} elsif($cond[$i]{dtype} == COND_DTYPE_NUM) {
$r = $sgn[$i]*($a->[$i] <=> $b->[$i]) and return $r;
} else {
die;
}
}
}
map { my $x = $_;
[(map { (split /,/, $x)[$cond[$_]{keyno}] } (0..$#cond)),
$_] } @$dref);
}
0188nobodyさん
04/12/06 14:14:23ID:???# コードは試してないけど、
まとめてソート
sort { (-d "$dir/$a" <=> -d "$dir/$b") or ($a cmp $b) } @files
ループをディレクトリとファイルに分ける
grep {-d"$dir/$_"}@files
grep {-f"$dir/$_"}@files
>>183
File::Find はソートしてくれないよ。
0189nobodyさん
04/12/06 16:21:10ID:???>>179-180です。<OPTION>で選択するファイル一覧を作っていました。
@files = sort { (-d "$dir/$b" <=> -d "$dir/$a") or ($a cmp $b) } @files; でやりたいことが出来ました。ありがとうございます。
0190nobodyさん
04/12/06 16:57:38ID:kMJjfrXb0191nobodyさん
04/12/06 16:58:07ID:kMJjfrXb0192nobodyさん
04/12/06 17:03:05ID:adgUx9sVほれ。
http://himatsubu.fc2web.com/22/fir/ かなりシュールな心理テストでｵﾓﾛｲ。
0198nobodyさん
04/12/06 22:54:57ID:???正直スマンカッタ
今は反省している
0199nobodyさん
04/12/06 23:45:58ID:PVGalzLMSocketにより他サーバーから読み込み表示させるのとでは
どの程度サーバー負荷は高まるものなのでしょうか？
0200nobodyさん
04/12/07 00:27:16ID:J98ZOjsq実行して・・という風な方法しかないのでしょうか
一度peｒｌでcgiの短いプログラム（５０行ぐらい）を作ったことがあるんですが、
こんな短いのでもバグをとるのにすごく骨を折りました。
0202nobodyさん
04/12/07 00:36:00ID:???二分検索法って知ってるかい？
アルゴリズムってのは、なにもプログラムを組む時にしか使えないものじゃないぞ。
0203nobodyさん
04/12/07 05:39:36ID:???そうか？エラーメッセージを読めばどこが悪いかなんてすぐ分かるが。
まさか500エラーが出なくなるまで闇雲にいじってんじゃないよな？
0204200
04/12/07 15:33:29ID:???文法チェックはブラウザ上でソースを入力するとやってくれる
サイトがあったんで、それを使っていました
（cygwin？がうまくインストールできなかったってのもあります）
コマンドでデバッグをするのと違いはあるんでしょうか
>>202
どんどんせばめていけばいいんですね
>>203
>まさか500エラーが出なくなるまで闇雲にいじってんじゃないよな？
そのとおりです。なんで５００エラーがでるのかが分からなくて
どこも修正してないに、何回も実行してみたりして・・
結局原因のひとつはcgiのファイルのパスをフルパスで書いてたのが
いけなかったんだと思います。ほかにもあったけど少し前なんで忘れてしまった。
0206nobodyさん
04/12/07 15:51:19ID:9tRllW3iきれいなコード書いて公開してる人のＵＲＬ教えてください！
0207nobodyさん
04/12/07 16:09:37ID:???「perl excellent source code」でググった。
ttp://www.perl.com/pub/q/documentation
0208nobodyさん
04/12/07 16:27:59ID:9tRllW3iんーと、コードが載ってませんね。
きれいなコード見て、学びたいので、
そういう感じでお願いします。
0210nobodyさん
04/12/07 17:04:28ID:???0211200
04/12/07 17:38:09ID:???コードはインフォシークの無料HPスペースにアップロードして
実行しています。最終的には動作させることができました。
>Perlいれてローカルで動かせ
意図がわからないのですが、これをするとどんな利点があるんでしょうか？
アップロードして実行するのも慣れてくると短時間でできるので。。。
0213nobodyさん
04/12/07 18:08:01ID:???Perl の吐くエラーメッセージを読める
ひょっとして、Perl が行番号入りでエラーメッセージを吐いてくれる
ということを知らなかったりする?
0214nobodyさん
04/12/07 18:11:19ID:???もし仮に
while (@hoge) {
処理
}
と書こうとして @hoge を $hoge と書き間違い、さらに $hoge に何かしら文字列やら入ってたら
無限ループ作っちゃうでしょう。
それを鯖にUPして実行したら鯖に負荷がかかりっぱなしになる。
鯖が落ちたら君の責任。共有鯖なら鯖会社だけでなく他の鯖利用者にも迷惑がかかる。
ローカルなら君のPCに負担かかる。君だけが被害を受けるが全て君の責任。
どっちがいいよ？
0215nobodyさん
04/12/07 18:29:20ID:Oi1PFFsCフォームから受け取ったメールアドレスが携帯電話のメールアドレスかどうか
を判断したいのですが
$nb = $FORM{mail};
if($nb ne $nb !~ /(.*)\@docomo\.ne\.jp/
and $nb ne $nb !~ /(.*)\@ezweb\.ne\.jp/
and $nb ne $nb !~ /(.*)\@(.*)\.vodafone\.ne\.jp/){
"携帯電話メールアドレスとして処理"
}else{
"携帯電話以外のメールアドレスとして処理"
}
としてみたのですが、どうも上手くいきません。
（何のアドレスを入れても携帯以外のアドレスとして処理されてしまいます。）
何が間違っているかどなたか教えていただけますでしょうか。
よろしくお願いします。
0216215
04/12/07 18:41:14ID:???処理が逆になってました。
（携帯外メルアドでも携帯メルアドでも同じ処理になってしまうので大差ないんですが。）
よろしくお願いします。
0217JAPU
04/12/07 18:44:27ID:???$nb ne $nb !~ /(.*)\@docomo\.ne\.jp/
これを，演算子の優先順位をもとに括ると
$nb ne ($nb !~ /(.*)\@docomo\.ne\.jp/)
ここで，() 内は "" (偽) または "1" (真) を返す。これを $nb と（文字列として）比較しているため，多くの場合はこの式全体として「偽」となる。
これを踏まえて，書き直すと
if($nb =~ /\@docomo\.ne\.jp$/i or $nb =~ /\@ezweb\.ne\.jp$/i or $nb =~ /\@\w+\.vodafone\.ne\.jp$/i) {
# 携帯電話のアドレス
} else {
# NG
}
もしくは，
if($nb =~ /\@(?:docomo\.ne\.jp|ezweb\.ne\.jp|\w+\.vodafone\.ne\.jp)$/i) {
# 携帯電話のアドレス
} else {
# NG
}
入門書は「はじめてのPerl」をおすすめする。
i 修飾子については Perl のマニュアル等で熟知すべし。（「プログラミングPerl」または http://www.perldoc.com/）
0218215
04/12/07 18:56:42ID:???迅速で的確なレスありがとうございました。
希望道理のCGIが実行できました。
入門書や教えていただいたURLにも早速行って勉強します。
本当にありがとうございました。
0219nobodyさん
04/12/07 20:20:42ID:???$nb=~ m!\@(?:docomo|ezweb|vodafone)\.ne\.jp$!i
0220nobodyさん
04/12/07 20:58:48ID:???0221JAPU
04/12/07 21:17:03ID:???「初めてのPerl」が正解。
どうも最近「はじめての」と平仮名で書く習慣が…
# There's more than one way to do it.
0222nobodyさん
04/12/08 04:01:02ID:CFZe8E7O記号ばっかで検索もできない…
0223nobodyさん
04/12/08 07:01:35ID:???@{shift};
ソフトリファレンスと解釈される。
# use warningsで曖昧と指摘される。
@{+shift};
+は変数名に使えないから、@{+shift()}と解釈される。
@{shift()}と等価。
0224nobodyさん
04/12/08 07:14:20ID:???×ソフトリファレンスと解釈される。
○@shiftと解釈される。
0225nobodyさん
04/12/08 10:38:37ID:???@{shift()}または@{shift(@_)}が無難。
0226222
04/12/08 20:32:23ID:???ありがとうございます。
+{ hash_ref } とか {; block } とかと同じような原理だとは思ったんですが、
どうしても探し出せなかったので助かりました。
0227nobodyさん
04/12/08 23:28:15ID:???1： getメソッドで送信されてきた文字列$wordの文字コードを判定して、
utf-8だったらsjisに変換して以後の処理に使いたいです。
2： 使ってるサーバー（arenaのsuite2）がPerl5.6.1です。Perl5.8ならなんとかなりそうだとか、
5.6.1でもjcode.pmが入っていればいけそうだというのはグーグルで発見したんですが、
jcode.plしか入っていないようですhttp://web.arena.ne.jp/suite2/support/manual/hp/script.html#cgi
3： sjis,jis,euc-jpに関しての処理の説明は多く発見できるんですが、jcode.plはutf-8は対応していない？ようです。
本当にちょっとしたことなんですが、jcode.plで色々やってもダメだったです。
jcode.pmをインストールしないと無理でしょうか？
0229nobodyさん
04/12/08 23:38:50ID:???この時点で、まだ何もやってないのに質問してる教えて君ってのが丸出しだな
0230nobodyさん
04/12/09 01:34:56ID:???0231nobodyさん
04/12/09 01:35:08ID:???0232JAPU
04/12/09 03:19:09ID:???Unicode 絡みは XS でかかれていますが，Pure Perl の環境でも動作するよう Jcode::Unicode::NoXS が用意されています。
実際にはユーザが意識することは無く，自動的に Jcode::Unicode or Jcode::Unicode::NoXS が読み込まれるので安心です。
0233nobodyさん
04/12/09 11:37:19ID:???注意しろよ。この辺がまとまってると思う。
ttp://www.debian.or.jp/~kubota/unicode-symbols.html.ja
Jcode.pmはこの辺の問題どう扱ってるんだろうか。$Jcode::Unicode::PEDANTIC
関係以外を除くとマニュアルには
Unicode conversion table used here are based uponon files at
ftp://ftp.unicode.org/Public/MAPPINGS/EASTASIA/JIS/, Copyright (c)
1991-1994 Unicode, Inc.
としか書いてないのでJISの変換表決めうちと読めるけれども。
0234nobodyさん
04/12/09 19:33:11ID:???0236nobodyさん
04/12/09 20:26:49ID:???複数行にわたっており正規表現のやり方がわからなくて困っています。
どのようにしたら、取り出せるでしょうか?
<dl>
<dt>title1
<dd>aaa<br>
bbb
ccc
<dt>title2
<dd>aaa<br>
bbb<br>
ccc
</dl>
0237236
04/12/09 20:30:31ID:???よろしくお願いします。
$i = 0;
while(<>){
if(m/<dt>(*.)$/){
push($dt[$i]);
}
if(m/<dd>(*.)$/){
push($dd[$i]);
}
}
0238nobodyさん
04/12/09 20:58:18ID:???0239236
04/12/09 21:41:05ID:???どのようにすればいいかが浮かばないです...
2個目の<dt>または</dl>がくるまで読み込んで、そこでフラグを
立てて...
すると一組目の<dt><dd>セットまでしか読めないし...
??
0240nobodyさん
04/12/09 21:45:54ID:???push(@{$1}, $2) while m#<(d[td])>((?:(?!<d[td]>|</dl).)+)#gsi;
0241236
04/12/09 22:21:16ID:???ありがとうございます。1行でできるなんて思いませんでした。
<dt>aaa
bbb
ccc
<dd>ddd
eee
fff
となってる場合、行にまたがってる部分、bbb,ccc,eee,fffが取り込まれ
ないようです...
この一行を理解しようと頑張ってみましたがムズカシすぎました。
複数行にわたるのでやっぱりフラグが必要ですかねぇ...
0242nobodyさん
04/12/09 23:14:04ID:???JIS 0208 SJIS CP932 APPLE 0213 IBMGLY IBMIRV JCODE
0x005C ------ U+00A5 U+005C U+00A5 ------ U+00A5 U+005C ------
0x007E ------ U+203E U+007E U+007E ------ U+203E U+007E ------
0x2131 U+FFE3 U+FFE3 U+FFE3 U+FFE3 U+203E U+FFE3 U+FFE3 U+FFE3
0x213D U+2015 U+2015 U+2015 U+2014 U+2014 U+2014 U+2014 U+2015
0x2140 U+005C U+005C U+FF3C U+FF3C U+FF3C U+FF3C U+FF3C U+FF3C
0x2141 U+301C U+301C U+FF5E U+301C U+301C U+301C U+301C U+301C
0x2142 U+2016 U+2016 U+2225 U+2016 U+2016 U+2016 U+2016 U+2016
0x215D U+2212 U+2212 U+FF0D U+2212 U+2212 U+2212 U+2212 U+2212
0x216F U+FFE5 U+FFE5 U+FFE5 U+FFE5 U+00A5 U+FFE5 U+FFE5 U+FFE5
0x2171 U+00A2 U+00A2 U+FFE0 U+00A2 U+00A2 U+FFE0 U+FFE0 U+00A2
0x2172 U+00A3 U+00A3 U+FFE1 U+00A3 U+00A3 U+FFE1 U+FFE1 U+00A3
0x224C U+00AC U+00AC U+FFE2 U+00AC U+00AC U+FFE2 U+FFE2 U+00AC
そのページのスクリプトをいじってテストしてみた。
JIS-0208.TXTをそのまま実装してるみたいだね。
0243nobodyさん
04/12/09 23:26:10ID:???0244nobodyさん
04/12/10 00:28:10ID:???おお、なるほど。ASCIIの範囲はそのままになるように
してる関係で0x2140(＼)を0x5cにしちゃうと、もとから
0x5cだった場合と区別つかなくなって不便だからあえて
変えてるんだろうね。
世の中この変換表だけだったらすっきりしたんだろうけど
なぁ。
0245JAPU
04/12/10 03:47:06ID:???$_ にすべての行を取り込んでいます?
{ local $/ = undef; $_ = <> }
んで，>>240 のスクリプトはシンボリックリファレンス使用しているので，あまり初心者にお勧めできません。
私ならこう書くという例。（考え方はほとんど同じですが。）
while(m{(?:<dt>(.*?)(?=</d[tl]>|<d[td]>)) |
(?:<dd>(.*?)(?=</d[dl]>|<d[td]>))}gixs) {
push @dt, $1 if(defined $1);
push @dd, $2 if(defined $2);
}
それぞれの修飾子についてはマニュアル等にて熟知すべし。
0247nobodyさん
04/12/10 08:58:58ID:???深すぎるけどね。
0248nobodyさん
04/12/10 09:37:21ID:???Perlメモのタグの削除について質問です。
こちらのページでは「$str には HTML文書全体を入れておきます」と書かれていますが、
open (DATA, "<index.html");
@line = <DATA>;
このようにして読み込んだ場合、一行ごとに分けられて配列に入れられますよね。
どのようにして$hensuにHTML全体を格納するのでしょうか。
現状では、HTMLを配列に入れた後で
$data = join ("", @lines);
などとして、一行にまとめているのですが。
0249nobodyさん
04/12/10 09:39:49ID:???local $/;
$data = <IN>;
}
0251nobodyさん
04/12/10 10:05:09ID:???レス感謝です。ファイルハンドルに対してもreadや-sが使えるのですね。
試してみたところ、期待通りの動きをしてくれました。
0252nobodyさん
04/12/10 10:08:09ID:???0253nobodyさん
04/12/10 10:19:42ID:???0254nobodyさん
04/12/10 13:16:03ID:???ＢＢＳに書き込みがあった場合にNet::SMTPでメール送信を行おうと思っているのですが、この場合に使われるモジュールはSMTP.pmですよね。
use Net::SMTP;と書くとエラーで蹴られるので、require "SMTP.pm";と記述しようと思います。
まだコーディング中で実際には動かしていないのですが。SMTP.pmの中を見てみると、
use strict;
use vars qw($VERSION @ISA);
use Socket 1.3;
use Carp;
use IO::Socket;
use Net::Cmd;
use Net::Config;
などと書かれています。これらの全てのuse宣言を取り払ってrequire "******.pm";などと書き換えて、
該当する.pmのファイルをアップしていけば、使えるものなのでしょうか。
0255nobodyさん
04/12/10 13:28:42ID:???そもそもファイルを置けるのなら置いた場所を適切にuse libして
やればあとはそのままいけそうなものだが。それともuse機能自体を
つぶすような改造入ったperlなのか?
0256nobodyさん
04/12/10 13:33:14ID:???鯖変えれ
0257nobodyさん
04/12/10 14:21:04ID:???Net::SMTPに関連する.pm全てそろえてからuse libすればいいんじゃね？
0258nobodyさん
04/12/10 15:01:04ID:???use libとかはプラグマなはずだけど。
lib.pmもなくて使えないとしたら @INC で代用。
pathさえ通せばrequireにする必要ないよ。(requireする場合だとimportも必要)
0259nobodyさん
04/12/10 15:21:53ID:???($a,$b,$c)=@hoge[1,3,5]
とかやってもだめでした
0260nobodyさん
04/12/10 15:45:23ID:???$a=b $b=d $c=f
できるけど?
0261259
04/12/10 16:04:27ID:???($a,$b,$c)=@hoge[0][1,3,5]
ができず
0262nobodyさん
04/12/10 16:17:39ID:tDYU+a6sプロジェクトマネージャが変わった関係で、ソースは全てSJIS
に統一しなければならなくなってしまいました。
今までは、出力はSJISに変換してSJISのページを出し、そこからの
入力はまず全てEUCに変換し、処理を行っていたわけですが、
SJISに変更となると、一見変換処理は必要なくなって楽になるかとも
思えますが、SJIS特有の問題(「表」の文字等の)もあるので、入出力
時にこれだけは必ずやっておけということがあればご教授いただきたい
次第です。
個人的対策としましては、フォームからの入力を全てハッシュに入れる
段階で、今までは $form{name} = 入力値 としていたものを、
$form{name} = quotemeta(入力値) にすることによってなんとかなるん
じゃないかと安易に考えております。
0263nobodyさん
04/12/10 16:45:53ID:???0264nobodyさん
04/12/10 16:57:05ID:???@fuga = qw(a b c d e f);
$hoge[0] = \@fuga;
($a,$b,$c)=@{$hoge[0]}[1,3,5];
print "\$a=$a \$b=$b \$c=$c\n";
$a=b $b=d $c=f
リファレンス、デリファレンスがわかってないだけ
0265259
04/12/10 17:08:40ID:???精進します
0266nobodyさん
04/12/10 17:18:07ID:???入力をquotometaしてもほとんどどうにもならない。ソースコードの中に
出てくる「表」とかがやばい。というあたりを理解してないあたりで、
たぶんはまるだろうな。合掌。
まあperlのソースをSJISにしようというあたりで終わってるので、不運だ
と思ってあきらめなされ。
いっそ5.8以降にしてuse encoding 'Shift_JIS'で内部処理は全部unicode
にするのがいいかも?
0267nobodyさん
04/12/10 17:25:03ID:???0269nobodyさん
04/12/10 21:11:53ID:???それがSJISに起因する問題の根本じゃないし。
0270nobodyさん
04/12/10 21:40:25ID:???0271nobodyさん
04/12/10 22:30:33ID:???正直、問題がある部分個別に対応するってのがFAかと。
一発でこうすりゃ大丈夫なんて解決策があったら、そもそも問題にならない。
そのプロジェクトマネージャーはきっと馬鹿で、PCと同じエンコードにした方が
作業効率が上がると思ってるんだろう。
0272nobodyさん
04/12/10 22:58:04ID:???プロジェクトの敵は文字コードでもなく、バグでもない。
馬鹿なマネージャーの無意味な口出し。
0273nobodyさん
04/12/10 23:05:15ID:???バグと格闘した方が楽だったり...
0274nobodyさん
04/12/10 23:32:53ID:???一生フリーター気分ならそれでもいいだろうけど。
■ このスレッドは過去ログ倉庫に格納されています