トップページ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
0002 ◆fBgbHI04bQ 03/06/07 22:30ID:GbQKLcPE
過去ログ]

Part1 http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980 参照不能
 DAT: http://tako.2ch.net/perl/dat/957208980.dat
Part2 http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087 参照不能
 DAT: http://tako.2ch.net/perl/dat/971817087.dat
Part3 http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521 参照不能
 DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part4 http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156 参照不能
 DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part5 http://pc.2ch.net/php/kako/988/988728069.html
Part6 http://pc.2ch.net/php/kako/996/996075607.html
Part7 http://pc.2ch.net/php/kako/1000/10002/1000267444.html
Part8 http://pc.2ch.net/php/kako/1003/10039/1003900311.html
Part9 http://pc.2ch.net/php/kako/1009/10095/1009549309.html
Part10 http://pc.2ch.net/php/kako/1014/10145/1014556702.html
Part11 http://pc.2ch.net/php/kako/1017/10172/1017201229.html
Part12 http://pc.2ch.net/php/kako/1019/10199/1019917048.html
Part13 http://pc.2ch.net/php/kako/1022/10227/1022731565.html
Part14 http://pc.2ch.net/php/kako/1026/10269/1026977659.html
Part15 http://pc.2ch.net/php/kako/1028/10288/1028816385.html
0003nobodyさん03/06/07 22:30ID:???
立てなくていいってば。
0004 ◆fBgbHI04bQ 03/06/07 22:31ID:GbQKLcPE
[過去ログ]

Part16 http://pc.2ch.net/php/kako/1032/10320/1032070299.html
part17 http://pc.2ch.net/php/kako/1034/10345/1034583844.html
part18 http://pc.2ch.net/php/kako/1037/10377/1037797479.html
part19 http://pc.2ch.net/php/kako/1042/10422/1042260745.html
part20 http://pc2.2ch.net/php/kako/1044/10447/1044717887.html (タイトルに19と誤記)
part21 http://pc2.2ch.net/php/kako/1047/10479/1047980851.html
part22 http://pc2.2ch.net/test/read.cgi/php/1050369328/l50

[ひまぢん氏のミラー]
Part1 http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2 http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3 http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4 http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5 http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html

0005 ◆fBgbHI04bQ 03/06/07 22:32ID:GbQKLcPE
[総合]
 ・Perl Com: http://www.perl.com/pub/
 ・CPAN.com: http://search.cpan.org/
 ・ActivePerl: http://www.activestate.com/
 ・CGI-ML:http://forest.ne.jp/cgi-ml/

[お薦め]
 ・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm ★読んどけ
 ・Perl Recipes: http://www.effectiveperl.com/recipes/
 ・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
 ・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html
 ・Perl初心者の部屋:http://www.harukaze.net/~mishima/perl/
 ・Perlリファレンス:http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
 ・Perlのページ:http://homepage1.nifty.com/nomenclator/perl/
0006 ◆fBgbHI04bQ 03/06/07 22:32ID:GbQKLcPE
[Document&Tutorial]
 ・Perl News: http://www.news.perl.org/
 ・Perl Monks: http://www.perlmonks.org/
 ・use Perl; : http://use.perl.org/
 ・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
 ・Perldoc.com: http://www.perldoc.com/
 ・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
 ・Rex Swain's Home Page: http://www.rexswain.com/
 ・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
 ・Perl Tuts: http://savage.net.au/Perl-tutorials.html
 ・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
 ・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
 ・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
 ・Perlfect Solutions: http://perlfect.com/
 ・The Perl Archive : http://www.perlarchive.com/
 ・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
 ・use Object; : http://perl.infoware.ne.jp/
0007 ◆fBgbHI04bQ 03/06/07 22:33ID:GbQKLcPE
[Module]
 ・Perl Module Reference: http://www.bekknet.ad.jp/~bero/docj/module_/
 ・PPMPackages: http://www.activestate.com/PPMPackages/
 ・河馬屋二千年堂's Page: http://member.nifty.ne.jp/hippo2000/index.htm

