トップページ⇒php
983コメント345KB

CGIだけど、なんか質問ある?part4

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん@お腹いっぱい。01/09/18 18:17ID:plR9HC2E
print "くだらねぇー質問はココから始めろや!\n";

print<<HTML_END;
<a href="http://corn.2ch.net/test/read.cgi?bbs=php&key=988727833" target="_blank">旧スレ</a>
HTML_END
0082名無しさん@お腹いっぱい。01/10/06 10:49ID:???
追
application/zip吐くとファイル名が.cgiになるので凄くダサいです
今のブラウザの実装は知らないけど
0083名無しさん@お腹いっぱい。01/10/06 10:57ID:???
ありがとうございます!>>80
ヘッダに書いて、あとはクライアント次第ということで
行こうと思います。助かりました。
0084名無しさん@お腹いっぱい。01/10/06 11:06ID:???
>昔のIEなんかだと、どんなHTTPヘッダを付けても
今でもそう、つーかバイナリ判別の精度が上がってるような  (-_-..
0085名無しさん@お腹いっぱい。01/10/06 11:21ID:MEgHrhMk
テキストの場合どうするんだろ?
text/plainだとブラウザで表示されちゃう率が高いから
application/octet-streamにするって感じ?
シフトJISそのまんま流すからapplication/octet-stream?

…ていうか漏れわけわかんないこと書いてる?
ヘッダむずかしー
0086JAPU@神戸もとらだね!01/10/06 11:24ID:???
>>80
テキストファイルなのにapplication/octet-stream 吐き出すのは利用者にとっては迷惑かも知れない。

> 昔のIEなんかだと、どんなHTTPヘッダを付けても
> 中身がテキストっぽければ画面に表示しちゃったからなあ。

今でも中身をみて判断するというダサい実装になっている。
text/plain 吐き出しても HTML っぽければそう解釈するし。

>>82
moe.cgi/nae.zip のようにアクセスすると nae.zip というファイル名で保存できるかもしれない。
00878001/10/06 12:13ID:780019M6
>85-86
あー、そうか。テキストだよな。

>テキストファイルなのにapplication/octet-stream 吐き出すのは
なはは。たしかに。

で、UserAgentを見てWin系なら改行コードを"\r\n"にするとか
小細工をはじめると、泥沼にズブズブ入っていくんですな、きっと。

>text/plain 吐き出しても HTML っぽければそう解釈するし。
がーん。ほんとだ。ダセー>IE5
0088名無しさん@お腹いっぱい。01/10/06 12:24ID:780019M6
>>84
>今でもそう、つーかバイナリ判別の精度が上がってるような  (-_-..
なんか最悪ですな。ヘッダを信用しないのはなぜだ?>MS
サーバ管理者にはmime.typesを管理する能力がないとでも?
あ、それはApacheの話か。。。IISはその辺どーなってんの?
00897601/10/06 13:59ID:???
>>77-78
ありがとうございます。
確かにCookie拒否されたらダメでしたね…。
そこまで考えてませんでした。
IPアドレスなど使って作ってみようと思います。

実装の違いについては、
$ENV{'HTTP_COOKIE'}を両者に吐かせてみても違っているので
もうちょっと調べてみたいと思います。
0090名無しさん@お腹いっぱい。01/10/07 13:18ID:n4Hjc.oI
掲示板だけを運営していたのですが閉鎖する事になり
その事を来て頂いていた皆さんにお知らせしたいのです。
閉鎖にいたっての報告などはHTMLに書きWWWにアップして
いるのですが、そのURLに自動的にジャンプするには
どういったcgiを書けばよいのでしょうか?
掲示板にURLを書けば良い事なのですが掲示板はもう削除して
しまって無いので自動的にそのURLにジャンプするcgiを教えて下さい。
0091名無しさん@お腹いっぱい。01/10/07 13:46ID:???
>>90
CGIなら。
#!/usr/local/bin/perl
print "Location: http://xxx.net/user/info.html\n\n";

.htaccessが使えるなら。
Redirect "/user/bbs/bbs.cgi" "http://xxx.net/user/info.html"
0092名無しさん@お腹いっぱい。01/10/07 17:10ID:n4Hjc.oI
>>91
ありがとうございます。
0093名無しさん@お腹いっぱい。01/10/07 20:05ID:TC4eI282
Cobalt (多分 Qube3 という機種) で Perl の CGI を動かそ
うとしたんですが、トラブってしまいました。

で、調べてみたら環境変数 PATH_INFO の値が変です。
http://hoge.fuge.co.jp/bbs/bbs.cgi
がスクリプトへの URL だとすると、
PATH_INFO=/bbs/bbs.cgi になっています。この値が設定さ
れていると CGI.pm の url(-relative=>1) が undef になり、
また url(-absolute=>1) は空文字列になっちゃうようです。

とりあえず new CGI をする前に $ENV{PATH_INFO} = '' と
して逃げましたが、同様の問題を経験された人はいますか?
あるいは、このサーバの設定が悪かっただけでしょうか…
0094名無しさん@お腹いっぱい。01/10/08 00:40ID:???
それ俺も喰らった事あるなぁ 多分鯖はズィタミだったと思う
丁度今の2chのread.cgiみたいにしてたんで困ったよ
結局正規表現でゴミ取って、使ってたけど鬱陶しいからQUERY使うようにしたよ(´Д`;) ヘナヘナ
原因不明、多分設定がタコだと思ったんだけど
俺も知り鯛あげ!
0095名無しさん@お腹いっぱい。01/10/08 00:41ID:???
下げちゃった・・・
0096名無しさん@お腹いっぱい。01/10/08 11:29ID:???
PATH_INFOが変てーと、原因はなんでしょうね。
触ったことないけどCGIWrapの問題?
古いApacheだとhttpd.confのAlias設定でも問題出るらしい?
00979301/10/08 16:07ID:???
CGIWrap や cobalt-users という ML のアーカイブ
を検索すると、同じような問題が出ていますね。原
因はまだよく分かりませんが。
0098名無しさん@お腹いっぱい。01/10/08 16:20ID:???
>>90
つーか自動的にジャンプさせるぐらい
METAタグでできるだろ。
0099名無しさん@お腹いっぱい。01/10/08 16:38ID:???
>>98
でもMETAタグを含むHTMLデータをbbs.cgiに吐かせるぐらいなら
Locationでいいじゃん?
0100名無しさん@お腹いっぱい。01/10/08 16:47ID:???
>>98
分かりきった事得意げに書くなよ (´Д`;) アウアウー
01019301/10/08 16:50ID:???
問題が起きた CGI.pm のバージョンは 2.56 でした。
もっと新しいバージョンなら url() のコードも変わっ
ているので、問題無いかも。
0102名無しさん@お腹いっぱい。01/10/08 17:11ID:???
>>101
今CGI.pm ver2.752のソースみたら、PATH_INFOを含む部分の
コードが何行かコメントアウトされてますね(笑

そしてCGI.pmのurl()が正しく動作するようになっても
PATH_INFO自体を使いたいという>>94の願いが
天に届くことはなかった。。。ナムナム
01039301/10/08 17:31ID:???
>>102
> 今CGI.pm ver2.752のソースみたら、PATH_INFOを含む部分の
> コードが何行かコメントアウトされてますね(笑

# If anybody knows why I ever wrote this please tell me!
ってアンタ(藁

> そしてCGI.pmのurl()が正しく動作するようになっても
> PATH_INFO自体を使いたいという>>94の願いが
> 天に届くことはなかった。。。ナムナム

url() なら代替案はいろいろありますがねぇ…

http://list.cobalt.com/pipermail/cobalt-users/2000-October/023300.html

AliasMatch と CGIWrap の関係で PATH_INFO が
正しくならないのは、仕方無いのかな…
0104名無しさん@お腹いっぱい。01/10/08 17:52ID:???
I am onanism boy!!
ore no eigoha metyakutya daze!!!!!
0105名無しさん@お腹いっぱい。01/10/08 19:45ID:x261FvpI
現在アンケートページを作ってます。
必須項目が入力されていない場合はエラー用のページに飛ばして、そこに戻る
ボタン(単なるリンク)を用意しています。
その戻るボタンをクリックして最初のアンケートページに戻る際、各質問項目に
前回の値(ユーザーがエラーページに飛ばされる前に入れていた値)をあらかじめ
入れておきたいのですが、どうやれば出来るのか上手く出来るのかが分かりません。

フォームデータはCGI_Lite.pmを使ってます。ヒントでも良いので、よろしくお願いします
0106名無しさん@お腹いっぱい。01/10/08 20:11ID:???
>>105
『ブラウザの「戻る」ボタンを押して戻ってください』
とエラーページに書いておく。カコワルイ?

解決になっていないような気もする。
0107名無しさん@お腹いっぱい。01/10/08 20:15ID:???
>105
foreach(keys %FORM){
print qq(<input type=hidden name="$_" value="$FORM{"$_"}">\n);
}
を、戻るボタンのところに埋め込めば?
0108名無しさん@お腹いっぱい。01/10/08 20:23ID:???
hiddenで渡すか

print<<"_END_";
ブラウザのバックボタンをオシテクレ  w
_END_
0109名無しさん@お腹いっぱい。01/10/08 20:26ID:WEFUx3wE
生IPを抜くCGIありませんか?
0110名無しさん@お腹いっぱい。01/10/08 20:33ID:???
コチラニドウゾ
http://salad.2ch.net/download/
0111名無しさん01/10/08 20:44ID:???
アンケートを受け付けるCGIが直接再入力用のフォームを出力するとかが
一番いいような気がしますが。

どうしてもHTMLで書かれたアンケート入力ページに戻したいという動機があるなら
JavaScript+Cookieとか?
0112名無しさん@お腹いっぱい。01/10/08 20:47ID:???
>>105
「戻らない」っていう方法もあるかも。不備の
ある部分だけのフォームを表示し続ける。OK な
項目は hidden で渡して逝く。

Yahoo Japan ID の登録がそんな感じだったと
思う。

手間がかかる割りに役に立たないような。
0113名無しさん@Windowser01/10/09 10:19ID:???
CGI.pm VERSION3 ってどなたか使った事ありますか?
とりあえず読み込み・初期化(do FILE)だけを比べてみると5倍ほど早いようですが。
0114名無しさん@Windowser01/10/09 11:13ID:???
あーでもまだバグだらけみたいですね。
#line 170 CGI/Object/Html.pm
にバグみっけ。
[CGI.pm version3.01]
0115名無しさん01/10/11 22:51ID:OddRAZgw
perl+cgiで掲示板旁から始めようと思っています。
そこで、とりあえず、ソースをつくって、
コンパイルしようとしたら、

#perl bbs2.cgi
(offline mode: enter name=value pairs on standard input)

というエラー??がでます。
意味が分かりません。

さらに、僕は、このcgiで
use DBI;
use strict;
use CGI;
use Date::Calc qw(Today Add_Delta_Days);
というふうに書いているのですが、
DBIとDate::CalcはCPANからインストールしたのですが、
CGIとstrictそのものは、CPANにおいてなかったませんでした。
この2つのモジュールは最初から入っていますよね??
ちなみにOSはFreeBSDでapacheを使ってます。
0116名無しさん01/10/11 22:52ID:OddRAZgw
ちなみにapacheでも
internal server errorがでます。

昔は、動いたんですが。
0117名無しさん@お腹いっぱい。01/10/11 23:55ID:aIf8/row
>>115
それ、なぜかCGI.pmがフルデバッグモードで動いてるみたいです。
use CGI qw(-no_debug ・・・);
と、-no_debugを指定すると消えませんか。
くわしくはperldoc CGIで"DEBUGGING"の説明を見てください。
011811501/10/12 00:01ID:2WUE5QsI
>>117
ほんとだ!
できました。こういう事がおきると初心者には対処できないです。
CGI、別に何もいじってないんですが。。。
"DEBUGGING"また読んでおきます。
0119名無しさん@お腹いっぱい。01/10/12 00:20ID:???
うちでも昔おんなじことがおきたよ。
バージョンによっては$CGI::DEBUGの初期値が2に設定されてるのでは
ないかと推測。本来は1なんですよね?
ていうか今↓のスクリプトを実行したらDEBUG=1になってた。

use CGI;
print "VERSION : $CGI::VERSION\n";
print "DEBUG : $CGI::DEBUG\n";

実行結果
VERSION : 2.752
DEBUG : 1
0120名無しさん@お腹いっぱい。01/10/12 15:23ID:2WUE5QsI
初心者ですが、頑張って掲示板を完成させてみました。
しかし、以下のソースだと、ページをリロードするたびに、
同じ内容の投稿がなされてしまいます。その改善法を御教示お願いします。
0121part101/10/12 15:24ID:2WUE5QsI
#!/usr/bin/perl

use DBI;
use strict;
use CGI qw(-no_debug);
use Date::Calc qw(Today Add_Delta_Days);

#パスの設定
my $nkf = '/usr/local/bin/nkf';

#オブジェクトの生成
my $q = new CGI;
my $msg = $q->param('msg');
#出力文字コードの設定
open HTML, "|$nkf -e";
select(HTML);
$|=1;
0122part101/10/12 15:25ID:2WUE5QsI
#!/usr/bin/perl

use DBI;
use strict;
use CGI qw(-no_debug);
use Date::Calc qw(Today Add_Delta_Days);

#パスの設定
my $nkf = '/usr/local/bin/nkf';
0123part201/10/12 15:25ID:2WUE5QsI
#html表示
print $q->header(-expire=>'now');
print $q->start_html(-title=>'bbs',-bgcolor=>'#DDDDDD');
print "掲示版";
print $q->hr;
print $q->start_form(-method=>'POST',-action=>'./bbs2.cgi');
print $q->textarea(-name=>'msg',
-rows=>3,
-column=>16);
print "<br>\n";
print $q->submit(-name=>'submit',-value=>'送信');
print $q->end_form;

if ($msg ne '' ){

open(OUT,">> ./bbs2.dat");
print OUT "$msg<HR>\n";
close(OUT);
}
0124part301/10/12 15:26ID:2WUE5QsI

# データファイル内容を表示
open(IN,"./bbs2.dat");
print <IN>;
close(IN);

print $q->end_html;
close(HTML);
0125名無しさん@お腹いっぱい。01/10/12 15:27ID:2WUE5QsI
121 123 124
の順番のソースファイルです。
ソースそのままはれるかと思ったら
"改行多すぎます"
といわれたので、分割しました。
掲示板ぐちゃぐちゃにしてごめんなさい
0126ソースは見てないけど ^-^;01/10/12 15:39ID:???
投稿した後にリロードするとそうなるのはブラウザの仕様ですの
POSTに値がセットされた状態でリロードされるから
いやならLocation: ./script.cgi\n\n か
METAでほげってセッションを分けるですの
0127名無しさん@お腹いっぱい。01/10/12 15:39ID:???
多重投稿を防ぐ方法のメジャーなものには
・直前のデータを読み込んで、内容を比較する
・ワンクッション置く(「無事投稿されました」のようなページを置く)
・最後にLocationで飛ばす
があります。
リロードで送信されるのを避けるにはLocationが適当でしょう。
0128名無しさん@お腹いっぱい。01/10/12 15:42ID:AsTpdvqA
>>120
use DBI;
012912001/10/12 16:15ID:2WUE5QsI
良く理解できました。
ありがとうございます。
頑張ります。
0130名無しさん@お腹いっぱい。01/10/12 21:04ID:YvyJWcYo
AnHttpd使ってローカル環境でCGIのチェックをしているのですが
cookieが上手くブラウザに格納されてくれません。
ひょっとして http://localhost/ だとだめなんでしょうか?

あと path、domeinって省略してもブラウザで勝手に解釈
してくれるんでしたっけ?
013113001/10/12 21:10ID:???
>>130
自己レスです。
cookie吐き出すだけのやつ試してみたらちゃんとlocalhostでも
登録されていました。どうやら他に原因があるようです。
どうもすいませんでした。
0132名無しさん@お腹いっぱい。01/10/13 02:00ID:???
>あと path、domeinって省略してもブラウザで勝手に解釈
>してくれるんでしたっけ?
OK、でもDOTが2つ無いとダメだよ
013313001/10/13 02:09ID:???
cookie登録されない理由わかりました。
HTTP::C\ookiesの

scalar( $cookie_ja->as_string );

で取り出した expires の書式が

Mon, 31, Dec 2001 20:00:00 GMT
じゃなくて
2001-12-31 22:00:00Z

になっていたのが原因でした(なぜにこの書式?)。

>>132
DOT2つというのはどういうことでしょう?
0134名無しさん@お腹いっぱい。01/10/13 02:16ID:???
>>132
DOT2つってHTTP::Cookies使うときでしょ!
おれもハマッたことあるよー。やっぱlocalhostでした。
あれはナニ?Cookieにそんな制限あるんですか?
0135名無しさん@お腹いっぱい。01/10/13 02:21ID:???
ここのドメインの所読んでみて、僕も英語がプアだから
セキュリティ確保なんだけど、実は1つでも良いんだよなあ・・・
http://www.netscape.com/newsref/std/cookie_spec.html
0136名無しさん@お腹いっぱい。 01/10/13 02:23ID:???
DOT2つってこれじゃなくて? -> .
0137名無しさん@お腹いっぱい。01/10/13 02:23ID:???
うわヤな言い方だ
s/僕も/僕は/ (-_-)
013813401/10/13 02:48ID:Deyy6KfQ
>>135
おお。さんきゅ。セキュリティかー。
0139名無しさん@お腹いっぱい。01/10/13 03:34ID:qXCBod/U
またまたcookieについてです。今作っているのが

ローカルマシン
 ↓
CGI( LWP::UserAgent、HTTP::Cookies使用 )
 ↓
目的のサイト

という中継ツールなのですが、「目的のサイト」のcookieを
ローカルマシンに保存することはできました。
しかしそれを「目的のサイト」側から読ませることができません。

具体的には以下のようにやっています。
----------------------------------
$ua = LWP::UserAgent->new;
$ck = HTTP::Cookies->new;
$hd = HTTP::Headers->new;
$req= HTTP::Request->new( 'GET', 'http://www.hoehoe.com/' );

### ブラウザの cookie情報をドメインを書き換えて登録
foreach $ckey ( keys %COOKIES ){
  $ck->set_cookie( , $key, $COOKIES{$key}, '/', '.hoehoe.com', , , ,60*60*24*365*10 );
}

$ck->add_cookie_header( $req );
$ua->cookie_jar( $ck );

$res = $ua->request( $req );
$ck->extract_cookies( $res );
----------------------------------

ドメイン名を書き換えて HTTP::UserAgent に登録って出来るのでしょうか?
0140名無しさん@お腹いっぱい。01/10/13 06:40ID:bzY0j0uY
すみません。
カウンターなんですけど、
ソースにはちゃんと出てるのに
画像が表示されないのはなぜですか?

<img src="cgi-bin4/ecount.cgi?6"width="6" height="13">

こんな感じで設置してるのですけど。
0141名無しさん@お腹いっぱい。01/10/13 07:48ID:???
>140
まず基本的なこととして、カウンターのURLを直接入力してちゃんと表示されるか確認してみよう。
それで表示されたら単なるURLの指定ミス。
表示されなかったらスクリプトの問題。
スクリプトのソースを公開したまへ。
014214001/10/13 08:49ID:bzY0j0uY
>>141
わざわざ有難う御座いますです。
ログファイルのパス:OK!
ログファイルのパーミッション:OK!
画像:./gif/0.gif → OK!
画像:./gif/1.gif → OK!
画像:./gif/2.gif → OK!
画像:./gif/3.gif → OK!
画像:./gif/4.gif → OK!
画像:./gif/5.gif → OK!
画像:./gif/6.gif → OK!
画像:./gif/7.gif → OK!
画像:./gif/8.gif → OK!
画像:./gif/9.gif → OK!
ロック形式:symlink
ロックディレクトリのパス:OK!
ロックディレクトリのパーミッション:OK!

ちゃんとOKでてるのになぜか画像表示されない・・・
0143名無しさん@お腹いっぱい。01/10/13 08:52ID:???
>142
そうじゃなくて。
http;//xxxxxxxx.com/cgi-bin4/ecount.cgi?6
でカウンターは表示されるの?
014414001/10/13 09:01ID:bzY0j0uY
>>143
はい。画像はちゃんと表示されました。
0145名無しさん@お腹いっぱい。01/10/13 09:07ID:???
>144
じゃあ、ソース公開きぼん。
ソースを見ないと画像の表示されない理由はわからないよ。
Content-typeが間違ってるとかじゃないの?
014614001/10/13 09:23ID:bzY0j0uY
ttp://www.kent-web.com/count/ecount.html?

kentのecountなんですけど。。

open(IMG,"$imgdir$view$tail") || &error;
print "Content-type: image\/$mime\n\n";
binmode(IMG);
binmode(STDOUT);
print <IMG>;
close(IMG);

こんな感じなんですが間違っているのかどうか
さっぱり分かりませんです。
0147名無しさん@お腹いっぱい。01/10/13 10:04ID:???
http;//xxxxxxxx.com/cgi-bin4/ecount.cgi?6

で画像が表示されるなら

<img src="cgi-bin4/ecount.cgi?6"width="6" height="13">

が間違ってるんだろ。
0148名無しさん@お腹いっぱい。01/10/13 10:35ID:???
>147
そうだ。
ちょっと眠かったからボケてしまった。
スマソ。>140
0149 01/10/13 11:50ID:???
015013901/10/13 14:33ID:qXCBod/U
>>139

$ck->set_cookie( , $key, $COOKIES{$key}, '/', '.hoehoe.com', , , ,60*60*24*365*10 );

↑でドメイン、パスを書き換えて UserAgentに cookieを登録することは
出来ましたが、目的のサーバーからは見えないようです。

HTTP::UserAgentって自分の $ENV{'HTTP_COOKIE'} を持つことは
できないのですか?
0151名無しさん@お腹いっぱい。01/10/13 14:51ID:???
Cで全ての環境変数を表示させることはできますか?
getenv()をどう使ったら全部表示させられるか教えてください。
0152名無しさん@お腹いっぱい。01/10/13 15:01ID:c5AddB8U
>>151
int main(int argc, char **argv, char **envp) {以下略

あとはenvpから取得。つーのを愛用してます。
0153名無しさん@お腹いっぱい。01/10/13 15:15ID:???
>>151
main() の第3引数を使え。
getenv() は特定の環境変数だけだろ。
0154名無しさん@お腹いっぱい。01/10/13 17:16ID:???
ネットに存在するアーカイブ内のファイルが抽出できるCGIってないですかね?
melt.cgi/www.hoge.net/hoge.lzh/readme.htm

とするとhoge.lzh内のreadme.htmが表示できるみたいな奴。
0155名無しさん@お腹いっぱい。01/10/13 17:33ID:???
>>154
このスレに書いたということは、そのやり方を教えてくれという事か?
とりあえずLWPでアーカイブを取ってきて
適当なモジュールなり外部プログラムなりで展開して
目的の文書を探す、という感じだと思うが。
まぁ非効率的だな。
0156名無しさん@お腹いっぱい。01/10/13 17:51ID:???
サーバ上のアーカイブと直にデータがやり取りできる
プロトコルって、あったら便利かもなー。
そういうのがあれば、>>154みたいなCGIも効率的に書けそう。
015715101/10/13 17:53ID:???
>>152-153
ありがとうございます。
main関数って引数があったんですね(^_^;てっきりvoid型かと・・・・
0158JAPU@見知らぬ国のトリッパー ◆dcddJAPU 01/10/13 18:06ID:???
extern char **environ;
ってのもあるな。

何種類かのUNIXで調べたけど、全部であったからそれなりに移植性はありそう。
(FreeBSD, OSF1, Linux)
0159名無しさん@お腹いっぱい。01/10/13 18:16ID:???
>>158
environてのはANSIの規格にないんでしたっけ?
main()の第3引数はたしか(char**)型で環境変数が入るって
規定されてようなおぼろげな記憶。。。
0160JAPU@見知らぬ国のトリッパー ◆dcddJAPU 01/10/13 19:20ID:???
多分ANSIでは無かったような...

とりあえずこんなの発見。
http://cgi3.tky.3web.ne.jp/~yutakakn/misc/tips/clang/page1.html
0161名無しさん@お腹いっぱい。01/10/13 21:34ID:nMwqY5mo
スクロールバーの色を変えるのってどうやるの?
0162名無しさん@お腹いっぱい。01/10/13 21:36ID:???
>>161
こちらへどうぞ。
http://natto.2ch.net/hp/
0163名無しさん@お腹いっぱい。01/10/13 23:26ID:AeCpTnbA
アンケートを取るCGIを作っています。
現在のデータ形式は↓こんなのです。(本当はタブ区切りです)

めろん<>山田
めろん<>田中
めろん<>鈴木
すいか<>山田
すいか<>鈴木
いちご<>田中
りんご<>鈴木
ぶどう<>鈴木
ぶどう<>竹下
ぱいん<>山田

このままだと見づらいので、

3<>めろん<>山田<>田中<>鈴木
2<>すいか<>山田<>鈴木
2<>ぶどう<>鈴木<>竹下
1<>いちご<>田中
1<>ぱいん<>山田
1<>りんご<>鈴木

こんな風にデータをコンバートして重複部分をまとめたいんです。
ソートを使えばいいのかなと思ったんですが、アイデアが浮かびません。。
「こうすりゃいいだろゴルァ」という方法があったらご教授下さい。
0164素人的見解01/10/13 23:40ID:???
めろん<>山田
めろん<>田中
めろん<>鈴木
すいか<>山田
すいか<>鈴木
いちご<>田中
りんご<>鈴木
ぶどう<>鈴木
ぶどう<>竹下
ぱいん<>山田

↑これが@dataに入っているとして

foreach(@data){
$_ =~ s/\n//;
@mini = split(/<>/);
$count{"$mini[0]"} ++;
$touhyou{"$mini[0]"} .= "<>$mini[1]";
}
foreach(sort{$count{"$a"} => $count{"$b"}} keys %count){
push(@save_data,qq($count{"$_"}<>$_$touhyou{"$_"}\n);
}

もっと効率いい方法はあると思う・・・。
0165名無しさん@お腹いっぱい。01/10/13 23:59ID:???
#!/usr/bin/perl
use constant SEPARATE => qq(<>);
use strict;
my %data = ();
while(<DATA>){
chomp;
my($hoge, $fuga) = split SEPARATE;
push @{$data{$hoge}}, $fuga;
}

# 試しに出力
foreach (
sort{ @{$data{$b} } <=> @{$data{$a}} } keys %data
){
print "$_=>", join(",", @{$data{$_}}), "\n";
}
__DATA__
めろん<>山田
めろん<>田中
めろん<>鈴木
すいか<>山田
すいか<>鈴木
いちご<>田中
りんご<>鈴木
ぶどう<>鈴木
ぶどう<>竹下
ぱいん<>山田
016616301/10/14 00:39ID:???
>>164-165
上手くいきました!
これを参考にして、自分なりに改良していきたいと思います。
ありがとうございました。
0167名無しさん@お腹いっぱい。01/10/14 00:42ID:???
@data = qw[
めろん<>山田
めろん<>田中
めろん<>鈴木
すいか<>山田
すいか<>鈴木
いちご<>田中
りんご<>鈴木
ぶどう<>鈴木
ぶどう<>竹下
ぱいん<>山田
];

# 作業
foreach(@data) { # 集計
next if /^#/;
($item,$name) = split /<>/;
$count{$item}[0]++;
push(@{$count{$item}}, $name);
}

@save_data = # 配列に保存
map { join('<>', @{$count{$_}})."\n" }
sort { $count{$b}[0] <=> $count{$a}[0] }
keys %count;

# テスト出力
foreach( @save_data ) {
print;
}

__END__
016816701/10/14 00:43ID:???
あら,解決してたか。
016916601/10/14 00:59ID:l01Ytp8Q
>>167-168
ありがとうございます。
ソートが苦手なのでとても参考になります。
0170ほげっぷ01/10/15 00:16ID:???
WinでもUnixでもいいんですが,
ブラウザからでたGETやらPUTやらのメッセージを
生で見たいんですけど,いいツールありませんか?
0171まじで言ってるの?01/10/15 00:34ID:???
ネタ?
print $ENV{QUERY_STRING}; GET
print $OUT = <STDIN>; POST
PUTと言うMethodは知らない、勘違いしてたらスマソ
0172名無しさん@お腹いっぱい。01/10/15 00:38ID:???
HTTPヘッダが見たいとか・・・。
0173名無しさん@お腹いっぱい。01/10/15 00:44ID:???
>>171
リクエストヘッダをそのまま返すようなHTTPDを書くとか。
スマートな方法は知らん。
0174名無しさん@お腹いっぱい。01/10/15 00:44ID:???
>>170だった。スマソ
0175名無しさん@お腹いっぱい。01/10/15 00:46ID:???
telnet
0176名無しさん@お腹いっぱい。01/10/15 00:46ID:???
Etherealとかでパケットキャプチャする
017717101/10/15 00:51ID:???
>>172
ああ、そゆ意味なんかなぁ
http://ebi.2ch.net/test/read.cgi/php/995136198/l50
丁度良いスレが有った
オミトロンか横取り丸辺りで見れるよ、Regetとかでも過激にリダイレクト
されなきゃOK
質問の意味がわかんないの・・・
0178名無しさん@お腹いっぱい。01/10/15 01:18ID:???
IEやNetscapeが実際にどんなデータを送ってるのか見たくて
ローカルサーバを作ってアクセスしてみたのっておれだけ?
サーバつってもPerlのHTTP::Daemonで10行ぐらいのやつだけど・・・。
0179電動ナナシ01/10/15 01:32ID:???
>>171
PUT Method はあるぞ。WebDAV だと必須。
Configuring your WWW server to understand the PUT method
http://www.w3.org/Amaya/User/Put.html
018017101/10/15 01:44ID:???
(; ・∀・)ドヒャー 知らなかったよぅ
さんくす>>電動ナナシさん
つーかGET,HEAD,POST,PUT...等って、、まだ有るノカー
0181名無しさん@お腹いっぱい。 01/10/15 02:18ID:???
ここってみょーに素直な人多いな
何か他の(某保険板)板とかから来たら2chじゃ無いみたいで気持ち悪いよ w
もっと罵りあえや! (ウソ)
でもちょっとびっくりしたよ
0182名無しさん@お腹いっぱい。01/10/15 02:53ID:???
METHODはとりあえず八種類定義されてる。
http://www.ietf.org/rfc/rfc2616.txt
とりあえず一通り目を通しておくと良いよ。
■ このスレッドは過去ログ倉庫に格納されています