Perlコーディング初心者質問スレ Part 63
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2011/09/09(金) 18:11:49.71ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >>2 以降
前スレ http://hibari.2ch.net/test/read.cgi/php/1295170172/
0462nobodyさん
2012/01/31(火) 22:57:27.90ID:???0463nobodyさん
2012/01/31(火) 23:06:58.71ID:???初心者スレだしねミ☆
0465nobodyさん
2012/02/01(水) 00:41:51.19ID:???他からデータを持ってきたりとかしない場合には utf-8 で問題無い。
0466nobodyさん
2012/02/01(水) 01:42:35.88ID:???0467nobodyさん
2012/02/01(水) 04:46:09.17ID:???0469nobodyさん
2012/02/01(水) 23:55:30.88ID:???0470nobodyさん
2012/02/03(金) 01:56:38.79ID:???0471nobodyさん
2012/02/03(金) 02:11:46.79ID:???0472nobodyさん
2012/02/04(土) 02:53:54.65ID:???header('Location') で調べれば良いと思ったものの、リダイレクトされた後には Location ヘッダは無く、
max_redirect(0) でリダイレクトさせなければ Location ヘッダを取得できて、リダイレクト先を知ることは出来ました。
max_redirect(0) でアクセスして、Location ヘッダがあれば max_redirect(1) とかにしてアクセス。
リダイレクトが１回で済まなければ max_redirect(2) でアクセスしてみる。
と言ったことをやってるのですが、これが非常に面倒なので結果的にアクセスした URL が取得できればと考えて質問させていただきました。
0473nobodyさん
2012/02/04(土) 03:45:11.91ID:???response_done ハンドラか response_redirect ハンドラに URL を記録する処理を追加する。
http://search.cpan.org/dist/libwww-perl/lib/LWP/UserAgent.pm#Handlers
0474nobodyさん
2012/02/04(土) 09:09:19.56ID:???HTTP::Response オブジェクトは使われた HTTP::Request オブジェクトを丸々保持してるし、
リダイレクト前の Response も previous メソッドでたどれる。
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $res = $ua->get("http://t.co/hog7vmt5");
do { print $res->request->uri, "\n"; } while ($res = $res->previous);
__END__
http://www.asahi.com/national/update/0204/TKY201202030789.html
http://t.asahi.com/5gxs
http://t.co/hog7vmt5
0475473
2012/02/04(土) 09:40:24.08ID:???成程、そっちをみれば良かったのか。勉強になったよ。
use LWP::UserAgent;
my $r = LWP::UserAgent->new->get('http://t.co/hog7vmt5');
print map $_->request->uri . "\n", $r->redirects, $r;
__END__
http://t.co/hog7vmt5
http://t.asahi.com/5gxs
http://www.asahi.com/national/update/0204/TKY201202030789.html
0476nobodyさん
2012/02/04(土) 16:24:03.95ID:???自分には >>474 さんの書き方がしっくりきたので、
これでいこうと思います。
ありがとうございました。
どうでもいい事だけど・・・
do{ }while( ) ってあまり好きじゃないｗ
ループの条件式が後に来るってーのが、なんか馴染めない (^-^；
0477nobodyさん
2012/02/05(日) 04:49:54.12ID:???> do{ }while( ) ってあまり好きじゃないｗ
> ループの条件式が後に来るってーのが、なんか馴染めない (^-^；
その方が都合のいいケースもたまにあるでしょ。
最低1回は処理が必要、って時が。たまにね。
0478474
2012/02/05(日) 10:00:34.05ID:???特にブロックの中身が複数行のときは最後の while を見るまでループだってことがわからんのが痛い。
あとまあ、動作も実際気持ち悪い。本物のループブロックじゃないから next とか使えんし。
まともに書く時はちょっと記述増えることになっても普通の while と last とかを組み合わせるほうがいい。
0479nobodyさん
2012/02/06(月) 18:29:54.91ID:ryr2jQRgPerl でアクセスしたいサイトがあるのですが、Perlからhtmlを読むことが出来ません。
IE8の「ソースを表示」では表示できるのですが。
アクセスしたいサイト ：http://cinema.pia.co.jp/
Perlのスクリプトの場所 ：http://x68000.q-e-d.net/~68user/net/sample/http-client-2.pl
その説明 ： http://x68000.q-e-d.net/~68user/net/http-3.html
【実行結果】
perl http-client-2.pl -GET http://cinema.pia.co.jp/
HTTP/1.1 200 OK
Date: Mon, 06 Feb 2012 09:25:43 GMT
Server: Apache
Last-Modified: Fri, 28 Aug 2009 06:41:24 GMT
ETag: "304a0-2-f9082d00"
Accept-Ranges: bytes
Content-Length: 2
Connection: close
Content-Type: text/html
1
で終わってしまい、肝心のHTMLのBODYの部分を表示する事が出来ません。
どなたか分かる方教えてください。
0480nobodyさん
2012/02/06(月) 20:02:58.69ID:???0482nobodyさん
2012/02/06(月) 22:10:48.93ID:???0483nobodyさん
2012/02/06(月) 22:53:24.14ID:???覚えるともう、病みつきです。ftpもこれでやってます。
sendmailだって大丈夫です。
0484479
2012/02/07(火) 01:13:45.57ID:eo0HNsOB>>480 >>481
LWP 使ってみました。http://www.sea-bird.org/doc/Solaris8/Perl_4.html
出来ました
>>482
wget をPerlから？使う方法が分かりませんでした。コマンドとして使うという事なら目的と違います
>>483
上記チュートリアルサイトにて telnet も試しましたが、駄目でした
実は本当にやりたいことは別にあったので、すみませんが質問をやり直させてください
このサイトは、映画レビューサイトなのですが、
http://cinema.pia.co.jp/user/xxxxx/imp/all/ (xxxxxは数字)
にて、各ユーザーのレビュー一覧を見る事が出来ます
(実は自分のレビューを抽出したいだけです)
しかし、Perlからのアクセスでは、LWPを使ってもここではじかれてしまいます
(IE8の「表示→ソース」では見れるが、Perlにprintさせると違うものになっている)
どなたか原因分かりますでしょうか？
0485nobodyさん
2012/02/07(火) 01:25:44.20ID:???0486nobodyさん
2012/02/07(火) 01:48:21.80ID:???use LWP::UserAgent;
use HTTP:Request::Common;
my $ua = LWP::UserAnget->new();
$ua->agent('Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET4.0C; .NET4.0E)');
my $req = GET('http://cinema.pia.co.jp/user/xxxxx/imp/all/');
my $res = $ua->request($req);
if(open(my $outfh, '>', 'debug.html')){
print $outfh $res->content() || '';
close($outfh);
}
0487479
2012/02/07(火) 03:24:39.22ID:???>>485 駄目でした。ソースの190行目辺りからが違ってきます
上手くいく時は、以下のようになります。良く分かりませんが。
<div id="mainImpMain">
<form method="get" class="common">
<ul class="pagedLink">
>>486
出来ました。ありがとうございました。
0489nobodyさん
2012/02/08(水) 00:00:54.11ID:???自分自身が呼ばれて起動された際の HTTP ヘッダってどうやって確認するのでしょうか？
use CGI の header はヘッダを出力するためのものっぽいし・・・
0490nobodyさん
2012/02/08(水) 00:27:39.96ID:???それはあんたのスクリプトがどうやって呼び出されているかによる。
httpd に Apache を使ってて CGI 経由で呼び出されているなら
Apache のマニュアルと CGI の仕様書を読んでくれ。
http://httpd.apache.org/docs/
http://www.studyinghttp.net/rfc_ja/rfc3875
あと HTTP の仕組みもきちんと理解してくれ。
http://www.studyinghttp.net/rfc_ja/rfc2616
0491nobodyさん
2012/02/08(水) 00:51:03.57ID:???自身のスクリプトが呼ばれた際の HTTP ヘッダを得る方法を伺っているわけでして・・・
0493nobodyさん
2012/02/08(水) 04:36:08.44ID:???↑
最近の若い奴は、物事の尋ね方も知らないのか？ﾌﾞﾂｸｻﾌﾞﾂｸｻ
0494nobodyさん
2012/02/08(水) 07:53:34.31ID:D9+63/xk抜粋するようなプログラムを作成したいと思います。
例えば、次のような文章があった場合、
------------------------------------
ほげほげふがふが
http://example.com/hogehoge1
ほげほげふがふが
http://example.com/satitama1/saitama.html
<!-- link -->
リンク一覧
～テスト～ http://example.com/hogehoge2/test.hmtl
～さいたま～ http://example.com/satitama2
東京
<!-- /link -->
------------------------------------
結果は
------------------------------------
<a href="http://example.com/hogehoge2/test.hmtl">テスト</a>
<a href="http://example.com/satitama2">さいたま</a>
------------------------------------
のようにしたいのですが、どのように書いたらよいでしょうか？
尚、URLを抜き出す正規表現は次のように書きました。
(https?|ftp)(:\/\/[-_.!~*\'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)
環境は、CentOS5 perl5.10です
0495nobodyさん
2012/02/08(水) 10:31:20.53ID:???http://perldoc.jp/docs/perl/5.10.1/perlfaq6.pod#How32can32I32pull32out32lines32between32two32patterns32that32are32themselves32on32different32lines63
my $protocol = qr/(?:https?|ftp)/;
my $format = '<a href="%2$s">%1$s</a>' . "\n";
my $text = do { ... };
my @link;
while ($text =~ m{<!-- link -->(.*?)<!-- /link -->}gs) {
my $links = $1;
push @link, sprintf $format, $1, $2
while $links =~ m{～(.*?)～.*?($protocol://[!#-;=?-\[\]_a-z~]+)}gos;
}
print @link;
0498nobodyさん
2012/02/19(日) 12:41:02.48ID:???下着は、妻と娘のお下がりです。
おまけに洋式トイレ、便座が上がってるとか、飛沫が飛んでるとか、いちいち五月蝿いんです。
おかげで、トイレは座ってするように強要され、もうブリーフの前、開ける必要が無いんだからと、私達のお下がりで十分でしょう。と、ここ何年も私の物は買ってくれません。
今では開き直って、ブラジャーもしています。
家に居る時は、娘のスカートを穿き、外出は娘のパンツ、ジーンズ穿いていきます。
娘は、始めは困惑していたが今では慣れ、何でも貸してくれます。
妻の洋服、パンツ、スカートはウエストがちょっときつい。
ストレッチの物は、勝手に着ています。
0500nobodyさん
2012/02/19(日) 15:19:47.97ID:???0501nobodyさん
2012/02/19(日) 17:53:14.70ID:???0503nobodyさん
2012/02/20(月) 14:28:00.53ID:???my $family = Family->new();
$family->husband('>>498'); $family->wife('百合子(仮)'); $family->daughter('楓(仮)');
my $corp = Corp->new(); $corp->salaryCalculation();
$family->income($family->husband(), $corp->salary());
if($family->income($family->husband()) > 250000){
# トイレ
my $toto = Toilet->new();
$toto->type('EU'); # JA or EU
my $urine = $family->urine($family->husband()); # 小便をする
$toto->urine($urine);
if($toto->is_splash()){ $toto->forced_to_sit(1); } # トイレの用足しには座りを強制
# 下着
if($toto->forced_to_sit()){ $family->underwear($family->husband(), $family->underwear($family->wife()); }
# 他の着衣
if($family->underwear($family->husband()) eq $family->underwear($family->wife())){
$family->brassiere($family->husband(), $family->brassiere($family->wife());
$family->skirt($family->husband(), $family->skirt($family->daughter());
$family->jeans($family->husband(), $family->jeans($family->daughter());
}
}else{
$family->underwear($family->husband(), 'BOXER PANTS');
$family->brassiere($family->husband(), undef);
$family->skirt($family->husband(), undef);
$family->jeans($family->husband(), 'EDWIN');
}
>>498 じゃないけど、これが限界っす＞＜
娘や妻への下着のセットは省いたｗ
0504nobodyさん
2012/02/20(月) 14:29:13.01ID:???0505nobodyさん
2012/02/20(月) 22:20:39.95ID:???0506nobodyさん
2012/02/21(火) 10:11:33.62ID:???× $corp->salary()
○ $corp->salary($family->husband())
サラリーを得るのに名前を渡してなかった＞＜
× if($family->income($family->husband()) > 250000){
○ if($family->income($family->husband()) < 250000){
不等号の向き間違えたｗ
0507nobodyさん
2012/02/24(金) 16:30:51.95ID:???RSSのデータから、日付時刻とタイトル、そのリンク先URLを一覧にして取得したいと考えています。
・ブラウザに「取得」ボタンなどを表示し、それをクリックすることで最新の一覧を表示
・以前に取得したものは取得しない
先ずは上記2点を実装したいです。
良い方法や参考サイトなどをご教示頂きたいです。
よろしくお願いいたします。
0508nobodyさん
2012/02/24(金) 17:02:28.77ID:???>>1-2
こんなCGI探してます 23
http://kohada.2ch.net/test/read.cgi/php/1219654359/
依頼されたツールを誰かが作るスレ
http://kohada.2ch.net/test/read.cgi/php/1078997682/
金出すからスクリプト作ってよvol.1
http://kohada.2ch.net/test/read.cgi/php/1150508106/
自作CGIを評価するスレ
http://kohada.2ch.net/test/read.cgi/php/1049514428/
自分の作ったCGIスクリプトをデバッグするスレ
http://kohada.2ch.net/test/read.cgi/php/1011174442/
http://kohada.2ch.net/test/read.cgi/php/1036141603/420-435
0510nobodyさん
2012/02/25(土) 00:54:16.96ID:???全国紙では唯一、増税批判の姿勢を取っていた産経新聞に、
昨夏、国税の税務調査が入った。
財務省にとって税務調査は言論統制の最強の武器で、
2009年には朝日、読売が申告漏れを指摘され、
それを機に朝日は増税礼賛へと傾斜し、
読売は財務省幹部の天下りを受け入れた経緯がある。
国税庁という「警察力」は、財務省の最強の武器なのです。
何しろ、徴税というのは「裁量範囲」が広い業務で、
調査官の「判断」により合法とされたり、
脱税とされたりしてしまうのです。
「去年はＯＫだったのに、今年は何でダメなんだ！」
といった事態は普通に起こります。
0511nobodyさん
2012/02/25(土) 13:09:52.88ID:???まで読んだ
0512nobodyさん
2012/02/27(月) 00:22:44.82ID:???まで読んだ
0513nobodyさん
2012/02/27(月) 00:26:08.69ID:???に見えた
0514nobodyさん
2012/02/27(月) 00:46:41.84ID:???0515nobodyさん
2012/02/27(月) 07:22:57.09ID:???0516nobodyさん
2012/02/27(月) 14:07:22.77ID:???0517nobodyさん
2012/02/28(火) 00:06:11.43ID:0AwG+yg0ttp://findrjp.com/formen/
これはPHPだと思うんですけど
作るとしたらelsifで作る感じでしょうか？
こういうのってすぐ作れますか？
0518nobodyさん
2012/02/28(火) 00:51:16.58ID:???0519nobodyさん
2012/02/28(火) 00:59:39.36ID:???0520nobodyさん
2012/02/28(火) 01:10:42.34ID:???0521nobodyさん
2012/02/28(火) 01:35:37.84ID:0AwG+yg0どうせテメーらにはできないんだろｗｗｗｗｗ
って挑発したらヒント教えてくれますか？
elsifは分かります
0522nobodyさん
2012/02/28(火) 10:18:18.70ID:???0523nobodyさん
2012/02/28(火) 14:34:14.89ID:???スクリプト中で開くファイルはスクリプトのあるディレクトリのサブディレクトリに置いており、
全てフルパスで開くようにしています。
昨日初めて mod_perl を入れたところ、FindBin $Bin や Cwd が Apache のディレクトリになっています。
$ENV{'SCRIPT_FILENAME'} を使おうかと思ったのですが、デバッグでコンソールで実行することもあるため
$ENV{'SCRIPT_FILENAME'} は使えません。
$0 では cron でも mod_perl でも CGI でもコンソールでも期待する値が得られました。
./hoge.pl で実行して dirname($0) すると ./ 返ると書いてある場所もありますが、当方では
確認できませんでした。
そこで疑問に思ったのが、$0 を 100% 信用してもいいのか？ ということです。
「他のプログラムにより強制的に書き換えられる」 という可能性は今は無しでお願いします。
0524nobodyさん
2012/02/28(火) 14:46:37.42ID:???$0 は perl に与えられた path みたいですね。
HTTPd とかはフルパスを作って渡してくれてるっぽいけど、
コンソールではそうではない。
むぅ。。。
0525nobodyさん
2012/02/29(水) 01:59:02.18ID:???Not a CODE reference ～
っていうエラーが出た。
そのエラーが言う行は
main();
としかやってないのに。。。
0526nobodyさん
2012/02/29(水) 11:28:36.69ID:???0527nobodyさん
2012/03/02(金) 13:17:08.38ID:???ユーザーによる新規会員登録後、そのユーザー毎にディレクトリを自動的に生成し、
ユーザディレクトリ毎に容量制限を割り当てたいのですが、可能なのでしょうか？
ディレクトリを自動生成するところまではできています。
0528nobodyさん
2012/03/02(金) 18:09:30.62ID:???quota の導入。
quota を入れるなら、システムに実際にユーザーの作成が必要。
0529nobodyさん
2012/03/03(土) 19:01:18.46ID:???ファイル書き込み
現在使用サイズを書いたファイルorDBを更新（現在使用サイズ＋これから書き出すサイズ）
}
サイズ取得はuse bytes; $data_size = bytes::length($data); かな。
0530nobodyさん
2012/03/03(土) 19:19:52.03ID:???検索しにくくて、、、、こういうのどうやって探せばいいんでしょう。
perlvarになかったので特殊変数ではないっぽい
0531nobodyさん
2012/03/03(土) 19:27:25.41ID:???0532nobodyさん
2012/03/04(日) 02:19:05.56ID:???0534530
2012/03/04(日) 17:01:24.24ID:???ゼロじゃなくて大文字のオーだったんですね。
OS名ということはシステムからPerlに提供されているものだと思って、%ENVと同じところに記述されているはずって当たりをつけたら
perlvarにありました。
0535nobodyさん
2012/03/04(日) 20:39:47.27ID:???0536532
2012/03/05(月) 05:40:34.80ID:???そんなことはない。$^0 は確かに特殊変数でもなんでもなかった訳だし。
ためしに$^0をプリントさせたらエラーで実行できなかったし。
0537nobodyさん
2012/03/05(月) 22:13:10.43ID:???0538nobodyさん
2012/03/06(火) 01:30:36.74ID:???0539nobodyさん
2012/03/06(火) 01:42:56.66ID:???0541nobodyさん
2012/03/06(火) 02:56:51.45ID:???0542nobodyさん
2012/03/06(火) 09:53:40.98ID:zjKZlebnコード(抜粋)
$html =~ m!"(.*?)" class="Link88" href="/Models.aspx\?ModelID=$id"!s;
print $1;
実行結果
(～ごっそり省略) <a title="Loeka Creekside Fern Short Sleeve Jersey 2010
$htmlはLWPで拾ってきたHTMLです。数MBくらいあります。
パターンマッチ内の文字列 class="Link88"～ というあたりはちゃんとマッチしているようですが、
少なくとも Loeka の左にある " が $1 に含まれちゃうのはおかしい気がします。
また不思議なことに、修飾子 /s を外すとちゃんと最短でマッチしてくれます。
0543nobodyさん
2012/03/06(火) 10:29:35.15ID:???$html = q{<a href="b"
id="a" class="Link88"};
$html =~ m!"(.*?)" class="Link88"!s;
$html =~ m!"(.*?)" class="Link88"!;
最短ってのはマッチし始めてからが最短になるんであって、グループ内に"を含まないなんてルールはない
つまり最初の"から class="Link88" ... の手前の"までがマッチするんだよ
0544nobodyさん
2012/03/06(火) 10:46:58.66ID:???m!"(.*?)" class="Link88"!
を
m!"([^"]*?)" class="Link88"!
に変えて解決しました、ありがとうございます。
0545nobodyさん
2012/03/06(火) 12:52:17.96ID:???0546nobodyさん
2012/03/07(水) 23:13:16.91ID:???ttp://kueris.pro.tok2.com/postmail.html
↑これなんですが、ご覧の通り送信ボタンを押すとエラーが出てしまいます。
このエラーは、「Minimal.pm」がCGIフォルダ内に見つからない、という意味だと思うのですが、ちゃんとアップロードはできています。
以下、その他の詳細です。
・check.cgiは問題なく機能しました。パーミッションも設定できています。
・postmail.cgiのみを「cgi-bin」というフォルダに移動させました。
・サーバーはTOK2という所をお借りしています。
・エラーメッセージにある13行目辺りの内容はこんな感じです。↓
9 # モジュール実行
10 use strict;
11 use CGI::Carp qw(fatalsToBrowser);
12 use lib './home/kueris/postmail-utf/lib';
13 use CGI::Minimal;
14 use Jcode;
よろしければお力をお貸しください。よろしくお願いします。
0547nobodyさん
2012/03/07(水) 23:45:53.60ID:???↓
use CGI;
またエラーが出たらお越し下さい。
0548546
2012/03/08(木) 00:14:54.72ID:???ありがとうございます。お陰さまで、無事にそのエラーは解消されたです。
しかし、今度は別のエラーが発生しました。
ttp://kueris.pro.tok2.com/postmail.html
↑今はこのようになっています。
パスが違うのかと思い、色々変えてみましたが、効果はありませんでした。
メッセージにある20行辺りの内容は以下の通りです。↓
19 # 設定ファイル認識
20 require './public_html/postmail-utf/init.cgi';
21 my %cf = &init;
度々で申し訳ありません。
ですが、何卒よろしくお願いします。
0549nobodyさん
2012/03/08(木) 09:26:25.31ID:???で OK
0550546
2012/03/08(木) 12:15:53.18ID:???ご回答ありがとうございます。
試してみましたが、相変わらず同様のエラーメッセージが表示されてしまいます。↓
ttp://kueris.pro.tok2.com/postmail.html
init.cgi自体はちゃんとアップロードされているんですが…。
0551nobodyさん
2012/03/08(木) 12:34:33.65ID:???0553nobodyさん
2012/03/08(木) 17:31:49.63ID:???CGI で動いてない気がしてきた
0554nobodyさん
2012/03/09(金) 01:25:41.39ID:???今勉強中なのですが、
postデータ等をこれで変換すると言うのが良くあるのですが、
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
たしかにこれでうまくいきますし、また基本的な挙動も理解しています。
分からないのは、なぜpack("C", hex($1))/egで、問題無く動くのかということです。
具体的には、
①$1で渡されるのは1バイト分なのに、なぜちゃんと2バイト文字として変換されるのか？
②%([a-fA-F0-9][a-fA-F0-9]の書式でなぜ半角文字が受け渡されるのか？
③例えば”テ”はpostからデータを受け取った時には83eなのに、なぜ問題無く変換されるのか？
④①にかぶりますが、なぜ(pack"c",***)で上手く動くのか？ "c*"じゃないのに正常に動いてる。 また、$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/hex($1)/eg;で作った変数をそのままpack"c*",$value;としてもうまく動かないのに、なぜちゃんと動くのか？
いろいろ調べたりしたのですが、よくわかりませんでした。
0555nobodyさん
2012/03/09(金) 02:06:50.72ID:???$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; でググれ。
0556546
2012/03/09(金) 02:23:40.92ID:???>>551様
確認しましたが、問題ありません。
init.cgiは確かに存在しているはずなのですが、認識されていないようです。
試しに、アップロードされたinit.cgiに直接アクセスしてみたところ、404エラーが表示されました。(つづりやパスは間違えておりません)
同じフォルダ内にある別のプログラムにはアクセスできるのですが……。
>>552様
プロバイダによってCGIの設置しやすさは違うのてでしょうか？
もしよろしければ、CGIが動きやすい所をご紹介していただけないでしょうか。
>>553様
申し訳ありません。プログラミングの経験がない私には、「cwdでカレントディレクトリ表示」の意味がよくわかりません。
調べてみましたところ、これはperlにおけるコマンドのことなのでしょうか。
打ち込んでみましたが、上手く動作しませんでした。
0557nobodyさん
2012/03/09(金) 02:58:21.99ID:???相当ぐぐったのですけど、「これで動く」「この処理はこう言う処理をしてる」と言う説明はありそれ自体はわかるのですが、
頭でイメージしたものだとどう考えてもエラーが起きるもしくは正しく動作しないはずなのに、「なぜこの書式で正しく動作してるのか？」と言う疑問の解決は見つかりませんでした。
0559nobodyさん
2012/03/09(金) 03:37:26.52ID:???KENT から落としてきて、
１３行目：use CGI;
２４行目と２６行目をコメントアウトでとりあえず動くよ。
何も入力せずに 「送信する」 ボタンを押せば、動作してるのが確認できる。
http://www11.tok2.com/home/mikisama/postmail-utf/postmail.html
ただし、これは貼らずにいられない。
Ｑ.メールフォームを設置したいのですがsendmailは利用出来ますか？
http://tok2.com/study/faq/04-07.html
これ以上は ｽﾚﾁ (これ以上もクソも初めからｽﾚﾁだが・・・) なので、改造スレの方へどうぞ。
0560nobodyさん
2012/03/09(金) 03:45:25.88ID:???ただ単なるバイト列として考えればよろし。
今日は SJIS だと 8DA193FA という４バイト。
俺らが見てる 「今」 という文字は、コンピュータからしたら 「8DA1」 という並びのバイト列でしか無い。
そうゆう並びになったから、文字が見えるというだけだ。
■ このスレッドは過去ログ倉庫に格納されています