[Security]
 ・安全なプログラミングのためのガイドライン:http://www.FreeBSD.org/ja/security/#spg
 ・Perl security:http://www.perldoc.com/perl5.6/pod/perlsec.html
 ・Perl security和訳:http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
 ・CGI and Security http://www.ansi.co.jp/tech/cgi/security/
 ・The Unofficial Web Hack FAQ:http://www.nmrc.org/faqs/www/
 ・How to Write Secure Code:http://www.shmoo.com/securecode/
 ・Safe CGI Programming :http://www.improving.org/paulp/cgi-security/safe-cgi.txt

[OS]
 ・Linux日本語マニュアル:http://www.linux.or.jp/JM/
 ・FreeBSD日本語マニュアル:http://www.jp.freebsd.org/man-jp/
0008nobodyさん03/06/07 22:35ID:???
part23 http://pc2.2ch.net/test/read.cgi/php/1053051519/l50
ちゃんと貼れ馬鹿。

そしておつ
0009 ◆fBgbHI04bQ 03/06/07 22:35ID:GbQKLcPE
>>8
スマソ。すっかりわすれてた
0010nobodyさん03/06/07 23:37ID:???
どんまい(´∀`*
0011nobodyさん03/06/07 23:39ID:???
おい!おまいらもすごろく作りに参加汁!
http://life2.2ch.net/test/read.cgi/offreg/1054655407/l50
ちなみにこれはコピペしてひろめてくれ。
0012nobodyさん03/06/07 23:51ID:???
ABCDEFGという文字列からABだけ取る方法教えてください
0013nobodyさん03/06/07 23:54ID:???
>>12
substrで先頭から二文字抜き出す。
0014nobodyさん03/06/07 23:56ID:???
$a = "ABCDEFG";
$b = substr($a,0,2);
ネタにマジレスしときます
0015nobodyさん03/06/07 23:56ID:???
>>12
正規表現で/(AB)CDEFG/
0016nobodyさん03/06/08 00:00ID:???
s/CDEFG//
00171203/06/08 00:08ID:???
みなさんありがとうございました!
cryptで暗号化した文字の最初の2文字が邪魔でした。
助かりました。
0018nobodyさん03/06/08 00:18ID:???
htmlのソースを、cgiで開いて、
tetxareaに入れてかえすスクリプトですが、
ソースもhtmlのタグと勘違いして、
変になるんです。

=====================
| #!/usr/bin/perl    |
|               |
|               |  ←テキストエリア(ソースが表示される)
|               |
| print "<html><body> |
|====================|
print "aaa"\n;         ←テキストエリア外で、タグとして読んでしまう。

こうなるんですが、対処法はないですか?
<>などを変えないでできる方法ってないですか?
0019nobodyさん03/06/08 00:29ID:???
>>18
ここはPerlのコーディングスレ。
どこが悪いのか質問したいならソースぐらい貼って。

単に方法を知りたいだけならスレ違い。
0020nobodyさん03/06/08 00:31ID:???
>>19
あ、違いました。
ソースファイルの中の</textarea>を
実際に出力している</textarea>と勘違いしているようです。
これを、見た目の変化を変えずに表示できませんか?
0021nobodyさん03/06/08 00:33ID:???
Perlと関係ねー(T_T)
<を<に、>を>に変える。嫌なら諦める。
00222103/06/08 00:33ID:???
あら・・・・
<を&lt;に、>を&gt;に変える。
0023nobodyさん03/06/08 00:39ID:???
>>18
クロスサイトスクリプティングって聞いたことあるか? 知らないなら
そんなCGIは作るな、設置するな。いいな命令だ。
0024nobodyさん03/06/08 00:39ID:???
>>22
あ、その方法がありましたね。
それでやてみます。。。
でも、すべて変えるとめんどそーなので
</textarea>のところのみにしときます。
ありがとうございました。
0025nobodyさん03/06/08 00:40ID:???
>>24
氏ねバカ
0026nobodyさん03/06/08 00:41ID:???
>>23
掲示板に
<#-- exec
↑あいまい
みたいに、タグ書くやつでしょ?
0027nobodyさん03/06/08 00:45ID:???
>>26
http://www.google.co.jp/search?q=%E3%82%AF%E3%83%AD%E3%82%B9%E3%82%B5%E3%82%A4%E3%83%88%E3%82%B9%E3%82%AF%E3%83%AA%E3%83%97%E3%83%86%E3%82%A3%E3%83%B3%E3%82%B0&ie=UTF-8&oe=UTF-8&hl=ja&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja
0028nobodyさん03/06/08 01:07ID:???
>>26
バーカ
0029nobodyさん03/06/08 01:13ID:???
フォームから送られてきた内容をPerlのevalで実行するCGIを置いているけどまずいの?
0030nobodyさん03/06/08 01:15ID:???
>>29
>>27
0031nobodyさん03/06/08 01:31ID:???
>>29
あたりまえでしょうが!何を考えてんだか・・・
どっちにしてもスレ違いなので終了するか適切なスレに移動して
0032nobodyさん03/06/08 01:36ID:XzEWy/kW
すいません。少々質問です。

http://atashi.net/inu/ja/software/msnp_status.txt

これってどういうモノなのでしょうか?
MSNの何かのようですが,どういうモノなのか知りたいです。
それでは宜しくお願いします。
0033nobodyさん03/06/08 01:36ID:???
>>29
サーバは、レンタルサーバ?
最悪、損害賠償を請求される場合があります。
悪い事言わないから、
もうちょっと分かるまで勉強してから動かすか、
諦めるかしなさい。
0034nobodyさん03/06/08 01:42ID:???
>>32
質問は適当なスレでやってください。

URL削ればわかるだろうに

ttp://atashi.net/inu/ja/software/
msnp_status.cgi version 1.02
MSN Messangerのオンライン状況を表示するためのものです。
0035nobodyさん03/06/08 02:51ID:???
>>34
作者の宣伝に決まってるだろ。
0036nobodyさん03/06/08 03:04ID:???
>>35
うん、しかもパクリだ
0037nobodyさん03/06/08 12:52ID:???
>>32
$passwdの所でいきなり構文エラーだね。
0038nobodyさん03/06/08 14:10ID:???
>>24
志ねヴァカ。

とりあえず、そのHTMLのソースに
<script>(中略)</script>
なんてあったらどうなるか分かっているの?

とりあえず、>を&gt;に、<を&lt;に、&を&amp;に位はやっとけ。
ついでに"も&quot;に。

置換の順序も分からん馬鹿はいないと思うので、略。
0039nobodyさん03/06/08 14:23ID:???
>>38
エェー、危ないのでcryptパスワード認証つけて、ファイルの作成、編集ができるようになっているから、
<script>はないと思うけど、でもしたほうがいいかな。。。

疑問に思うんだけど、>とかしても、実際には<って表示されるんだけどなぜ?
>とかってするとただの特殊記号とみなすの?
0040nobodyさん03/06/08 14:24ID:???
ごめん、表示されてない。

疑問に思うんだけど、&gt;とかしても、実際には<って表示されるんだけどなぜ?
&gt;とかってするとただの特殊記号とみなすの?

0041nobodyさん03/06/08 14:26ID:???
>>40
&gt; は <と
&lt; は >と。
&&は & と
&quot; は " 表示される。
0042nobodyさん03/06/08 14:27ID:???
<や>がHTMLでは何を意味するのか考えれば分かると思うけど
0043nobodyさん03/06/08 14:27ID:???
>>41
ミス &ampは&
0044nobodyさん03/06/08 14:29ID:???
あぁそっか。
htmlで<などを表示するときに>などを使うから、
タグではなくなるってことか。。。
0045nobodyさん03/06/08 14:33ID:???
>>44
いままで理解してなかったのか。場亀。
0046nobodyさん03/06/08 14:34ID:???
$_ =~ s/</</g;
$_ =~ s/>/>/g;
$_ =~ s/&/&/g;
$_ =~ s/"/"/g;

なんで、これでできない・・・・・・
ダブルクォーテーションとアンドはできるのに・・・
0047nobodyさん03/06/08 14:37ID:???
&をさきにエスケープしなければだめだろ。
前の処理で&lt;にしたものが(ry
0048nobodyさん03/06/08 14:37ID:???
実体参照ネタは相変わらずめちゃくちゃになるなぁ。
ちゃんと書けないんなら全角にでもしとけ。
0049nobodyさん03/06/08 14:38ID:???
>>38の最終行にぴったりの質問が来ました。

超・初心者な質問だから他へ・・・と思ったらここが初心者スレだった罠。
でも、もう少し頭を使ってくれよ
0050nobodyさん03/06/08 14:39ID:???
>>47
そうでした。
ありがとうございます
0051nobodyさん03/06/08 14:41ID:vz1j93aY
質問です。
WinXP HOME EDITION(←スペルちがってたらすいません)でアクティブパール5.8なんですが、
unlink(<*.txt>)でうまくいかないんですが、Winだからですか?
0052nobodyさん03/06/08 14:41ID:???
foreach( <FILE> ){

# タグを特殊記号に変換
$_ =~ s/&/&amp;/g;
$_ =~ s/</&lt;/g;
$_ =~ s/>/&gt;/g;
$_ =~ s/"/&quot;/g;
print;
}

こんなんでできました。
下3つの順番はどうでもいいですよね?
0053nobodyさん03/06/08 14:43ID:???
unlink(<*.txt>)

こう書くとワイルドカードが使えるようになるの?
0054nobodyさん03/06/08 14:43ID:???
>>51
()いらない
00555303/06/08 14:44ID:???
らくだに書いてあったか。
00565103/06/08 14:45ID:???
>>54
書いたらだめなんか?()
消しても結果は同じだった。消えない・・・。
0057nobodyさん03/06/08 14:47ID:???
>>56
unlink <*>
やってみて
てか、;忘れてるなんてないよね?
00585303/06/08 14:50ID:???
Windows2000ではできたぞ。
00595103/06/08 14:51ID:???
>>57
フォルダが読み取り専用になってた。
でも、みてみたら、どのフォルダも(PC内)読み取り専用だった・・・。
しかも、解除できない。関係ある?
0060nobodyさん03/06/08 14:54ID:???
読みとり専用でも消せるけど・・・
0061nobodyさん03/06/08 15:03ID:???
>>59
うまくいかないときは「どううまくいかないのか」を書いてくれ。
00626103/06/08 15:05ID:???
ああ、消えないのか……
スクリプトは削除対象のファイルと同じディレクトリで実行させてるよね?
00635103/06/08 15:08ID:???
>>62
ありがとう。
すごくあふぉなことやってた。↓の階層にファイルあるのに消そうとがんばってた。
消す前に、chdirで移動したら消せた。
お騒がせしてすみませんでした。
0064直リン03/06/08 15:10ID:+3TQ1ee9
http://homepage.mac.com/yuuka20/
0065nobodyさん03/06/08 15:10ID:???
0066nobodyさん03/06/08 17:40ID:???
2chのトリップみたいのを付けたいです。
名前#123
↑で123だけ抜き出す方法が知りたいです。
0067nobodyさん03/06/08 17:54ID:???
あのさ。
ここはなんで調べもしないで来る人が多いのか?

初心者だから分からない、ではなくて調べてないから分からない。
って質問ばっかりだぞ。
00685103/06/08 17:55ID:???
>>66
my($name,$trip) = split(/#/, $name);
0069nobodyさん03/06/08 17:57ID:???
>>67
調べ方を教えてください
0070nobodyさん03/06/08 17:58ID:???
>>68
ありがとうございます。
それをどうやって組み込めばいいのでしょうか?

……って返されそうだな。
00715103/06/08 18:03ID:???
>>70
そだね。 69は偽者じゃないの?
さすがにそこまでプなやつはおらんだろ。
0072nobodyさん03/06/08 18:03ID:???
いらっしゃーい、Perlのコーディングで困ってる人のスレです。

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

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

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
0073nobodyさん03/06/08 18:03ID:???
>>70
あなたは
名前#123 をなんという変数に代入してるですかー
0074nobodyさん03/06/08 18:09ID:???
$nameです
0075nobodyさん03/06/08 18:10ID:???
>>67
自分のサイト作って次はCGIだーって思ってる奴が迷い込んで来るんだよ。
質問者は>>1読まないしね。読んだとしても1行ぐらいじゃないかな。
0076nobodyさん03/06/08 18:11ID:???
>>68
split(/#/, $name, 2);にしないと$nameが"名前#12#3"とかなっていたら$tripが"12"になってしまうけどいいの?
0077nobodyさん03/06/08 18:13ID:???
>1:自分はこう言う事がしたい。
>2:それでこんな風にやってみたが・・・
>3:それだとこんなエラーが出て上手く行かなかった。

これを強制させるのはどうだ?
例えば>>66にこれを書かせると

1:自分はこう言う事がしたい。
2chのトリップみたいのを付けたいです。

2:それでこんな風にやってみたが・・・
何もしてません。

3:それだとこんなエラーが出て上手く行かなかった。
何もしてないのでエラーはありません。


となって、自分で全く調べてないって少しは自覚できるんじゃないかな。
0078nobodyさん03/06/08 18:14ID:???
>>76
スマソ。
>>66は気づかないからヨロシ。
0079nobodyさん03/06/08 18:16ID:???
そもそもスレのレベルが下がり過ぎ。
ここは「Perl初心者」のためのスレだろう。
"努力・常識のかけらも無いアホ"の"質問にすらなっていない独り言"で埋まってしまうのはいかんだろ。
0080nobodyさん03/06/08 18:17ID:???
&jcode::tr(\$FORM{'FROM'}, '#', '#');
if($FORM{'FROM'} =~ /([^\#]*)\#(.+)/){
my $main_message = $1;
my $handle_pass = $2;
my $change_salt = substr($handle_pass, , 1) . "H";
$handle_pass = substr(crypt($handle_pass, $change_salt), -8);

if($main_message ne ""){
$FORM{'FROM'} = "$main_message </b>◆$handle_pass <b>";
}else{
$FORM{'FROM'} = "</b> ◆$handle_pass <b>";
}
}
0081nobodyさん03/06/08 18:18ID:???
>>80
がんがるなよ。
0082nobodyさん03/06/08 18:20ID:???
$nameに#aiusiauがあるとする
$sharp = index($name);
$sharp++:
$trip = substr($name,$sharp);

ではダメ?
無駄が多い?
00838203/06/08 18:22ID:???
ミスった。

$sharp = index("$name","#");
$trip = substr($name,$sharp++)
これでいいや;
0084nobodyさん03/06/08 18:25ID:???
なんで++するの?前置インクリメントならわかるけど。
00858203/06/08 18:27ID:???
>>84
ぇ?indexは1文字目を0から、substrは1文字目を1とするから足す必要あると思うんだけど、、、
てか、実際これでやってる
0086nobodyさん03/06/08 18:29ID:???
>>85
$i=0;
$j=$i++;
としたとき、$iは1になるけど$j=0になることは知っているよね?
もちろんそれでいいならいいんだけど。ただ、あとで$sharpを使わなければ意味ないなぁと思って。
0087nobodyさん03/06/08 18:33ID:???
>substrは1文字目を1とするから
0088nobodyさん03/06/08 18:40ID:???
#の次からを取り出すわけだから+1は必要だと思うけど、特に$[をいじっていなければsubstrは一文字目は0。
00898203/06/08 18:43ID:???
あぁ、そうだった。
次からとるから+1だったな
0090nobodyさん03/06/08 18:45ID:???
>>89
実際これでやってる ってホント?
0091nobodyさん03/06/08 18:50ID:???
if(($sharp = index($name,'#')>=0){
$trip = substr($name,$sharp+1);
#ここでトリップ生成
}
0092nobodyさん03/06/08 18:52ID:???
>>91
そりゃできるだろ。
if(($sharp = index($name,'#')>=0){
$trip = substr($name,$sharp++);
#ここでトリップ生成
}
では動かんよ。
0093nobodyさん03/06/08 18:53ID:???
>>92
括弧の対応があわないね(汗

if(($sharp = index($name,'#'))>=0){
$trip = substr($name,$sharp+1);
#ここでトリップ生成
}
00948203/06/08 19:02ID:???
>>90
カウンターとかで使ってるよ
■ このスレッドは過去ログ倉庫に格納されています