トップページ⇒php
1001コメント315KB

Perl 初心者コーナー Part24

■ このスレッドは過去ログ倉庫に格納されています
0001 ◆fBgbHI04bQ 03/06/07 22:30ID:GbQKLcPE
いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。


CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10
0762nobodyさん03/06/22 20:49ID:???
>>760
perlのコーディングと一体何の関係があるのかと。
076375003/06/22 20:50ID:Rv0SCDPi
どなたかおながいします。このコードだけだと問題ない？
0764nobodyさん03/06/22 20:51ID:???
そうですね…perlを使っているので、一気にここ来ちゃいました。
申し訳御座いませんでした。
0765nobodyさん03/06/22 21:09ID:???
>>763
foreach (@TMPSTALIST){
　　$HTMLStaLine .= $_->{lineid} . "/" . $_->{staname};
}

どういう結果が欲しいのかわからんのでこれだけ。
076675003/06/22 21:35ID:a19vkXUc
>>765 長くかくとこんなことしたいんですけどねぇ。。。
　　　　#SELECT始まり！
　　　　$HTMLStaLine .= qq|<select name="staid" size="10" multiple>\n|;
　　　　for ($i=0;$i<=$#GlobalLineidList;$i++){
　　　　　　　　#沿線名表示！
　　　　　　　　$HTMLStaLine .= qq|<option value="">----- $LINE[$GlobalLineidList[$i]]->{linename} -----</option>|;
　　　　　　　　undef @TMPSTALIST;
　　　　　　　　for ($j=0;$j<=$#STA;$j++){
　　　　　　　　　　　　if ($STA[$j]->{lineid} == $GlobalLineidList[$i]){
　　　　　　　　　　　　　　　　push (@TMPSTALIST,$STA[$j]);
　　　　　　　　　　　　}
　　　　　　　　}
　　　　　　　　#seqでソート
　　　　　　　　@TMPSTALIST = sort { (${TMPSTALIST[$a]->{seq}} <=> ${TMPSTALIST[$b]->{seq}}) } 0 .. $#TMPSTALIST;
　　　　　　　　#沿線に属する駅名一覧を表示！
　　　　　　　　foreach (@TMPSTALIST){
　　　　　　　　　　　　$HTMLStaLine .= qq|<option value="|.$TMPSTALIST[$_]->{staid}.qq|">|.$TMPSTALIST[$_]->{staname}.qq|</option>\n|;
　　　　　　　　}
　　　　}
　　　　#SELECT終わり！
　　　　$HTMLStaLine .=qq|</select>\n|;
0767nobodyさん03/06/22 21:49ID:???
>>766
いや、あのさ、間違ったソースを晒されても「何がしたいのか」は分からないんだが……
0768nobodyさん03/06/22 21:59ID:???
>759
丁寧な説明有難うございます。
調子にのてもう一つお聞きしたいのですが、
リファレンスを受け取った側で、undefすると
呼び出し元もクリアされるのでしょうか？^^;

$var = hoge();
print $$var;　　# うんこ
undef($var); <- hogeの$abcは要らないのでクリアしたい

その後の処理…

sub hoge {
　　my $abc = 'うんこ';
　　return \$abc;
}

sub { return \%dekai_data; }
大きな値とか返した場合、クリアする必要はあるでしょうか
076975003/06/22 23:46ID:MaT7PvCU
>>767

