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

【Perl 】初心者コーナーPart8

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。01/10/24 14:11ID:???
いらっしゃーい、perlのコーディングで困ってる人のスレです。

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

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

参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://ebi.2ch.net/test/read.cgi/php/988809842/l50
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part４】
http://ebi.2ch.net/test/read.cgi/php/1000804655/l50

過去ログ、その他の役立ち情報は>>2-10を見よう。
0285名無しさん＠お腹いっぱい。01/11/14 02:20ID:???
TARGET=\"_blank\">$1:\/\/$2<\/A>/g;
の行を。。
TARGET=\"_blank\">$cgiurl$1:\/\/$2<\/A>/g;
でどう？　$cgiurl = 'http://hogehoge/foo.cgi?';
とかにしとく
エラーが出ますはちょっと勘弁　（ｗ
0286名無しさん＠お腹いっぱい。01/11/14 02:25ID:???
理解しないまま使うな。絶対後で問題起きる。
正規表現勉強して，自分で書いたほうがいい。
0287２８５01/11/14 02:26ID:???
もう居ないかな、CGIでそんなのするなって、どうやってチャージすんのさ
捨てファイル一枚開けといて、疑問に思ったり解らん事が有ったら
そこにちょこっと書いて、コマンドラインから実行してみ
PODでコメントにしながら貯めていけば後から見たり出来るから
多分1000行くらい溜まる頃には普通に使える様になるよ
0288名無しさん＠お腹いっぱい。 01/11/14 02:34ID:???
使ってれば理解出来るってのも有るぞ、C++とか馬鹿デカ過ぎて厨な俺は半分位なんで
動いてるのか分かって無いよ　：−(
ROMってる人に役立つかも知れんからﾏｯﾀﾘいこーや
エラーが出ます、は困ったもんだが・・・
0289超初心者01/11/14 02:36ID:???
>>281
281だと1が返るのかな。
sub autolink{
　my $url = shift;
　$url処理・・・
　return $url;
}
>エラーが出てしまいました･･･
エラーの内容書いた方が良いよ。
0290名無しさん＠お腹いっぱい。01/11/14 02:40ID:???
BBSのREFFER辿られたくないからPERLProxy置いて、そいつにリクエスト
投げたいからBBSを弄ってるんだろ？
なんだかなあ。。。。
0291名無しさん＠お腹いっぱい。01/11/14 02:45ID:???
@_を変えるとオリジナルも変わる。
0292名無しさん＠お腹いっぱい。01/11/14 02:46ID:???
>>290
なるほど。そういうことか。

ていうか、HTTP_REFERERって
標準化するときの単なるスペルミスなんだってね。w
0293名無しさん＠お腹いっぱい。01/11/14 02:48ID:???
>>263>>264
ああ、連装配列で委員っすね　＾＾；
なるほど、中々慣れないもんで・・・　ありがとっす　＾＾
029425701/11/14 02:51ID:???
>>259
ありがとうございます。
うまくいきました。

お恥ずかしい限りで・・・。
029527901/11/14 03:05ID:???
>>285さんの言われたのを
<A HREF=\"$1:\/\/$2\"　を
<A HREF=\"$cgiurl $1:\/\/$2\"
に変えたら無事に出来ました、沢山の方に御迷惑お掛けしました。
本当に有り難う御座いました。
>>290さん
おっしゃる通り、REFFER辿られたくないので弄っていました。
PERLProxyって言うのが良く判りませんでしたが、
最近、私のサイトの掲示板で質の悪い書き込みを沢山する人が居たので
REFFERから来たんじゃない？と言われてやってみたのです。
本当に、有り難う御座いました。
0296名無しさん＠お腹いっぱい。 01/11/14 03:14ID:???
>>291 あぅ…そうですね。ﾄﾎﾎ
0297２８５ 01/11/14 03:17ID:???
すまんすまんちょっと間違えた、
まあ正規表現はけっこう便利だからこれに懲りずにてきとーに本でも読んでみて
0298名無しさん＠お腹いっぱい。01/11/14 13:33ID:nPGI7kkt
Perl5.6で日本語使いたい
s/表/票/みたいな置き換えしたい
鈴木さんのjperlって5.005用ですよね？

ためしにインストールしたらPerlCRT.dllがないって怒られちゃいました

perl5.6用のjperl欲しいっす
使いたいときって限られてるのでperl5.6と5.005用のjperlの共存でも
いいです
どうしたらいいっすか
0299名無しさん＠お腹いっぱい。01/11/14 14:24ID:???
unicode使え。
0300RA・イール01/11/14 14:44ID:h/x7Yxzr
概出でしたら申し訳ありませんが質問です。
初心者なので質問の至らない点はご容赦してください。
Web画面上で文字列を取得し、その文字列を用いてサーバー(UNIX)上で
grepをかけてその結果を表示するCGIを作成しているのですが、
半角英数及び"-_."の記号は認識するのですが、２バイト文字や
上記３つの記号以外を入力しても認識してくれません。
入力した文字がgrepの前にどうなっているのかを調べたところ
半角「#」であれば「%23」等のようにどうやら文字コードになっているようです。
"-_."や半角英数はちゃんと表示されるのですが･･････
どうすればよいのかアドバイスしていただけないでしょうか？
よろしくお願いします。
長文になって申し訳ありません。
0301名無しさん＠お腹いっぱい。01/11/14 15:21ID:???
>300
>>2-8 全部見ろとまでは言わんが，とほほくらいは目を通しとくといい。
http://tohoho.wakusei.ne.jp/www.htm

そのままそういう文字を送信すると，不都合が起きるのでエンコードされる。
URI::Escape.pmとかを使おう。
http://www.bekknet.ad.jp/~bero/docj/module/15/URI_Escape.html

どうしても自力でやるならここ見れ。
http://tohoho.wakusei.ne.jp/wwwcgi3.htm#CgiEncode
http://www.din.or.jp/~ohzaki/perl.htm#JP_Escape
0302名無しさん＠お腹いっぱい。01/11/14 15:26ID:???
それはブラウザがエンコードしてるからです。
文字コードに戻すには、perlなら、
s/%(.{2})/pack("C", hex($1))/eg;
Cなら
c = (x[0] >= 'A' ? ((x[0] & 0xdf) - 'A') + 10 : (x[0] - '0'));
c *= 16;
c += (x[1] >= 'A' ? ((x[1] & 0xdf) - 'A') + 10 : (x[1] - '0'));
みたいな感じです、半角スペースは + になってるのでそれも変換して下さい。
0303名無しさん＠お腹いっぱい。01/11/14 15:27ID:???
Perlスレだった、、　鬱だ
0304RA・イール01/11/14 17:10ID:h/x7Yxzr
>>301さん
>>302さん
ありがとうございます。
無事解決いたしました。
030529801/11/14 20:08ID:???
>>299
スクリプトをunicodeにするだけじゃダメですよね？（ダメでした）
処理したい対象のテキストがシフトJISなんです…

あ。読み込んでunicodeに変換して、それから必要な処理を
すればいいのか…な？
0306名無しさん＠お腹いっぱい。01/11/15 20:57ID:???
>>262-264 構造体の型？を宣言しておくことはできないんですか？
いちいち新しく宣言しなければならないのでしょうか？
0307名無しさん＠お腹いっぱい。01/11/15 21:41ID:2NOZWJEm
>306 Class::Structとかは？
0308名無しさん＠お腹いっぱい。01/11/15 23:31ID:u8RJIxtX
はーい、先生しつもーん！
perlってプログラム言語だから、てっきりプログラム板だと思ったのに、なんでWebProgなんですか？
WebProg専用って訳じゃないですよね？
しかも、あっちでは冷遇されてるみたいだし‥‥
なんでプログラム板ではperlちゃんは虐められるんですか？
0309名無しさん＠お腹いっぱい。 01/11/15 23:32ID:???
>306 どこの星の人か知らないけどPerl使ったこと有る？？
0310名無しさん＠お腹いっぱい。01/11/15 23:56ID:???
何で虐められてるの
あなたの発言内容が冷遇されてるのでは？　（笑
0311名無しさん＠お腹いっぱい。01/11/16 00:30ID:ecg87As1
>>310

おいらじゃないけど、あっちでperlの質問スレ立てた人が、「板違いだ」と言われてました。
0312名無しさん＠お腹いっぱい。01/11/16 00:41ID:???
言語っていうよりCGI作成スクリプトってかんじだからかなぁ。
設置するだけの厨も多いし。
0313名無しさん＠お腹いっぱい。01/11/16 01:07ID:???
shige虫がｳｻﾞｲからです　　ｗ
0314名無しさん＠お腹いっぱい。01/11/16 05:11ID:???
>>308 むかしはCGI/Perl板だったから、こっちでやれってことじゃない？今でも。
>>312 それはただ単に世間が狭いからでは？ Autoconfの一部, tmake(Qt), fmlとか幾らでもあるでしょ。
0315名無しさん＠お腹いっぱい。01/11/16 05:27ID:???
Perlしか出来ないCGI厨も多いのも事実だな(w
0316名無しさん＠お腹いっぱい。01/11/16 07:11ID:???
Perlしか出来ないCGI厨は氏ね。
0317名無しさん＠お腹いっぱい。01/11/16 10:40ID:???
Perlすら満足に出来ないCGI厨も居るがな。
0318名無しさん＠お腹いっぱい。01/11/16 13:40ID:???
>>315はまだいい。ってか折れだし。
>>317はマジ迷惑。
0319名無しさん＠お腹いっぱい。01/11/16 14:08ID:???
どこまで出来れば「満足に出来る」ことになるんだろう・・・（ぼそっ）
perl理解して無いより、CGI理解してない方が迷惑だけど、それはまぁいいや。
0320名無しさん＠お腹いっぱい。01/11/16 22:12ID:eZwp685j
$ENV{'HTTP_HOST'}$ENV{'SERVER_NAME'}$ENV{'SERVER_ADDR'}
って全部同じ？
0321名無しさん＠お腹いっぱい。01/11/16 22:17ID:???
>320
ＬＡＮを組んだローカルサーバーで試してみそ。
0322名無しさん＠お腹いっぱい。01/11/16 23:49ID:WbULnsbP
>>321

どんな環境で試すと。。。3つ同じになるのかよく考えてみよう
032332101/11/17 00:24ID:???
>322
俺はこれで違うものが出るからこう言ってるんだけど？
>320はそれが全部同じ物と思ってるんでしょ？
反例出せばいいのかと思ったんだけど違ったならスマソ。
0324名無しさん＠お腹いっぱい。01/11/17 10:00ID:caH7oXws
２つの変数($HOGEと$SAGE)の値を交換する方法を教えてください

今現在、
$TEMP = $HOGE ;
$HOGE = $SAGE ;
$SAGE = $TEMP ;
にしてるわけですが非効率ですよねぇ
0325名無しさん＠お腹いっぱい。01/11/17 10:06ID:???
($hoge, $sage) = ($sage, $hoge)
032652101/11/17 10:10ID:FtGVdyVD
そのやり方で良いよ、仮に「2つの変数を入れ替える関数」が有ったとしても(無いけど)
どちらかをtempの領域にコピーして入れ替えた後復帰してる事に変わりない
メモリを使わずに空中で交換なんて出来ないんだから。
もしHOGEとSAGEが大きな変数ならリファレンスを使おう
0327名無しさん＠お腹いっぱい。 01/11/17 10:11ID:???
ぐはっ、HNが
0328名無しさん＠お腹いっぱい。01/11/17 15:58ID:???
> メモリを使わずに空中で交換なんて出来ないんだから。
xorしてxorしてxorすればテンポラリ領域なしで交換できるよ。
でも、素直にテンポラリ使った方が速い、安全、わかりやすい。
0329名無しさん＠お腹いっぱい。01/11/17 16:29ID:???
本当だ。数値なら、
$b+=($a=($b+=$a)-$a);
で入れ替わる。
0330名無しさん＠お腹いっぱい。01/11/17 18:51ID:???
$b -= ($a = ($b += $a) - $a);
じゃないか？
033132901/11/17 19:21ID:???
>>330 本当だ。どこでコピペをミスったのだろう。。。(鬱
0332　01/11/17 21:16ID:hnjwBqTf
Windows2000、ActivePerlです。
ActiveState Perl Dev Kitをインストールして使っていて、

C:\>perl -d hoge.perl
で自動的にGUIベースのデバッガが自動で起動しますが、CUIでデバッグ
したいときだけCUIデバッグを開始する方法ありますか？
0333名無しさん＠お腹いっぱい。01/11/17 23:34ID:JGfA8W5O
スゲー
$b ^= $a ^= $b ^= $a;
で入れ替わるんだ。 これだと文字列でもできるんですね。
0334名無しさん＠お腹いっぱい。01/11/17 23:58ID:???
>>333
長いほうにあわせてzerofill(?)されるので問題ありとか。
033533301/11/18 00:05ID:???
本当だ。整数同士、文字列同士なら問題なさそうだけど、
少数が混ざったり、整数と文字列を交換しようとしたらダメなんですね。
確かにリスクが多そうだ。
0336名無しさん＠お腹いっぱい。01/11/18 00:34ID:???
アクセス解析で訪問者のドメインを取得しようとしたんですが、
下の書き方だとCGIを置いてるサーバーのドメインが取得されて
しまいます。どこが間違ってるのでしょうか？

$a1 = $ENV{'HTTP_HOST'};

open (ANSWER, ">>data.txt");
flock (ANSWER, 2);
print ANSWER "$a1\n";
flock (ANSWER, 8);
close (ANSWER);
0337名無しさん＠お腹いっぱい。01/11/18 00:57ID:???
ファイルを1ビットずつコピーするっていうやつを何処かで見かけて、
使ってみようと探してみたら見つかりません。（Perlメモだったと思ったけど、見つからない・・・）
ご存知の方教えてください。　よろしくお願いします。

>>336 $ENV{REMOTE_ADDR}でいけるはず
0338名無しさん＠お腹いっぱい。01/11/18 01:00ID:???
HTTPリクエストヘッダについて学んで下さい。
0339名無しさん＠お腹いっぱい。01/11/18 01:05ID:???
>>336
普通は $ENV{REMOTE_HOST}だとおもう。
034033601/11/18 01:29ID:jf4mdJsf
>>337
$ENV{REMOTE_ADDR}だとIPが取得されてしまいます。
>>339
$ENV{REMOTE_HOST}だと何も取得出来ないのですが・・
0341名無しさん＠お腹いっぱい。01/11/18 01:37ID:GYkHI9xF
>>339
サーバの設定によってはいちいち逆びきしないのも
あるんじゃなかったけ？
034234001/11/18 01:40ID:GYkHI9xF
おお、かぶった。
>>341
gethostbyaddr を使うことになると思う。
CPAN突っ込めるならもう少し楽になる。
0343340!=341=34201/11/18 01:48ID:GYkHI9xF
342>340だった。
CPAN使わんでも標準モジュール(perl-5.6.1では)で
Net::hostent というのがあった。
0344　01/11/18 07:40ID:ec8bnEpU
locationやredirectを使わず、CGIから直接ファイルをダウンロードさせる事って出来ますか？

print "Content-type: application/download\n";
print "Content-disposition: filename=\"test.lzh\"\n\n";　だと駄目みたいです
0345　01/11/18 07:43ID:???
あれ？これは全然違ったかな
やっぱりブラウザからGET送られないと無理ですかね・・・
0346名無しさん＠お腹いっぱい。01/11/18 10:02ID:???
>>344
FAQかな？ここに書いてあったよ。
http://web11.freecom.ne.jp/~chaichan/qanda/qa414.htm
034733601/11/18 14:08ID:HApvi2Od
>>336
誰か教えて〜
0348名無しさん＠お腹いっぱい。01/11/18 14:25ID:???
>>347
>>342に答えあるだろうが…。
034934801/11/18 14:26ID:???
それで分からなきゃ検索しなさい。
検索して分からないようなら
自治体主催のIT講習会でも行って来なさい。
0350名無しさん＠お腹いっぱい。01/11/18 14:43ID:???
>>349
ここは初心者用スレだというのがわからんのか？
0351名無しさん＠お腹いっぱい。01/11/18 14:53ID:???
>>350
だから何か？
0352名無しさん＠お腹いっぱい。01/11/18 14:58ID:???
・初心者向け結論・
サーバーの設定によってはリモートホストは取得できない。
ＩＰで我慢すれ。
035334401/11/18 18:07ID:???
>>346さんので成功したんですが、
Perlを通して吐き出す際、壊れてしまうみたいです。(Windows+ActivePerlで.zipを出力)

foreach $_ (@temp) {
　　$_ =~ s/\n//g;
　　print $_;
}
とりあえずこれで\nは消してみたんですが、後ろの方がさっぱり消えてしまいます。
(.rarに関してはRar!としか出ません・・・)
何をどう置き換えればいいんでしょうか？
0354名無しさん＠お腹いっぱい。01/11/18 18:36ID:???
binmode()
035535301/11/18 21:14ID:???
>354 出来ました！　もっと調べるべきでした。すいません
0356RA・イール01/11/19 15:45ID:jO7Jmwt3
300で質問している者です。度々申し訳ありません。
grepの部分で
１.　$command .= '"/usr/bin/grep ' . "\'$string\' " . "$filepath " . "| head -n $linenum \"|";
１のようにした場合、２バイト文字や記号等も拾ってくれるのですが
２.　$command .= '"/usr/bin/grep -h "' . "^$day_string" . '" ' . "$filepath " . "| grep " . "\'$string\' | head -n $linenum \"|";
上記の場合、２バイト文字や記号等を認識してくれないのですがどうしてでしょうか？
どうすればよいのかアドバイスしていただけないでしょうか？
よろしくお願いします。
0357名無しさん＠お腹いっぱい。 01/11/19 16:05ID:???
良く解らんけど、2回目のgrepの手前でnkf通すとどうなる?
2バイトはさっぱりだけど＆％＄とかは2回通ったけどなぁ･･･
Unix板のハッカーに聞けばどしどし答えてくれそう　（＾＾；
0358名無しさん＠お腹いっぱい。01/11/19 16:06ID:???
あ、違った。パイプから返ってくる時におかしくなってるのか？
だったら解んないっす
0359名無しさん＠お腹いっぱい。01/11/19 19:04ID:pdb1llN8
>>を見つけたら置換したいんですが上手くいきません

$test =~ s/>>/aa/g;

>>の指定はどのようにしたらいいのでしょうか
0360名無しさん＠お腹いっぱい。01/11/19 19:21ID:???
んなこたあ無い
0361名無しさん＠お腹いっぱい。01/11/19 20:48ID:f2JzrPLI
掲示板の改造してたんですが
>じゃなくて>に中で変換されていました・・・
0362名無しさん＠お腹いっぱい。01/11/19 20:49ID:f2JzrPLI
↑＆ｇｔに変換されていました
（半角で書くと変換されちゃうんですね）
0363名無しさん＠お腹いっぱい。01/11/19 21:32ID:j7n2AWkf
デザイン的に良くないので、petitboardの著作権表示を修正したら動かなくなったんですけど、何故でしょうか？
冬厨ですみません。
0364名無しさん＠お腹いっぱい。01/11/19 21:48ID:???
>363
http://pc.2ch.net/test/read.cgi/php/988808396/
どうぞこちらへ。
0365名無しさん＠お腹いっぱい。01/11/19 21:53ID:j7n2AWkf
>>364

flock(OUT, 8);
close (OUT);

を、

exit;

に変えればよろしいのですか？
0366名無しさん＠お腹いっぱい。01/11/19 22:19ID:???
そのとおりです！！
凄いですね　(^ｖ^
0367名無しさん＠お腹いっぱい。01/11/19 22:29ID:WFMClysi
data.txtに
1・・
2・・
3・・
・
・
と並んでいるのを読み込み、上から「10件まで」と件数を決めて
別のファイルに書き込みたいのです。
openやprintの使い方はわかるのですが、件数の決め方がわから
ないので教えて下さい。
0368名無しさん＠お腹いっぱい。01/11/19 22:39ID:???
openやprintの前にforの使い方をおぼえよう（ｗ
0369名無しさん＠お腹いっぱい。01/11/20 00:17ID:???
>>368
forの方が後だろ(w
0370名無しさん＠お腹いっぱい。01/11/20 00:19ID:???
>>369はforで挫折したそうです　pupu
0371名無しさん＠お腹いっぱい。01/11/20 00:34ID:???
>370
他人を主人公にして自分の思い出を語るのはやめれ。
0372名無しさん＠お腹いっぱい。01/11/20 00:45ID:???
鋭いですね、そのとおりです>>371さん
あれは小学5年頃の話でしょうか
話について来れなくて気を悪くなされたならごめんなさい。
0373名無しさん＠お腹いっぱい。01/11/20 01:31ID:???
a.cgiからb.plのサブルーチンを呼び出す事は可能でしょうか？
0374名無しさん＠お腹いっぱい。01/11/20 01:35ID:???
require または　use
ってことでしょーか？
0375名無しさん＠お腹いっぱい。01/11/20 03:42ID:???
>>370、372

369をどう読めばforで挫折したと解釈出来るんだ？
ぼうやはforより先にひらがなを勉強すべき(w
0376名無しさん＠お腹いっぱい。 01/11/20 06:49ID:???
(w(w
0377名無しさん＠お腹いっぱい。01/11/20 17:18ID:???
小学校５年生の頃といえば・・・ベーマガに投稿した自作ＰＲＧが掲載された頃ゾヌ
あの頃はフロッピーディスクなんて高嶺の花・・・
0378名無しさん＠お腹いっぱい。01/11/21 01:35ID:???
Perlってヌルターミネートして、文字列を分割とかって出来ない?
例えばstring = "hoge#poyo#1000#comment"、みたいなデータが有ってCommentだけが
不定長だとするとCとかならstring[4] = '\0';とかしてmoveせずにガンガン使えるんだけど
splitだとCommentの最後までループしちゃうし、値をコピーするから
凄く遅そうですよね。commentが10000バイトとかだと結構差が有るんで
何とかしたいんです。
BBSなんかの行解析は大抵splitを使ってるけど・・・・
indexとか使って上手く出来ないですかね････
0379適当に即答。01/11/21 01:41ID:???
s/^(.*?)#/\1/ じゃだめ？
0380名無しさん＠お腹いっぱい。01/11/21 07:57ID:???
>378
comment以外が固定長なら
substr($string,14,length($string))
でできないかな？
0381名無しさん＠お腹いっぱい。01/11/21 20:46ID:???
>377
３０代オヤヂ族かよ（ｗ
いいトシして板スレ違いは自粛しようぜ（大爆笑）
0382名無しさん＠お腹いっぱい。01/11/21 22:47ID:???
ごめんチャイナ（ぐすん）
0383名無しさん＠お腹いっぱい。01/11/22 13:24ID:???
それってもへんじょだろ？
0384名無しさん＠お腹いっぱい。01/11/22 14:27ID:???
うむむ。。。本当にそれでインカ？
0385名無しさん＠お腹いっぱい。01/11/23 06:07ID:rvdfMFcf
Perlの練習に一番いいエディタって何でしょう？
今Vivi使ってますが試用期間過ぎてるのでウザイです。
シェアの定番は秀丸というのは知ってますがフリーで
いいのありませんか？
あまりいいのなければViviに3000円出そうと思ってるのですが。。
■ このスレッドは過去ログ倉庫に格納されています