用は、
$STA[$i]->{lineid}
$STA[$i]->{staname}
($iには0から10くらい入ってる）なのに、
　push (@TMPSTALIST,$STA[$j]);
すると、
$STA[$i]->{lineid}
は値が入ってるのに、
$TMPSTALIST[$i]->{lineid}
には値が入ってないのです。
pushした直後でも。。。
0770-03/06/22 23:48ID:pFJThKfu
成功者になりたい人は読んでください！
「クーポン屋の仕事は簡単！」
「ＨＰにバナーを貼ればＯＫ！」
「年商３０００万円も夢じゃない！」
「あなたの努力次第です。」
http://www.c-gmf.com/index1.htm
077175003/06/22 23:53ID:???
すいません、
@TMP = sort { (${TMPSTALIST[$a]->{seq}} <=> ${TMPSTALIST[$b]->{seq}}) } 0 .. $#TMPSTALIST;
とやるところを、
@TMPSTALIST; = sort { (${TMPSTALIST[$a]->{seq}} <=> ${TMPSTALIST[$b]->{seq}}) } 0 .. $#TMPSTALIST;
とやっていたのが原因でした。

$TMPSTALIST[$i]->{lineid}には値がちゃんと入っていたようです。
0772nobodyさん03/06/23 01:40ID:8VAV54DK
どうしても解決出来ず、同じ質問を2度することになってしまいました。
どなたかお助けください。
1：Perlからサムネイル(縮小)画像を作りたいです。
2：GDやPerlMagickなどがあることを知り、使おうと考えました。
3：私の使っているサーバにはインストールされていません。

・インストール無しで使える、画像縮小のモジュール
・画像を縮小するための具体的なアルゴリズム
・インストールが必要なGD,PerlMagickモジュールの改造方法
のような情報を求めています。
(jpeg/png/gifなどについて行いたいです。(1つしか出来なくても構いません))

色々調べてはいるのですが、GD,PerlMagickのものばかりで
良い情報が見つけることが出来ませんでした。何卒、よろしくお願いします。
0773nobodyさん03/06/23 02:07ID:???
>>772
いや、もう無理だって答えでてるでしょ？
自分で作る気がないなら何度質問しても無駄。
むしろ、君がインストールしないで使えるﾓﾉを作って公開する方が良い。
0774_03/06/23 02:09ID:???
http://homepage.mac.com/hiroyuki44/
0775nobodyさん03/06/23 02:13ID:???
＞・インストールが必要なGD,PerlMagickモジュールの改造方法のような情報を求めています。
要するに自分で画像処理をすれば良い。
ttp://www.st.rim.or.jp/~syamaura/gifanime/gifabout/gifabout.html
こういう感じのページ探して、自前でやるとよろし。
＃ファイルフォーマットをまとめたページ（英語）がどっかにあったのだけど、
＃URL失念してるので貼れない。ｽﾏｿ。

多分この先はスレ違いになるのでプログラム板等に移動した方が良い。
＃が、今画像処理スレはない
0776nobodyさん03/06/23 02:41ID:???
>772
自分はロリポップでIMAGE::MAGICKを使い、デジカメ写真を画面大、
200ピクセルくらい、80ピクセルくらいの3つに一気に縮小している。

その時、ローカルサーバーにIもMAGE::MAGICKをインストールし、
ロリポップが檄重のときはローカルで縮小し、サーバーに上げるルーチンも作ったけど、
その方法も一案では。
ローカルサーバーへのインストールは
http://yassu.no-ip.com/linux/httpd.htm
などを参照。
0777nobodyさん03/06/23 11:54ID:???
>>772
>>776
ああ、そうか。ローカルに入れれば何の問題もないよな。
よかったな、>>772, >>687
これでモジュールを入れられないとかいう泣き言を言わなくてよくなったぞ。
0778nobodyさん03/06/23 11:55ID:???
1秒毎に.を出力するﾌﾟﾛｸﾞﾗﾑが動きません。
perl -e '$cnt = 100; while($cnt > 0) {sleep 1; print "."; $cnt--;}'
どこがいけないのでしょうか。
0779nobodyさん03/06/23 12:20ID:QgEnyxPf
昨日からPerlに挑戦中の者です。
手始めにPerlで書かれた簡易チャットのソースをコピーして使っています。
微妙にｽﾚの趣旨と違うかもしれませんが、どうか教えて下さい。

ﾁｬｯﾄの発言内容を書き込んでｻﾌﾞﾐｯﾄﾎﾞﾀﾝを押した時、その内容をcgiファイルに送る。
その後、発言内容のﾃｷｽﾄﾎﾞｯｸｽを空にしたいのです。
ｼﾞｬﾊﾞｽｸﾘﾌﾟﾄでｻﾌﾞﾐｯﾄﾎﾞﾀﾝにonClickを付けてﾌｧﾝｸｼｮﾝを呼び出し、
そのﾌｧﾝｸｼｮﾝ内に発言内容のﾃｷｽﾄﾎﾞｯｸｽのvalueをnullにする仕様にしたら、
チャットのログ部分に「null」とそのまま出てしまいました。

どなたか解決策をお願いします。


0780nobodyさん03/06/23 12:28ID:???
>>778
「動きません」じゃ分からん。
どう動かないのか（エラーが出る、フリーズする、こういう結果がほしいのにこうなってしまう等）を
必ず書くこと。

>>779
微妙にどころか、まるっきりスレ違いというか板違い。
0781nobodyさん03/06/23 12:40ID:???
>>780
動かないって言えば分かるだろ、出力がない。
ﾌﾟﾛｸﾞﾗﾑが終わらない。うんともすんとも言わない。
0782nobodyさん03/06/23 12:41ID:???
>>780
ところでちみは、相当の厨だな。フリーズだって（藁
0783nobodyさん03/06/23 13:01ID:???
>781
>780ではないが、この初心者スレでは、それ以外の場合でも「動かない」と表現する奴がいる。
というか多い。
それくらいわかるだろ。

バッファリングを止めても変わらないか？
0784nobodyさん03/06/23 13:24ID:???
俺も一発でバッファリングのせいだと分かったけど・・・
0785nobodyさん03/06/23 13:28ID:???
「動かない」って言ってるんだから、1００秒待っても動かないんじゃねーの？(ﾜﾗ
0786nobodyさん03/06/23 13:46ID:???
>>783, >>784
ありがとう。
$| = 1;
を入れたら無事出力できました。
0787nobodyさん03/06/23 16:14ID:???
Perlで掲示板を作っています

スクリプトの最初の方で

if ($mode eq 'regist') { ®ist; }
elsif ($mode eq 'find') { &find; }
　　　　　　　　　：

とズラズラ書き並べるのはカッコ悪いのですが
何か恰好良い方法はありませんか?
0788nobodyさん03/06/23 16:19ID:???
>>787
カッコワルイって･･･。
ｻﾌﾞﾙｰﾁﾝを上に書けば？
078978703/06/23 16:29ID:???
すいません言葉が足りませんでした。
use CGI;
$q = new CGI;
$mode = $q -> param('mode');

とかしますよね。でもサブルーチン使ったとしても
どこかに
> if ($mode eq 'regist') { ®ist; }
> elsif ($mode eq 'find') { &find; }
> 　　　　　　　　　：
みたいのはどこかに絶対あるわけで
これがなんとかならないかな とか

SWITCH:
{
if ($mode eq = "regist" ) (®ist;last SWITCH)
if ($mode eq = "find" ) (&find;last SWITCH)
　　　　　　　　　：
}
こうやれば多少はましかな‥
でもズラズラ書くのは変わらないので恰好良くないな とか。
0790nobodyさん03/06/23 16:36ID:???
ずらずら書いたらダメなのかよっ！
0791nobodyさん03/06/23 16:38ID:???
>>789
eq = てなんどい。
Perlにかっこよさを求めるのはおろかな気が。


ｻﾌﾞﾙｰﾁﾝごとに分けずに、
if($mode eq 'assa'){
　　　処理
　　　処理
}
ってしたら？醜いけど。
0792nobodyさん03/06/23 16:40ID:???
>>789
他に方法はあるか？
ハッシュで関数テーブルみたいなものをつくるか？
それでも初期化時にずらずらと書くことになるけど。
0793nobodyさん03/06/23 16:41ID:???
>787
こうすると一つで済むよ。
eval(&$mode);

このｽｸﾘﾌﾟﾄ(?)の指摘禁止ね :-)
079478703/06/23 16:42ID:???
そうですね。
>Perlにかっこよさを求めるのはおろかな気が。
これが全てですね。 適当に実装しますです。
0795nobodyさん03/06/23 17:20ID:vdloYxxu
DBMってtieでﾊｯｼｭに関連付けた時点で、すべて読み込まれて、メモリにはいるんですか？
0796nobodyさん03/06/23 18:25ID:???
>>795
はいる。
メモリーキャッシュにまるごと入るからこそ早いとも言える。
0797nobodyさん03/06/23 18:44ID:???
>>796　ｻﾝｸｽ
200kb位あるのを、丸まま読み込んだらまずいですかね。
CGI利用です。
0798nobodyさん03/06/23 18:51ID:???
>>797
やってみろよ
メモリがどれだけ割り当てられているか、残りはどれぐらいかなんて
環境次第なんだから
0799nobodyさん03/06/23 19:03ID:???
>>798
ﾛｰｶﾙでは問題ないんですが、共有鯖だとどうかな、と。
まぁ、あげてみて試してみます。
同じことをテキスト保存でやったら、ファイルサイズは20㌔くらいなんですが、遅い。
どうしようか･･･。
0800nobodyさん03/06/23 19:11ID:???
>>795 かわいそうに、、、、まんまと騙されてるね。
通常、索引編成ファイルのキーや値は、任意でないかぎりメモリに入る事はないよ。
Perlだと、確かにDBMファイルとの接続速度は遅いけど、データは読込んでないから、大丈夫。
796とか798の言ってることは相手にすんな。
0801nobodyさん03/06/23 21:03ID:???
>>800
へ～
物　知　り　で　す　ね
0802nobodyさん03/06/23 22:02ID:???
>>801
間違いを指摘されたからってそうムキになるなよ。
0803nobodyさん03/06/23 23:34ID:???
>>787
Perlでswtich文使えたらいいなー、って思うことしきり。
0804nobodyさん 03/06/23 23:46ID:???
>>787
リファレンスと配列を使うとか、無名のサブルーチンで、ハッシュを使うとか書き方あると思うけどねィ・・・

んで、カッコいいよりも見やすい記述を心がけるべきだと思ったり・・・
0805nobodyさん03/06/23 23:59ID:???
>>803
だね。switchあるだろ、とか思ってリファレンス見直して 無いことに気付いたｗ
080680303/06/24 00:16ID:???
>>805
同じことしてるなｗ
0807nobodyさん03/06/24 00:20ID:???
まあ、switch無くても、
if
elsif
elsif
elsif
で処理速度は落ちないんだけど、見た目が、、、
0808nobodyさん03/06/24 00:26ID:???
>>807
見た目を気にするならSwitchもどき使えばいいんであ？
ttp://tech-web.net/perlmania/perlsyn3.html
0809nobodyさん03/06/24 00:41ID:???
>>808
ちょっと冗長すぎて、それならまだif elseのほうが・・・
swtich使いたいのは、見た目がスッキリするからなので
0810nobodyさん03/06/24 00:41ID:???
うーん、その他の方法も見た目が良いとは言えないな
0811nobodyさん03/06/24 03:06ID:???
ある変数$Aの先頭2バイトを$Bへ代入し、$Aには先頭2バイトの次からが残る。

単純な質問かもしれませんが、どうか教えてください。キーワードが考え付かず、
ググっても見つけられませんでした。(←力不足っす。。)
0812nobodyさん03/06/24 03:31ID:???
>>811
TMTOWTDI.

# substr
($A, $B) = (substr($A, 2), substr($A, 0, 2));

# unpack
($B, $A) = unpack 'A2A*', $A;

# 置換1
$A =~ s/^(..)//;
$B = $1;

# 置換2
$A =~ s/^(..)/($B = $1, '')[1]/e;

# 回りくどい方法
@tmp = split //, $A;
$B = join '', splice @tmp, 0, 2;
$A = join '', @tmp;
0813nobodyさん03/06/24 03:31ID:???

s/^(.{2})//;
$1;

こんなんじゃダメかね、ダメだね。文字だもんね。
あんたのやろうとしてることは、関数で出来るよきっと。
普段そうゆう処理しないから名前は知らんけど。
どっかのサイトの関数一覧をどうぞ。
上の正規表現で十分ならそちらをどうぞ。
08145203/06/24 03:37ID:???
ありがと～～～～～～
# unpack
($B, $A) = unpack 'A2A*', $A;
コレ使わせてもらいました。
0815nobodyさん03/06/24 04:16ID:???
記憶があいまいだけど、5.?に無かったっけ？＜Switch
0816nobodyさん03/06/24 05:14ID:???
>>812>>813
変態的にすごいな。
そういうのは一瞬で浮かぶんでしょうか？
0817nobodyさん03/06/24 06:44ID:???
浮かぶもんだよ。
アルゴリズムを見れば、どの関数を使うべきか直感的に分かるから。
たくさんコードを書いてると自然に身についてくる。
0818nobodyさん03/06/24 07:03ID:???
みんな変数名やサブルーチンの名前付けるときってどうしてる？
分かりやすい名前付けた方が後々分かりやすいって聞くけど、
その名前が思い付かないとき…。

漏れコーディングより、名前で時間くう…。
こんな漏れって変でつか…？
0819nobodyさん03/06/24 07:31ID:???
>>815
少なくとも 5.8.0 には標準で Switch.pm がある。

use Switch;
switch ($val) {
　　case 1　　　　　{ print "number 1" }
　　case "a"　　　 { print "string a" }
　　case [1..10,42] { print "number in list" }
　　case (@array) { print "number in list" }
　　case /\w+/　　{ print "pattern" }
　　case qr/\w+/ { print "pattern" }
　　case (%hash)　{ print "entry in hash" }
　　case (\%hash) { print "entry in hash" }
　　case (\&sub)　{ print "arg to subroutine" }
　　else 　　　　　　{ print "previous case not true" }
}
0820nobodyさん03/06/24 08:07ID:???
>>818
$hensuに。
0821nobodyさん03/06/24 08:34ID:???
>>818
変数名の prefix に規則性持たせてつけてるよ
082281803/06/24 08:49ID:???
>>820
どういうこと？
とりあえず$hensuにしとくってこと？

>>821
漏れもVBやってたときは付けてた。
0823nobodyさん03/06/24 09:26ID:2JWEavap
CarpのfatalsToBrowserでエラー捕まえられない時があるんだけど、
「500 Internal Server Error」が出てしまう時がある。
httpdのログを見る限りエラーメッセージが出てるんだけど・・・
回避方法って無いですかね？
0824nobodyさん03/06/24 10:41ID:???
>>818
クラス名・変数名に迷ったら書き込むスレ
http://pc2.2ch.net/test/read.cgi/tech/1046541730/

こんなスレもあるでよ
082581803/06/24 10:44ID:4jjnB7QK
>>824
初耳です。
こっち行きます。
0826nobodyさん03/06/24 10:44ID:???
>>823
いったい何を言ってるんだ？
まともな文章と書くスレを選ぶ方法を先に学べ
0827nobodyさん03/06/24 11:05ID:???
でもperlはカウンタとか一時変数とかは名前付けなくていいし、
ネーミングで困ることは少ないな
大抵そういう、どうでもいい変数で困る事が多いし
0828nobodyさん03/06/24 11:11ID:2JWEavap
>>826
分からないなら、しゃべんなって。
な。
0829nobodyさん03/06/24 11:19ID:???
>828
お前はあの文章がわかんのか、とか思ったら本人だったので鬱
0830nobodyさん03/06/24 11:23ID:???
CarpとCGI::Carpは違う。
0831nobodyさん03/06/24 11:27ID:???
>>828
お前の文章も確かにおかしいぞ
0832nobodyさん03/06/24 12:32ID:???
頭おかしい奴が（・∀・）ｷﾃﾙｰ
0833nobodyさん03/06/24 13:40ID:???
ログ見てエラーが出てるんなら、そのエラーメッセージ見て解決策を考えろ。
0834nobodyさん03/06/24 13:59ID:???
2JWEavapは恥ずかしくてもう来られない
0835nobodyさん03/06/24 14:10ID:RsywTEy7
DBI使ってDBを操作するとき､SELECT文の結果は配列で返ってきます｡
つまり値を参照するときはフィールド番号（って言うんですか？）で指定しなければいけません。
$record[2]みたく。
できれば、フィールド名で参照したいんですけど、それって無理なんですか？
連想配列みたいになれば言うことないんですが｡
$record{'DATE'}って感じに参照したいんですけど、DBIだけでは無理？

どの解説サイトみても、「配列でかえります」までしか説明されてませんでした。
0836nobodyさん03/06/24 14:29ID:???
BBS作ってるんですけど、例えばレスが800あるスレッドを
表示する時2ちゃんねるみたいに
1&750-800みたいに途中を飛ばして表示するとして
ログがレス順1から順に並んで保存されてるとすると
2-749まで空読みして飛ばしますよね？
これって無駄に思えますが何か良い方法ありませんか？
レスを逆順に800,799・・・保存する方法も考えましたけど
これだと表示時に表示するレスの分だけメモリ消費して
こちらも無駄かなと思ってしまうんですが。
全レス表示したら全レス分配列必要だし。

前者だとレスが多いスレだとCPU負荷がかかるし
後者だとメモリを多く消費してしまうし、何か他の選択が
ないでしょうか？
0837nobodyさん03/06/24 14:31ID:???
>>836
1レスの長さを固定してseekとreadを駆使して読み出すのが効率いいんじゃない？
0838nobodyさん03/06/24 14:38ID:???
>836
1レス1ファイル形式(w
0839nobodyさん03/06/24 14:48ID:???
>>835
http://member.nifty.ne.jp/hippo2000/perltips/dbimemo.htm
よく読んで毛
0840nobodyさん03/06/24 15:07ID:py7llED6
☆とにかく可愛い娘のＨ画像です☆
http://endou.kir.jp/yuminet/link.html
0841nobodyさん03/06/24 15:10ID:???
>>836
1000回の空読み <<<<< ファイルのopen
というか、
1000回の空読み <∞< perlのオーバーヘッド

何をするにもCPU負荷はかかるけど、
定量的に考えないと。

あと、これはバリ私見＆経験則だけど、
最近のマシンは一般的なwebサーバー用途で考えると、
バランス的にCPUだけの性能が突出してます。
仮に、1Gメモリー積んでCPUがPIII 1Gぐらいのとき、
先ず、CPUが足りなくなる前にメモリーが足りなくなります。
（これは、webサーバーやRDBMSがメモリー食いすぎというのも理由だが）
なので、CPUとメモリーはトレードオフの関係にあるときは、
メモリー優先で基本的にはOK。
0842nobodyさん03/06/24 19:20ID:???
>>838
一度それで作ったことあるけど微妙ｗ

やっぱ1ファイルで空読みかねぇ。
0843nobodyさん 03/06/24 19:55ID:???
そんなけ書き込み激しいのならば、DB使うだろ・・・
0844nobodyさん03/06/24 22:48ID:???
>>836
無駄っちゃ無駄だけど、小細工してもたいして効果ないよ
0845nobodyさん03/06/25 00:40ID:???
ハッシュのキーって、全角文字でもいけますか？
0846nobodyさん03/06/25 00:59ID:???
>>845
いけるらしいです。
俺は、試してないけど。

でも、あまり推奨されるような物じゃないと思うので、
極力避けましょう。
0847nobodyさん03/06/25 01:18ID:Ai+C7V0g
質問がございます。

<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=EUC-JP">
<TITLE></TITLE>
</HEAD>
<BODY>
<FORM action="test.cgi" method="POST">
%%errmsg%%
E-mailアドレスを入力して下さい。<BR>
<INPUT size="30" ="text" name="email" value="%%email%%"><BR>
確認のため、再度入力してください。<BR>
<INPUT size="30" type="text" name="confirm" value="%%confirm%%"><BR>
<BR>
<INPUT type="submit" value="送信"></FORM>
</BODY>
</HTML>

これを変数化したものを
$html =~ s/\%\%.+?\%\%//gs;
このように「%%～%%」を全て取り除くはずなのですが、
なぜか$html =~ s/\%\%.+?\%\%//gsi;
でないといきませんでした。%%%%に大文字も小文字も無いとは思いますが、、、
どうしても腑に落ちないため、質問させていただきました。
宜しければどうかご教授ください。宜しくお願いいたします。
0848nobodyさん03/06/25 01:20ID:???
>>>845
問題なし
084984503/06/25 01:30ID:???
>>846 >>848
thx.
プログラム関係の板の人は怖い人ばかりだと思っていたけど、
ちゃんとレスくれて嬉しいです。ではまた
0850nobodyさん03/06/25 06:35ID:???
>>847
$html =~ s/%%.+?%%//g;
で、動かないかい？
それはさておき、%%strings%%で書き換えるHTMLテンプレートをよく見かけるけれども、
鬱陶しくなぁい？
%sにしてsprintfで一気に書き換える方が楽そうに思えるけれども。

それはさておき、正しいHTMLを描きましょう。
0851nobodyさん03/06/25 11:07ID:???
<p>で開いたパラグラフは
必ず</p>で閉じましょう
0852nobodyさん03/06/25 14:07ID:???
>>850
それじゃ、コード側で順番が固定されてしまうだろ
0853nobodyさん03/06/25 16:44ID:???
>>851
</p>は省略可能だけど、それを意識して省略しましょうね。ということでよろ。
>>852
そだよ。そんなに頻繁にテンプレを変えるのは少々難ありだと思うけれども。
0854nobodyさん03/06/25 17:48ID:???
>>853
ﾃﾝﾌﾟﾚは変わるだろ。ｼｽﾃﾑ変わらずともﾃﾞｻﾞｲﾝが変わることは多々ある。
あとDOCTYPEの指定がないのに省略可能と言い切るのはすごいな。
0855nobodyさん03/06/25 18:36ID:???
ハ゜ールのcgiをいじっていたら、漢字の「表示」が正しく表示されない
のですが、これは文字コート゛の問題なのですか？
普通はどう解決しますか？
0856nobodyさん03/06/25 18:38ID:???
>>855
漢字を使わない。
0857nobodyさん03/06/25 18:45ID:???
>>855
それくらい、とほほにも書いてある。聞く前に調べる。
0858nobodyさん03/06/25 19:49ID:???
表\示

これで表示される。Shift-JIS だと「表」のコードが \x95\x5c となる。
\x5c(\) が perl だと特別に解釈される文字なのでおかしくなる
085985503/06/25 20:04ID:???
すいません自己解決しました。
0860nobodyさん03/06/25 20:18ID:???
普通はどう解決しますか？
↓
明らかに突飛な解決策が提示される
↓
「調べろ」とアドバイス
↓
同情した奴がマジレス
↓
自己解決


まったく噛み合ってないな(w
0861ayaya03/06/25 20:35ID:???
始めまして！私と顔を見ながらチャットしませんか？楽しい会話をしましょう
アドレスです！http://www.loveshelter.tv/まで！沢山きてね(^o^)丿
待ってまーす
0862nobodyさん03/06/25 20:49ID:+p8CFadc
test->func();
test::func();
この呼び方で、どちらでも動くようにfunc()をコーティングしたいんだけど、
いい方法知らないすか？
■ このスレッドは過去ログ倉庫に格納されています