07/04/24 14:22:11
パッケージ化することによって、関数(メソッド)や変数(属性)の名前衝突を避けることができ、
モジュールをつかいまわす場合に有効。
117:nobodyさん
07/04/24 14:37:40 RJoF4cmJ
Windowsマシンで、Apache + ActivePerlを使用して、ローカルでPerlの勉強をしているんですが、
Perlのコードにエラーがあると、
use Strict; を記述しても、500 Internal Server Errorになってしまいます。
(どういうエラーが出たか教えてくれない)
エラーを表示させるにはどうしたらいいんでしょうか。
各バージョンは、
Perl v5.8.8
Apache 2.0.59
です。
118:nobodyさん
07/04/24 17:10:54
>>116
なるほど。変数名の衝突を気にしなくてもいいのは便利ですね
これからパッケージの勉強からしてみます
ありがとうございました
119:nobodyさん
07/04/24 17:23:24
>>117
スクリプトの頭に
BEGIN {print "Content-Type: text/plain\n\n"; $| = 1; open(STDERR, '>&STDOUT')}
とでも書いとけ
120:nobodyさん
07/04/25 02:24:17 lSJlnLTR
>>117
モジュールつかっとけ
use CGI::Carp qw(fatalsToBrowser);
URLリンク(perldoc.jp)
121:nobodyさん
07/04/25 20:53:26
[ディレクトリ構成]
xxx/
index.html
data/
post.dat
cgi-bin/
xxx/
post.cgi
と置いてあります。このとき
#!C:/Perl/bin/perl
open(OUT,">> ../../xxx/data/post.dat");
print OUT "$FORM{'posturl'}\n";
close(OUT);
と post.cgi に記述してみたのですが、うまく
post.dat のほうに $FORM{'posturl'} の内容が書き込めていないようでした。
パスの設定ミスだとは思うのですが…
環境は,windows xp sp2 上 でApache/2.0.45 を使用しております。
どうぞよろしくお願い致します m(__)m
122:nobodyさん
07/04/25 22:02:43
それだけじゃさっぱり
123:nobodyさん
07/04/25 22:56:34
自己解決スマソ。
open(OUT,">> ../../htdocs/xxx/data/post.dat");
とすれば良かったみたいです。
htdocs/
- xxx/index.html
- xxx/data/post.dat
cgi-bin/xxx/post.cgi
webプログラムってプログラム以外の部分がややこしい…
124:nobodyさん
07/04/26 16:20:32 Xsmaee58
■ Perl言語 ■ 何でも質問コーナー ■
URLリンク(mixi.jp)
Perlに関すること、cgiに関すること
なんでも質問できるコーナーです(たとえばApacheとかでもOKとします!)
(Web系であればOK)
ルール:
Google検索で調べてわかるようなことでも質問してもOKです
(初心者のうちは、どの情報を取捨選択したらイイのかわからないと思うので)
回答してくださるかたは、暖かく質問者を迎えてやってください
o(^^o) (o^^)o
125:nobodyさん
07/05/01 16:23:34
PerlでファイルアップロードCGIを作ろうとしています。
「1. ファイルを選ぶ 2. 確認画面 3. 送信完了」と動作させようとして
躓きました。2. 確認画面を表示しない場合はうまくいくのですが、
確認画面を間に挟むと空のファイルがアップロードされてしまいます。
1 から直接 3 にいくプログラムは次のように組んであります。
1. CGI.pmを使ってfilefield('file');でファイル選択させる。
3. $fh = upload('file'); でファイルの情報を得て、
while(read...){print...} でファイルを書き込む。
2 をはさむときは、param('fh', $fh); print hidden('fh');
として情報を保存しました。
たぶん、上の方法では必要な情報を保存しきれていないのだと
思うのですが、どうすればよいかわかりません。よろしくお願いします。
126:nobodyさん
07/05/03 02:37:57
無理
127:初心スレ861(481)
07/05/25 22:03:25 1LPPhSSe
質問です
if(a=1){
if(b=1){
print "○○○"
}
}
というようにIFの中でIFは可能ですか?
128:nobodyさん
07/05/25 22:17:31
歴史にIFなど無いのだよ
129:nobodyさん
07/05/25 23:10:03
>>127
なぜ不可能だと思うんですか?
130:nobodyさん
07/05/25 23:29:35
>>129
うごいていたプログラムのIFの中にIF入れたら壊れたからです
何か他にげんいんがあるのかお
131:nobodyさん
07/05/25 23:47:26
お前のプログラム知識だよ
132:nobodyさん
07/05/26 05:47:48
if(a=1)
なんか懐かしいなw
こういうの見たの15年ぶりだよ。
133:nobodyさん
07/05/26 23:39:33
perl 関連スレッドに機会があったらいつか書こうと思って
たんだが、機会が無いのでここに独り言として書く。
[初心者のための perldoc ]
perldoc は、本を開かなくともいつでも開くことが出来る手軽なリファレンスだ。
ターミナルで「perldoc perl」と打ち込むだけで概要が出てくる。SYNOPSIS に
リストがつらつら書かれているがそれぞれ perldoc で呼び出すことができる
1. とりあえず基礎の基礎を読んでみたいなら「perldoc perlintro」
( for, while, if などもここを最初に )
array of array などなら「perldoc perllol」
正規表現なら、「perldoc perlre」
スイッチ(所謂コマンドラインオプション)なら「perldoc perlrun」
etc...
これらの文章中 see perlxxxx.... と書かれていたら素直に
「perldoc perlxxxx」すればよい。
2. 個々の関数について調べたいなら
「perldoc -f reverse」
などと f オプションを付けて実行する。
3. 取り敢えず、なんか判らんって時。例えば「配列」
「perldoc -q array」
faq の中から array を含む文章拾ってくれる。但し question のみ。
4. 個々の説明文 pod にアクセスしたい時
「perldoc Tie::File」
「perldoc strict」
5. 「perldoc -h」すれば、perldoc の使い方の説明が出てくる。
perldoc の中身には例文も出てくるので、英語が判らんでも 2ch に
相談するまえに見てみることをお勧めする。
どーしても、という方には web 上にはそれなりに翻訳された perldoc が
あるのでターミナルで「perldoc perl」でリストの中から目星を付け、
そのファイル名で検索するのも良い。
(但し最新版ではない事がほとんどなので注意が必要)
134:nobodyさん
07/05/29 00:59:04 +KVPsKMz
質問です。
#!/usr/bin/perl
open (IN,"< http://あqwせdrftgyふじこ/test.dat") ;
@LINES = <IN>;
close(IN);
print "Content-type: text/html\n\n";
print "<html><head></head><body>";
foreach(@LINES){
print $_ . "\n";
}
print "</body></html>";
}
こんな感じでhttpから始まるURLをうって
ファイルを開いて処理したいんですがどうやら読めないっぽいです。
open (IN,"test.dat") ;
に変えると動いてくれるのですが、、、
仕様上不可能なんでしょうか?
135:nobodyさん
07/05/29 01:19:04
>>134
allow_url_fopen が効いてる PHP みたいな、裏でどうにかしてくれる仕掛けはありません。
LWP使えば外部のファイル自体は取得できるけど。
136:nobodyさん
07/05/29 02:04:54 +KVPsKMz
>>135
こんな時間にレスあり ><
use LWP::Simple;
$a = get("http://くぁwせdrfgyふじこ/test.dat");
で取得できました。ありがとうございました。
これで気持ちよく眠れます。
137:nobodyさん
07/06/03 00:26:01
久しぶりにperlでcgi作ろうかと思うんだけど、今はutf8で書くのが一般意的?
138:nobodyさん
07/06/03 13:53:14
なんでもおk
139:nobodyさん
07/06/05 13:52:29
ブラウザで操作をして
自サーバ内のファイルを別サーバへコピーしたいんですが(セキュアFTPサーバ)
Net::FTP
を使って、セキュアなFTPサーバへ接続は出来ますか?
もしくは、可能な別モジュールってありますか?
140:nobodyさん
07/06/07 14:40:32 TOlQmlY8
すいません。
定期的にフォーム部品の個数が変わるフォームで、
1コでも未記入があった場合にエラーが出したいんです。
radio1
radio2
radio3
textarea1
textarea2
radio4
・
・
・
その時によって、フォーム部品の数が増えたり減ったりします。
汎用的に未記入があった時にエラーを返すにはどうしたらいいでしょう?
141:nobodyさん
07/06/07 15:58:44
フォームにフィールド一覧をhiddenで入れておくとか
142:nobodyさん
07/06/07 16:38:40
それはだめだろw
143:nobodyさん
07/06/07 17:31:11
エンティティボディに=&か=$があったら落とせばいい
144:nobodyさん
07/06/07 17:33:24
それでは駄目
仕様上は未入力のフィールドは送信しなくてもいいことになってるんで
145:nobodyさん
07/06/07 17:51:47
そんな細やかなもんなら全部やるしか無いでしょ
どのみちレングスや内容を全部調べるんだろうし
146:nobodyさん
07/06/08 11:15:29
>>144
inputがあるのに未入力を検出したいってんなら>>143で問題ないと思うのだが。
>仕様上は未入力のフィールドは送信しなくてもいいことになってるんで
って何の仕様の話?
147:nobodyさん
07/06/08 12:03:20
>>146
HTML 4.01
148:140
07/06/08 13:54:24 i/tb2omn
144は私ではないです。
みなさんありがとうございます。
>143さんの方法が良さそうですね。
ところで、エンティティボディって何の事でしょう・・・・?
すいません、ぐぐってみます;
149:nobodyさん
07/06/08 17:32:56 rRYhakqE
お世話になっております。
今現在Perlを使用したCGIを作成していて困った事があるので相談させていただきます。
HTML側が
----------------
<form method="POST" ENCTYPE="multipart/form-data" action="edit_completion.cgi">
<input type="file" name="TENSOU">
:
----------------
としていて受け取るCGI側を
----------------
:
my $cgi = new CGI;
my $image = $cgi->param('TENSOU');
my $file_name="./test.jpg";
my $buffer;
open(OUT, ">$file_name") or die(qq(Can't open "$file_name".));
binmode OUT;
while (read($image, $buffer, 1024)) {
print OUT $buffer;
}
close OUT;
:
----------------
としているのですがうまく受け取れません、、、
上記perlは昔自分が書いたものを参考にしたのですが
ナニを参考にしたのか覚えていません。
どこか使用方法が載っているURL等お教えいただけないでしょうか?
150:nobodyさん
07/06/09 13:37:43
URLリンク(www.harukaze.net)
ここを参考にしたら?
151:nobodyさん
07/06/10 18:01:18
Perlを勉強し始めて一ヶ月ぐらいかな・・・
仕事の傍らちょこちょこやってて
今「続・初めてのPerl」のオブジェクト指向とかリファレンスのトコ
そこ入ったらいきなりクラスとかメソッドとか初出の単語が連発してきてかなり混乱
なかなか頭に入ってこなくて泣きそう(つωと)
152:nobodyさん
07/06/10 20:07:23
>>151
「続・初めて」
は題名に反して、「リャマ、ラクダ、CookBook、Best Practice、etc.」を
読んだ後に読む本だぞ。
153:nobodyさん
07/06/11 00:16:13
>>152
レスありがとうございます
う、そうなんですか・・・もっと吟味すればよかった(・ω・`)
リャマは読み終わりましたのでラクダ本検討してみます
しかし高い・・・
後、やっぱりUnix環境整えた方がいいですよね
今までWindowsのみでやってきたので、Unixの事はチンプンカンプンですけど
WindowsみたいにOSのパッケージを買えばいいのかな・・・調べてみようと思います
ありがとうございました
154:nobodyさん
07/06/11 01:57:28
ム板「質問箱 30」の704 からの流れも参考にしとけ。
後半は、マカーなので分らんw
が、Windows だけで完結してそうな人も多いし、Cygwin
辺りで慣れるだけじゃダメなのかなあ。
もちろん業務とかが絡む人は別だけど。
155:nobodyさん
07/06/11 02:16:08
「原題」ってなんだったっけ、ってサイトに行ってみたら
URLリンク(www.oreilly.co.jp)
絶版になったのか、、、
156:nobodyさん
07/06/11 23:50:11 kL3eCwRQ
Perl初心者です。
スクリプトの文法チェックをしたいのですがどなたかいいツール知りませんか?
検索してみたのですがなかなかいいのが見つからなくて。
157:nobodyさん
07/06/12 02:23:49
文法チェックなら perl -c でやりゃいいじゃん。
もう少し厳しくみるなら perl -wc
perldoc perlrun くらいはしといてくれ。
158:nobodyさん
07/06/12 12:32:30 0KbPnFiH
>>157
ありがとう、早速試してみます。
159:nobodyさん
07/06/12 12:43:31
>>157
ここは超初心者用だ
お前のような排他的な奴は出て行け
160:nobodyさん
07/06/12 14:08:36
>>159
排他って言葉の意味わかってるのか?
161:nobodyさん
07/06/12 16:16:31 0KbPnFiH
ついでにおすすめのエディタもお聞きしたいのですが?
162:nobodyさん
07/06/12 16:55:27
>>161
windows?
秀丸とかEmEditor、金出したくなければ
xyzzyあたり。
163:nobodyさん
07/06/12 17:19:53 0KbPnFiH
>>162
windowsです。
普段は秀丸を利用しています。
秀丸はHTMLは書きやすいのですがPerlは微妙です。
Perlに特化した感じのエディタがないかいろいろ検索中ですがなかなかいいのが見つからなくて。
164:nobodyさん
07/06/12 18:56:13
xyzzyとか、unixで主に使われるエディタなら
perl用のモードがあるよ
Emacsとかvimとか。
windows用もあるけど、初心者お断り的な
ところがあるから、慣れるまでは
大変かも。
希望の機能とかはあるの?
165:nobodyさん
07/06/12 21:45:38 0KbPnFiH
>>164
やっぱ色分けはわかりやすいほうがいいですね。
秀丸はヒアドキュメントの部分がわかりづらくて。
あとは文法チェックやプレビュー機能なんかがあればうれしいですね。
開発環境にこだわるのはある程度知識身につけてからのほうがいいのでしょうか…
なんせまだPerl勉強して1ヶ月もたってないもので…
166:nobodyさん
07/06/12 23:26:18
PerlEditor ただしUTF-8非対応
Eclipse + PerlPlugin
167:nobodyさん
07/06/12 23:37:16
>>165
つーかまずコード書こうや
道具選びはそれからでも遅くない
168:nobodyさん
07/06/13 02:12:53
>>165
最初はそんなにでかいコード書くこともないだろうから、
それこそメモ帳でなきゃ適当なエディタでいいと思うけどね。
とりあえずこいつは構文チェックをしてくれるらしい
URLリンク(activestate.com)
体験版はあるみたいだけど基本的に金だして買わなきゃいけないし、
ドキュメントは英語だけ。
ところでプレビュー機能ってなに? CGIでも作るの?
169:nobodyさん
07/06/13 12:39:29 Ij6cMTyX
とりあえずエディタはこれかPerlEditor落ち着こうと思います。
URLリンク(www.forest.impress.co.jp)
PerlはCGI作るために勉強しはじめました。
とりあえず10日で覚えるPerl/CGIという入門書を読んで勉強中です。
170:nobodyさん
07/06/13 18:17:02
私は一晩で学ぶSQLを買いました。最終的に3年かかりました。
171:nobodyさん
07/06/14 13:02:46
ワロタ
172:nobodyさん
07/06/14 19:02:31 MrJTWOJA
CGIで質問フォームを作ってそれが完了したと同時にメールが送られるようにしてるんだけど、
一定文字数を越えると文字化けしてしまう。。
誰かこの文字化けが何系の文字コードか分かる方います??
$"$($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($($3$3$G2~9T$*$*$*$*$*$*$*$*$*$*$*$*$
173:nobodyさん
07/06/14 19:21:03
別スレに書き込みますすいません。
174:nobodyさん
07/06/15 18:43:38 3CYhNC9F
Perlを勉強するうえで読んでおいたほうがいい書籍ってなんですか?
175:nobodyさん
07/06/15 19:41:34
>>174
1. ああっ女神さまっ 1~34巻
2. 逮捕しちゃうぞ 文庫版1~4巻
3. 大人のCGIスクリプト
176:nobodyさん
07/06/15 20:12:22
女神はクソアニメだろ…
177:nobodyさん
07/06/15 20:55:45
銀英伝全巻(余裕があるなら、アニメ版全巻も)
178:nobodyさん
07/06/15 21:51:09
それが僕には楽しかったから(小学館プロダクション)
ニーチェ入門 (筑摩書房)
本当の潜水艦の戦い方 (光人社)
179:nobodyさん
07/06/15 22:38:03 3CYhNC9F
まじめに教えてくださいよ
180:nobodyさん
07/06/15 22:48:57
あいまい3cm
181:nobodyさん
07/06/15 22:51:37
答えていますとも。
>SF を読むこと。
>だじゃれや言葉あそびへの理解を深めること。
>母国語できちんと文が書けるようになること。
>多くのハッカーは「おたく」というレッテルを受け入れています。
>それは自分が普通の社会的期待から自由だと宣言する方法の一つなのです。
URLリンク(cruel.org)
182:nobodyさん
07/06/16 21:27:44 0wRsaGP2
Perl勉強しただけでハッカーになれるんですか?
183:nobodyさん
07/06/17 08:54:43
perlしか知らなくてもハッカーになれるヤツはなるし
全言語覚えてもハッカーになれないヤツはなれない
要は応用力の問題
184:nobodyさん
07/06/20 21:35:54
よろしければご教示願います。
PerlのCGIからEXEを叩くだけのSYSTEM関数を呼ぼうとしているのですが
処理自体はバックグラウンドでやらせて、制御は画面に戻したいので
「res = SYSTEM(1, @args)」で実行しようとすると、-1が戻されてしまいます。
「res = SYSTEM(@args)」でやれば問題なく動くのですが…
第一引数に1を設定した場合は実行不可になる、といったような
事例はあるのでしょうか?
(検索キー「SYSTEM」では該当が多すぎて…)
185:nobodyさん
07/06/20 22:20:47
>>184
つかそもそもsystem関数の使い方わかってないだろ
「perl system」でググるくらいの検索能力は身につけようぜ兄弟
186:nobodyさん
07/06/20 22:35:16
win 用の特別な記法があるのかと思ってググりまくった俺、マカー。orz...
187:nobodyさん
07/06/20 23:12:17
>>185
いやあの・・・すいません。
「@args」と書いてあるところが、叩かせようとしているEXEの
引数つきコマンドラインです。
system関数の記事ならいくつもHITしますが、第一引数に1をセット
しての使い方についての記述はほとんどなかったので…
(この書き方自体がwin専用らしいですが)
188:nobodyさん
07/06/21 00:30:05
>>187
最初に「Windows+ActivePerlの環境です」とかくらいは書いた方が良いと思うんだ。
@argsの内容とかも。argsなんて名前の配列にコマンドまで入ってるなんてあまり想像しない。
で、たぶん-1返してるのは@argsの中のプログラム側だからそっちを調べないと無理かも。
189:nobodyさん
07/06/26 18:01:07 pgSc3qoH
perl、cgiを独学で勉強しているが理解できない;;
10日で覚える~の本を参考書にしてるけど10日じゃ理解できないYO・・
学習能力ねぇから難しいなぁw
190:nobodyさん
07/06/26 23:19:15
この手のは学習能力というより意欲の問題。
若干相性はあるがね。
191:nobodyさん
07/06/26 23:32:33
人間必要に駆られないと覚えないから。
1. 何を作りたいか決める
2. とにかく作り始める
3. 詰まったら実現方法を参考書で調べる
4. 2に戻る
あとメモを取った方が効率が上がる。特殊変数全部メモるとか。
それさえあれば何時でも何処でも(少なくとも自分だけは)必ず何でも書けるメモを作る。
192:nobodyさん
07/06/26 23:38:09
「10日で覚える~」を買って本当に10日で習得したって話は聞かないから
>>189はあんまり気にしなくていいよ。
>>191
必要に駆られると覚えるの早いよなあ。納期とか。
193:189
07/06/27 11:43:36 qSRVuZRU
関数が覚えられないからメモをしっかりとってやってみます^^;
ゲームとか掲示板を思い通りに作りたいのでまずは基礎からって
感じだと思ったので、とにかく習うより慣れるかな~
194:189
07/06/28 17:14:56 /27P2PeN
質問なんですがよろしくです
#! c:/perl/bin/perl
open(IN, "+<./count.dat");
$count = <IN>;
++$count;
seek(IN,0,0);
print IN $count;
close(IN);
こんなアクセスカウンターがあったとして./count.datの中に
12が書き込まれていたら次にアクセスしたら13になりますよね?
seek関数でファイルの先頭に持ってきているのはわかるんだけど
先頭にそのまま持ってきたら1312にならない理由を教えてほしいっす><
195:nobodyさん
07/06/28 17:44:35
ファイルにはインサートモードは無い
196:189
07/06/28 17:53:34 /27P2PeN
インサートモードって何ですか?
seek(IN,0,0);
の、部分だけ消してアクセスすると1213になるけど
seek(IN,0,0);
が、あることにより上書きになるの?
197:nobodyさん
07/06/28 17:58:37
常に上書きだ
書き込みポイント(シーク位置)が読んだことにより後ろになってるだけ
末尾で上書きすれば追加と同じだろう
メモリでも挿入ってのは、データを後ろにずらしてから上書きしてるんだよ。
198:189
07/06/28 18:16:42 /27P2PeN
???(´・ω・`)
seek(IN,0,0); は、
常に上書きって覚えとけば問題ないのかな?
ありがとうございますです。
199:nobodyさん
07/06/28 18:26:31
あーもういいやそれで
200:nobodyさん
07/06/30 14:41:50 zANvV/vQ
こういう範囲指定を → 4.43.96.0/24
このように変換 → 4.43.96.0-4.43.96.255
したいのですが、良い方法を教えてください。
201:nobodyさん
07/06/30 15:21:36
拡大解釈して、「あるIPアドレスがあるネットマスク内にあるか否か」
ってスクリプトなら。
my $netmask = q{4.43.96.0/24} ;
my $ip = q{4.43.96.0} ; # <= ここにテストするIPアドレスをセット
my ( $org_ip, $byte ) = split m{/}, $netmask ;
my $packed_one = unpack qq{B$byte}, pack 'C4', split ( /\./, $ip ) ;
my $packed_two = unpack qq{B$byte}, pack 'C4', split ( /\./, $org_ip ) ;
if ( $packed_one eq $packed_two ){ print q{in} . qq{\n} ; }
こんな感じ?と素人が答えてみるテスト。
202:nobodyさん
07/06/30 15:54:22
>>201
正直Perlは良く分からないのですが、コピペして結果がでました。
どうもありがとうございます。ペコリ
203:質問
07/06/30 16:27:58 6uCjWfRX
配列の値をリファレンスを使って、サブルーチンへ渡す方法についての質問です。
下記のような簡単な物を作って、配列のリファレンスがサブルーチン側へ渡されていることは
わかりました。($alldata_refと$getdata_refが同じ)
が、サブルーチンを使っての配列の値の参照がなぜかできません。
いろんなサイトをみても問題はないようですが、わかる方教えてください。
@alldata=(1,2,3,4,5);
$alldata_ref=\@alldata;
print "$alldata_ref\n";
foreach (@$alldata_ref){
print "$_";
}
print "\n";
&COUNT8(\@alldata);
sub COUNT8{
my $getdata_ref="@_";
print "$getdata_ref\n";
foreach (@$getdata_ref){
print "$_";
}
print "\n";
204:nobodyさん
07/06/30 16:43:21
my $getdata_ref=shift;
205:203
07/06/30 16:46:10
うほっ。
よくわかりませんが、できました。
ちょっとshift勉強しに公園のトイレ前に行きます。
206:nobodyさん
07/06/30 16:53:48
便乗で質問させてください
>>203って、サブルーチンの中で引数を取得する時に
ダブルクォーテーションで囲った事が原因ですよね?
207:nobodyさん
07/06/30 17:11:28
printで表示される物と、内部的な扱いは違う。
ついでに、ダブルクオートしなかったら要素数が返るだけと思う。
shift@_なり、$_[0]なりで、ちゃんとリファレンスを取得することが大事。
208:nobodyさん
07/06/30 20:16:18
ついでに、ダブルクオートしなかったら、COUNT8に渡された
リスト(アレイリファレンス1個のリスト)がスカラーコンテ
キストで評価されて結果は1。
209:nobodyさん
07/07/01 06:34:28
my($getdata_ref)=@_;
が推奨されています。
当たり前ですが複数なら以下です。
my($abc,$def,$ghi)=@_;
またPerlでは@arrayの評価は左辺値で決まるので、ダブルクオートしなければ
必ず要素数が返ると信じるのは誤動作の元です。
$#array+1を使うか、scalar(@array)と明示する方法がオススメです。
さらにfor文をこのように書く人が大勢居ますが、
for(,my $i=0; $i<@array; $i++)
非常に遅いので予め@arrayの要素数をスカラーに移して使いましょう。
210:nobodyさん
07/07/03 16:41:35 Fn19fg5B
>>209
板違い。
Perl板でやれ。
211:nobodyさん
07/07/03 19:22:53
perl板って何処にあるんだよ。
212:nobodyさん
07/07/04 09:06:32
URLリンク(pc11.2ch.net)
213:nobodyさん
07/07/07 14:31:13 MhnKrAyD
ActivePerlでPerl始めたんだけど、エクセルのデータかCSVから
それぞれの行、列から数値を取り出したいんですけど、
どこかに良いサンプルか参考になるサイトはないですか?
214:nobodyさん
07/07/07 14:50:58
>>213
ここはwebprog板なのでキミの質問は板違いである。
215:nobodyさん
07/07/08 06:04:57
べつに板は違わないけど
Perl CSVやPerl Excelで検索すりゃ一瞬で出るものを書かれると何かが減退する
216:213
07/07/09 22:38:35 6iXDsaKo
Webで検索しても分らないから質問したんですが・・・orz
217:nobodyさん
07/07/10 10:55:28
減退しようぜ
218:nobodyさん
07/07/10 11:13:10
まああるていどやって、ここがわからないという質問だと答える気にもなるけど
お前らの答えは信用ならんから、サンプルやサイトを教えてくれと言われたら
こたえる気はなくすわな
219:nobodyさん
07/07/10 11:49:08
「IBMの言う通りにしたけど出来なかった(゚Д゚)」
と言われたなら、へー出来ないんだーという情報価値も少しある。
出来たらぶっ飛ばすけどね。
今ちょっと見たらOffice2000がどのライブラリも対応してる感じだけど、
バージョンの説明も無いし、なんで検索のお手伝いをしないといけないんだって。
220:nobodyさん
07/07/10 13:28:27
>>216
Google 使って「Perl CSV」で検索すると、先頭に出てくるのだが。
一体、何がどう分からないのかな?
221:nobodyさん
07/07/10 18:20:33
Mac OS X(10.3.9)を使ってるんですが、perlが5.8.1です。
アップグレードってどうやるんですか?5.8.6にしたいんですが(参考にしてる本が5.8.6だから)
222:nobodyさん
07/07/11 09:43:51
>>216
ほれ。チョーわかりやすいサンプルを書いてやったぜ。
#! /usr/bin/env perl
$csv = <<"_CSV_";
activePerlで,Perl,始めたんだけど、,エクセルの,データか,CSVから,
それぞれの,行、列から,数値を,取り出したいんですけど、,
どこかに,良いサンプルか,参考になる,サイトは,ないですか?
_CSV_
grep{push(@d2a,[split(/,/)])}split(/\r?\n/,$csv); # 格納
for(@d2a){print for(@$_);print "\n";} # 表示
223:nobodyさん
07/07/11 09:47:22
>>221
5.8.6をインストールすればいい
224:nobodyさん
07/07/11 15:56:08 FWgAFc3u
質問です。おながいします
sub printPage
{
my $begin = $FORM{'page'} * $PAGEVIEW;
my $end = $begin + $PAGEVIEW;
if($end > @DATA) {
$end = @DATA;
}
本を見ながら掲示板を作っているんだけど、my $begin やmy $end が
@DATAの添え字になっているって本に書いてあるんだけど@DATAの添え字なら
$DATE[$begin]とかってってならなくてmy $begin やmy $endで添え字になって
いる理由がわかりません。
わかる方おながいします。
225:224
07/07/11 16:09:46 FWgAFc3u
すまんかった。スルーしてくれ
226:nobodyさん
07/07/11 19:57:17
>>222
Excelの吐くCSVはそれだけじゃダメだよ…
227:213
07/07/12 08:33:10
CSVの1行目に
A,B,C,D,E,とあるとするとそれを
①=A
②=B
③=C
…
と格納して
print ③
print ②
print ⑤
みたいなことがしたいんですが。。。。
この処理が終わると2行目へ・・・と言った感じで。
228:nobodyさん
07/07/12 14:01:39
(:.;゚;Д;゚;.:)y-~
229:nobodyさん
07/07/13 15:37:18 jk1vnwXj
超初心者質問です。おながいします。
#! c:/perl/bin/perl
print "Content-type: text/html\n\n";
print "Hello Perl !";
と、CGIに書いて本には
Content-type: text/html
Hello Perl !
と、出力すると書いてあるのですがやってみると、
Hello Perl !
しか出力しません。なぜでしょうか??
AN HTTPD ってのを使ってます。
230:nobodyさん
07/07/13 15:49:26
>>229
ブラウザ何使ってる?
wgetとかコマンドラインのやつ使ってなけりゃ
Firefox入れてLive Http headers アドインを入れてみるのを薦める
231:nobodyさん
07/07/13 15:52:21
>>229
本の出力例+説明はコマンドラインから走らせたときを想定してると思う。
CGIとして叩いた場合でなくて。
232:229
07/07/13 16:27:58 jk1vnwXj
230,231さん、ありがとう。
いろいろ調べてたらCGIヘッダーはWebサーバーからWeb
ブラウザに送信される過程で使われるだけだからブラウザに表示
されるのは「Hello Perl ! 」だけ、とのことみたいなのでなんとなく
解決しました☆
Windows XP使ってますがAN HTTPDではPerl勉強するのに不足でしょうか?
230さんの「Firefox入れてLive Http headers アドインを入れてみるのを薦める 」
を、やったほうがいいでしょうか?
233:nobodyさん
07/07/13 17:33:57
Firefoxはブラウザだ。サーバ(httpd)はなんでもいいよ
234:229
07/07/13 19:08:30 jk1vnwXj
ユーザーエージェントが
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
なので、Firefoxですか?
235:nobodyさん
07/07/13 19:18:19
流石くだ質…レベルが低すぎるってレベルじゃねえぞ
236:nobodyさん
07/07/13 21:48:51
>>234
思いっきりIE6って書かれてるじゃまいか・・・
>>235
スレタイ嫁
答えたくないんなら、スレ読むな
237:nobodyさん
07/07/13 22:29:23
何故貴方に感想を書くことを
制限されなければならないのですか?
ここはあなたの掲示板なのですか?
スレッドに帰属意識でも持ってるお馬鹿さんですか?
238:nobodyさん
07/07/13 22:34:44
>>236
最近はMSIEって書いてあっても信用できない事が(Opera等)あるからキヲツケロ。
239:nobodyさん
07/07/14 00:18:15
>>237
スレ汚しが趣味ですか?
240:nobodyさん
07/07/14 07:16:10
はい
241:nobodyさん
07/07/14 07:46:14
>>240
NGフィルタかけたいから、コテなりトリなりつけてくれ。
242:獅子王
07/07/15 18:51:36 EW+ZDItZ
スイマセンが及ばずながら僕もPerlを使いたいと志すものです。
他のところではちょっと僕の質問の仕方が無礼だったようなのでここで質問させてください。
実はつい先日perlをダウンロードするために配布サイトまで行ったのですが
英語尽くしで何がなんだかわかりません。どうも僕にperlのダウンロード
の仕方を教えていただけませんでしょうか?長々とスイマセン。
243:nobodyさん
07/07/15 19:59:41
URLリンク(www.activestate.com)
ActivePerlのGet Current Release→Download→continue→Windows (x86) MSI
244:nobodyさん
07/07/15 20:40:29
Windowsと決め付けるところがさすがに超初心者スレッド。
245:nobodyさん
07/07/15 21:09:48
1. UNIX/Linuxはバージョンはともかくプリインストールの筈である
2. 習慣としてMacならMacと断りを入れる
3. 傾向としてWindowsユーザだけがこのような質問をする
というわけで>244はアスペルガー症候群という自閉症だと思われる。
URLリンク(www.autism.jp)
>子どもでも大人でも社会生活には暗黙のルールがあります。暗黙のルールがわからないために
>他の子どもから嫌われたりいじめられるアスペルガー症候群の子どもが多いのです。
>その場で何が話題になっているか、言外の意味を汲み取ることが苦手なのでどうとでもとれる
>曖昧な質問には答えることが難しいのです。問いかけはなるべく具体的にする必要があります。
246:nobodyさん
07/07/15 23:00:57
>>245
後半は余計だ。荒れる素だからヤメレ。
247:nobodyさん
07/07/16 13:22:38
>>245
1以外は妄想だな。
なんていったけ、見下されると我慢できなくて攻撃態勢に入る精神疾患。
248:nobodyさん
07/07/16 13:46:04
>>247
ホントばかだなオマエは。
その1以外のために「暗黙のルール」や「言外の意味」に関する見解を示したんだよ。
1だけならたしかに後半は余計だった。
249:nobodyさん
07/07/16 13:57:35
だいたいリンクを踏んで行けば最後に一通りOS名が表示されることも知らないから
>>244のような発言が出るのだろうし、もし>>243で
「OSぐらい書け」
と言っていたら、ギャラリーの八割が
「Windowsに決まってるだろ」
と思うわけ。そういう当たり前の常識がオマエには無いんだよ。なぜなら脳に障害があるから。
>>244の脳に障害があることを前提に、極めてわかりやすく、リンクに要点の引用まで付けて
"暗黙のルール" の具体例を示したのに、それでも結局
「1以外は妄想だな。 」
と来る。妄想じゃなくて、暗黙の了解なんだよね。
要するにバカには言葉が通じないので、バカが死ねと言い続けるしか無いんだな。
250:nobodyさん
07/07/16 14:15:09
なんか今訊いたらOSXもPerlはプリインストールらしいじゃん。
初期でPerlが入っていない主要OSはWindowsのみ。>>244みたいな筋金入りのバカは
「Linuxでもカスタムインストールなら」
と言うかもしれないが、Linuxでは主要なアプリケーションでPerlが使われており、Perlは
対象から外せないか、外したつもりでも他のAPの依存関係で結局インストールされる。
試しにLinuxでPerl消してみろよ。yumもaptも動かなくなるから。
なんでこんなバカが人前で発言する気になるんだろう。
251:nobodyさん
07/07/16 17:32:45 Pd2envQf
どっちも酷いな
252:nobodyさん
07/07/16 18:05:34
>>248-250
後付けで何とか体面を整えようと必死杉。笑う。
これを裏付けるデータあるかね。お前さんの脳内以外に。
> 2. 習慣としてMacならMacと断りを入れる
> 3. 傾向としてWindowsユーザだけがこのような質問をする
253:nobodyさん
07/07/16 18:50:59
FreeBSD使いに喧嘩を売ったと見なす
254:246
07/07/17 01:15:15
>>248
あーあ、結局荒れるのか。いいかげんモチツケ。
>>247
アスペルガー症候群の事か?藻前の煽りも余計だ。荒れる素だからヤメレ。
255:nobodyさん
07/07/18 12:20:06
>>252
オマエ無様だからそろそろ己の低スキルを自覚して自殺しろよ。
オマエの人真似の言葉なんて誰の役にも立ちゃしないし、生きていても意味が無い。
>>254
「荒れる」のハードルも低くなったもんだなぁ。これはせいぜい教育的指導の域を出ない。
>>244みたいな典型的なバカが匿名を盾に人並みに発言するのが社会にとって最も有害。
ノーテクはノーテクだから>>252のように技術以外の部分に必死で食らいつく他に無い。
先に絡んで来たのは>>244なのだし、オレは知ったこっちゃない。
256:nobodyさん
07/07/18 12:58:42
まぁスレも過疎ってるし話を広げて行こうぜ。テーマはこんな感じで。
「OSを指定しないPerlの新規インストールに関する質問には当然OSを尋ねるべきである」
1. Linux、Solaris、OSXは通常プリインストールである
2. したがって質問者の使用OSがWindowsである確率はシェアから約99%超と考えられる
3. 1%の可能性のためにOSを尋ねる場合、回答到達までに3フェーズ必要となる
(OS問合せ->OS回答->URI回答)
4. したがってスレタイに関係なく、この場合OS名を尋ねる者は鬱陶しくも痛いバカである
反論があれば個別にどうぞ。
それとは別にPerlに関するくだらない質問は勝手に訊いてください。
257:nobodyさん
07/07/18 16:34:28
獅子王君はどこいったのかね?
258:nobodyさん
07/07/19 18:35:22 IU8VyPgY
初心者です。質問おながいします。
top.htmlのページからindex.cgiを通してサブルーチンで分岐してa.htmlとb.htmlを
出力したいのですがどうすればいいか詰まってしまいました。
例えば、top.htmlで「男性」or「女性」をクリックしてindex.cgiでotoko.htmlと
onnna.htmlを分岐する場合、top.htmlの中身のリンクの<a href=./index.cgi>
の所になにか条件を指定してcgi内でサブルーチンで分岐できるのですか?
できるならリンクの書き方を教えて欲しいです。
わかりにくくてすんません。
259:nobodyさん
07/07/19 19:12:33 CIvRVShF
>>258
普通にパラメータ書いて分岐させりゃ簡単に出来ると思われ。
ってか、top.htmlにotoko.htmlやonnna.htmlへの直接リンクを書かないのはなぜ?
260:259
07/07/19 19:19:01 IU8VyPgY
どうもですm(__)m
直リンクじゃなくてcgiを利用して使いたかったんで^^;
すいません、パラメータってなんですか?><
261:nobodyさん
07/07/19 19:21:52
>>260
実験してるって事?
ひとまず、
URLリンク(www.aikis.or.jp)
これでも見て勉強汁。
262:259
07/07/19 19:28:14 IU8VyPgY
ありがとう。
いろいろ試してみないと気が済まない性格で^^;
263:nobodyさん
07/07/20 00:13:39
>>255
裏づけるデータはお前の脳内以外には無いんだな。
264:nobodyさん
07/07/20 03:03:34
キミもそれしか言えないのかね
265:nobodyさん
07/07/21 09:40:53
妄想でしかないんだろ。
妄想を真理と思い込み、他の可能性には気が廻らない。
想定外だったという理由のバグを大量生産するタイプだ。
266:nobodyさん
07/07/21 17:15:10 LRr3Colp
バグってきついよねぇ~。
267:nobodyさん
07/07/23 11:42:52
>>259
#!/usr/local/bin/perl
use CGI qw(:standard);#CGIでのパラメタ受け取り等を簡単に扱うためのもの
use strict;
my$url=sample.cgi; #これ自身のファイル名にしておく
my$name = param('name'); #フォームからの名前投稿をパラメタとして受け取り
# 以下、投稿フォーム。
#form action="$url" は、submitボタンを押した時に飛ぶ場所
#name="name" は、パラメタ名
print my$a= <<EOM;
Content-type: text/html\n\n
<html><head>
</head><body>
<form action="$url" method="POST">
名前<input type="text" size=10 maxlength="7" name="name"><br>
<input type="submit" value="投稿" name="toukou"></form><hr>
EOM
# 以下、表示。
#もしも$nameがあれば(パラメタとしてでも$nameを受け取っていれば)$nameを表示
if($name){
print$name;
}
268:nobodyさん
07/07/23 12:05:29
アンカミスった
>>259でなく>>258。
上はただのパラメタの使い方。
フォームを
<form action="$url" method="POST">
<input type=radio name=seibetu value otoko >
<input type=radio name=seibetu value onna >
<input type=submit value=投稿>
</form>
とすれば、投稿ボタンが押されたときに$urlのURLに飛んで、パラメタ名seibetuにotokoかonnaを入れて渡すことが出来る。
受け取り側は
my$seibetu = param('seibetu');#パラメタ受け取り
if($seibetu eq otoko){
#パラメタがotokoだった場合の処理
}
elsif($seibetu eq onna){
#パラメタがonnaだった場合の処理
}
デバッグしてないから文法ミスがあるかもしれないが、こんな感じで
269:nobodyさん
07/07/23 12:26:23
そうそう、
>>261のリンク先に、getが使用されにくい理由に
・環境変数には長さに制限があるので、getの場合途中でパラメータが切れることがある
・ブラウザがIEの時、フォームに<TEXTAREA>があるときはGETは使えない
・postの場合、パラメータの長さが。環境変数 CONTENT_LENGTH に格納される
とあるが、getはURLエンコードして、見える状態で渡されるから、悪意ある第三者に利用される可能性がある。
セキュリティの面から言ってもpostを使ったほうがいい。
もっと言うなら、「getもpostも両方の扱い覚えるのマンドクセ」ってときはpostの扱いだけ覚えればいい。
以上、駄文スマソン
270:258
07/07/23 16:22:00 dzTqHpzl
ありがとう。簡単にこんな感じで作ってみたけど上のもコピーしてやってみます!
#! c:/perl/bin/perl
$buffer = $ENV{'QUERY_STRING'};
if($buffer eq 1) {
otoko()};
if($buffer eq 2) {
onna()};
sub otoko{
print "Content-type: text/html\n\n";
print "<HTML><HEAD>";
print "<TITLE>CGI-TEST</TITLE>";
print "<BODY>\n";
print "$buffer 男性<br>";
print "</BODY></HTML>";
exit;
}
sub onna{
print "Content-type: text/html\n\n";
print "<HTML><HEAD>";
print "<TITLE>CGI-TEST</TITLE>";
print "<BODY>\n";
print "$buffer 女性<br>";
print "</BODY></HTML>";
exit;
}
271:nobodyさん
07/07/23 19:24:19 ZBWpUMJL
パーミッションの設定に躓いてから なにもやらなくなって
早2年
そんな自分に嫌気がさす。
てかActivePerlとMySQLのインスコが難しすぎる。
何度やっても失敗ばっかりだ。
俺の人生を象徴しているかのよう。悔しいぜ。
272:nobodyさん
07/07/23 20:36:30 vSTTUlTw
Perl勉強しはじめて2週間。
基本的なことなんだけど考え付かなくなってしまったので
発想力をちょっと貸してください。
HTTPリクエストして、BODY部分だけ表示させたいのですが
HEAD部分を表示させないようにSOCKETを
while (<$SOCKET>){ m/^\r\n$/ and last; }
print <$SOCKET>;
こんな感じでHEAD部分はループさせて抜けてから
BODY部分をprintさせるうえで
while使わずにやる方法としてはどうやりますか?
do{}whileやuntilでも出来ると思うんですが
何故かHEAD部分から全部表示されたり、無限ループに突入したりします。
難しいものじゃないはずなのに何故か書けない罠にはまった感じです。
発想力をちょっと貸してください。
273:nobodyさん
07/07/23 21:52:25
>>272
つかまずバッファに入れてから処理しようぜ
SOCKETひらきっぱで処理するのイクナイ
274:nobodyさん
07/07/23 22:19:18
>>272
ソケットとかややこしそうで足踏み入れてなかったが、ソケットのヘッダとボディは
"Content-type: text/html\n\n";
となってるんだよな?
\n\nと、改行が2個あるところで判断すればいいと思う。
この改行は\nであって\r\nでは無理だと思う。
my$ppp = my@socket = <$SOCKET>;
for (0..$ppp-1){
if($socket[$_]=m/^\n$/){last}
shift @socket;
}
print @socket;
↑これでイケル希ガス。つかもっといい方法を思いたったので次に書く。
おそらく、HTMLで表示するんだろうから、chompで改行文字を消してもいいんだよね?
my@socket = chomp(<$SOCKET>); #改行文字だけの部分はchompでカラになる。
while(@socket){shift @socket} #@socketで要素が何も無い場所に来るとwhile文がfalseとなりループは終わり、shiftも終わる。
#@socketの0個目の要素は何もカラ、1個目からの要素は改行を取り除いたボディ部分。
ちゃんと動作するか知らんが、初心者同士がんがろうぜ
275:nobodyさん
07/07/23 22:30:09
×ソケットのヘッダとボディは
○ソケットのヘッダとボディの区切りは
>>274で、もしおかしなこと言ってたらスマソ。
そもそもソケットとかHTTPリクエストとかよく知らんのに答えてもた。
276:nobodyさん
07/07/23 23:36:05
>>274
× $socket[$_]=m/^\n$/
○ $socket[$_]=~m/^\n$/
スンマソ
277:nobodyさん
07/07/24 09:28:58
HEADとBODYって言ってるからhttpヘッダじゃなくて
純粋にhtmlの<HEAD><BODY>の話なんじゃまいか
278:nobodyさん
07/07/24 10:22:47
URLリンク(www.7key.jp)
そこの
07:
08:<http>
09:<head>
10:(以下省略)
みたいになってて</head>まで削除して<body>から残したいと。
なら>>274を改造して
my@socket = <$SOCKET>;
for (0..$#socket){
if($socket[$_]=m~/^<body>\n$/i){last}
shift @socket;
}
print @socket; #<body>以下を表示
でいいんじゃまいか
279:258
07/07/25 14:52:50 pV3pjlQZ
こんにちは。質問おながいします。
jcode.plって日本語に変換するプログラムですよね?
英語に変換するものや中国語に変換するものもあるんですか?
英語に変換するものや中国語に変換するものもあるなら
ほしいので知っている方いたらお願いします。
280:nobodyさん
07/07/25 15:02:01
>279
文字コードの変換≠翻訳
いやー、夏だねえ・・・
281:nobodyさん
07/07/25 15:52:28
きっとダンくんが何とかしてくれるよ。(違
282:258
07/07/25 16:39:08 pV3pjlQZ
jcode.plにつながっているからかな・・文字化けしてしまう。
$ENV{'CONTENT_TYPE'}
これってなんかの文字コードが格納されているのですか?
283:nobodyさん
07/07/25 16:46:44
されている場合もある、かな。
中身は、text/html; charset=Shift_JIS
とかだよ
284:258
07/07/25 17:03:43 pV3pjlQZ
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }
if ($buffer eq "") { &error('アクセスエラー');}
if($ENV{'CONTENT_TYPE'} !~ /multipart\/form-data; boundary=------------/){
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/, $pair);
$name2 = $name;
$value2 = $value;
$QUERY2{$name} = $value;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value = change_i_pic_sym($value);
こんな感じになってます。
$ENV{'CONTENT_TYPE'} の、ところをtext/html; charset=Shift_JIS
にしてutf-8にしたいからtext/html; charset=utf-8
に、すれば文字化けふせげますかね?
やってみます。
285:258
07/07/25 17:10:29 pV3pjlQZ
CGIが動かなくなってしまった^^;
無理なのかなぁ・・
286:nobodyさん
07/07/25 17:11:38
なんでいきなり multipart/form-data が出てくるんだ。
元々何の質問なの?文字化けって何が化けてるの?
287:nobodyさん
07/07/25 17:16:13
The PHP documentation team is proud to present to the PHP community a few fixes
and tweaks to the PHP Manual, including:
URLリンク(jp.php.net)
これのproud toって誇りを持ってとか、プライドを持ってとかの意味?
たまにPHPトップのニュースに出てくるけど、そこまで大げさに言わなくてもいいんじゃないの?
288:287
07/07/25 17:23:15
スマソ
PHPスレと間違えた
289:258
07/07/25 17:28:38 pV3pjlQZ
さっきのプログラム(rog.cgi)はコード変換処理ってところを抜き出して
コピペしたんだけどjcode.plにコード変換処理させていてrog.cgiの
ファイルがutf-8にしてあるから文字化けしてるのかなと思い・・
jcode.plをutf-8に対応できるプロトコル?にできればいいんですが
それがどうしていいかわからなくて。説明へたですんまそん。
ほかのcgiファイルにはいってるhtmlはtext/html; charset=utf-8
で文字化けしてないけどrog.cgiを通って出力するhtmlは文字化けしてしまうので・・
290:nobodyさん
07/07/25 17:42:59
jcode.plはutf-8には対応してないから。
さすが「くだすれ」ww
ものすごいレベルの低さだwww
291:nobodyさん
07/07/25 18:32:34
まずは、jcode.plをjcode.pmに変更だ。
少しの変更で移行できる。
その後UTF-8に対応だ。
292: ◆lVJAPUTeX.
07/07/25 23:03:36
(we are) proud to... は英語の決まり文句なので、訳する場合は "proud" は無視しちゃってもいいくらいのものです。
293:nobodyさん
07/07/27 17:51:08 lN7iMdmd
/の逆の斜線はどこを押すと出てきますか、
超初心者以前の問題ですみません
294:nobodyさん
07/07/27 18:03:04
\
295:nobodyさん
07/07/27 18:03:54
>>294
それでよかったんですか。ありがとうございます。。
296:nobodyさん
07/07/27 18:26:21
書いたものの、どこで実行すればよいのでしょう?
web上にアップロードして実行するんですか?
297:nobodyさん
07/07/27 18:33:25
on your desk
298:nobodyさん
07/07/27 18:40:42
どこで実行するかも決めずにいきなり書いたのか・・・
この板的には、とりあえずhttpサーバ入れて設定するのがいいのでは
299:nobodyさん
07/07/27 21:08:35
いろいろググってみたのですが、わからないので教えてください。
現状を言うと、ActivePerlはインストール完了、
#!/usr/bin/perl
print "Hello, world!\n;
をActivePerlでできたフォルダにhello.plで保存。
再起動済み、次にどうすればいいのでしょうか・・・
ちなみにOSはvistaです。
300:nobodyさん
07/07/27 21:41:25
コーヒーを淹れる
301:nobodyさん
07/07/27 22:07:58
>>299
関連付けが正常に行われていれば
(plのファイルのアイコンがトカゲになっていれば)
ダブルクリックで実行。
ただし、
print "Hello, world!\n";
とすること。
1行目は不要。
302:nobodyさん
07/07/27 23:38:19 lN7iMdmd
>>301
アイコンはトカゲになってます。
ダブルクリックすると開いた瞬間閉じてしまうのは仕様なんでしょうか?
print "Hello, world!\n"; で実行しましたが、結果はどうなってるのやら・・・・orz
303:nobodyさん
07/07/28 00:46:08
>>302
先に開いてあるプロンプトから実行しないと、すぐに閉じてみえなくなります。
sleep 5;と入れれば幸せになれますか?
304:nobodyさん
07/07/28 07:29:47
cgi-lib.plを使って受け取ったフォームから受け取った値を
for文で繰り返し処理しようと思ったのですがうまくいきません
my %input;
&ReadParse(\%input);
for (1..20) {
$MORAU[&_] = $input{'&_'};
}
やっぱり根本的に間違えてるんでしょうか
305:nobodyさん
07/07/28 08:02:50
うん。根本的に間違えておる。
詳しくは超初心者の心理を鋭く妄想できる>>245大先生が教えてくれるだろう。
306:nobodyさん
07/07/28 11:42:32 YzZLztvi
>>303
先に開いてあるプロンプトから実行・・・・・・・といいますと?
すみません orz
307:nobodyさん
07/07/28 14:46:24
その言葉のどこが、何がわからないのかね。
まさか日本語が判らないのかね。
謝る前にもう少し質問を明瞭にするべきじゃないかね。
とりあえずprint文の次に>>303のコマンドを入れてみてはどうかね。
308:名無しさん@そうだ選挙に行こう
07/07/29 04:34:03
おまいら意地悪しないでANHTTPDとか入れるように言ってやれよw
309:名無しさん@そうだ選挙に行こう
07/07/29 08:43:45
あんなものいれるな
310:名無しさん@そうだ選挙に行こう
07/07/29 11:16:38
じゃあ、いじわるしないで、コレな。
つ[ URLリンク(www.vmware.com) ]
つ[ URLリンク(blog.yasaka.com) ]
311:nobodyさん
07/07/31 00:29:12 pMcNAP1A
Perlをはじめてもいない初心者です。
そんな自分も歓迎してくれるらしいと聞いてやってきました。
ActivePerlがインストールできません。
サイトから5.8.8のMSIじゃない方ダウソしたのですが
インストール用のバッチファイル実行中に次のエラーが出て終了。
「Can't spawn "command.com":Not such file or directory at (どう見ても
実行中のバッチファイル自身のアドレス) line 272,<STDIN> line 7.」
なに探してるんだよ。orz
解決法ピンとくる方がいたらば教えてください。
スレチなら誘導たのんます…
312:nobodyさん
07/07/31 01:10:27
こういうときは環境ぐらい書くもんだ
313:311
07/07/31 01:25:27
すません。OSはMeです。
おとつい他スレで笑われたけど…orz
314:nobodyさん
07/07/31 01:36:13
msiの使えばいいじゃない。
315:nobodyさん
07/07/31 01:41:39
だめだった。
今チャレンジしてるやつが一応一番進んでるっぽいです。
インストールしてます→エラーです とな。
316:nobodyさん
07/07/31 01:44:51
>>311
どこから来たかを先に書こうよ。同じ問答しなくてよくなるんだから。
かぶってる住人も…いや、くだすれにはあまりいないのか?
Perlについての質問箱 31箱目
スレリンク(tech板:685-694番)
向こうはこのあと謎の流れになったんだよなあ…。
317:311
07/07/31 02:03:23
それです!お世話になりました。
初心者むけスレあったんかいと思って移動。
318:nobodyさん
07/07/31 03:35:48
>>311
> 「Can't spawn "command.com":Not such file or directory at (どう見ても
> 実行中のバッチファイル自身のアドレス) line 272,<STDIN> line 7.」
これって
my $cmd = "xcopy /q /r /i /e /k Perl\\* \"$prefix\" ";
system($cmd) && die "$!\n";
↑この辺になるんだが、xcopy.exe がないとかいうことはないよな?
すまんが画面に出てくる途中経過のメッセージの、アボートするちょっと前から
アボートするまで貼り付けてくれ。
319:311
07/07/31 04:12:50
アボードの意味がわかんないけども
xcopy.exeもよくわかんないけども
...
Add the Perl\site\bin and directories to Path?[yes]
Proceed?[yes]
Ok.
Installong ActivePerl...
Copying files...
Can't spawn "command.com":Not such file or directory at (どう見ても以下略
...
って出てます
320:nobodyさん
07/07/31 04:29:23
あ・そうですねなんかxcopyってのがないみたいだ…
探してみます って手に入るんだろうか。
321:nobodyさん
07/07/31 10:07:43
xcopy.exeは標準で入ってるだろ。
PATH通ってないとか?ありえない気がする・・・
322:nobodyさん
07/07/31 23:24:44
xcopyはありました、
でもDOSで打っても使えないんだよな。
いろいろいじってみます・・・
323:nobodyさん
07/08/01 00:31:48
COMMANDの中身をまるごと
インストーラと同じディレクトリにつっこんでみたところ少し進みました。
だがつまった…
...
Proceed?[yes]
Ok.
Installong ActivePerl...
Copying files...
Finished copying files...
Relocating...Can't open C:\Perl\bin\c2ph.bat: No such file or directory at
C:\(略)\INSTAL~1.BAT line 307, <$reloc> line 1.
...
ってなって強制終了…ハァ…
ちなみにC:\Perlには何も入ってないです。
いったい何が不味いのでしょうか。
324:nobodyさん
07/08/01 01:09:29
>>311
実は64bit版落としちゃったとかじゃないよな・・・。
前スレ694も書いてたけど、Windows9x/MeだとWindowsInstaller2.0+が
要るんだけど入ってる?
URLリンク(downloads.activestate.com)
325:nobodyさん
07/08/01 01:14:35
x86てあるから多分86bit
入ってる入ってる
場所はどこでもいいんですか?
326:nobodyさん
07/08/01 01:58:42
どんがらがっしゃん
327:nobodyさん
07/08/01 02:15:59
>>324
311が今試しているのはmsiじゃなくてASパッケージの方だから、
とりあえずMSインストーラーのバージョンは関係ない。
ってMSインストーラーのバージョンを上げてもう一回msiで
やればよかったりして。
328:nobodyさん
07/08/01 02:25:56
>>322
> xcopyはありました、
> でもDOSで打っても使えないんだよな。
いったいまともなシステムなのかい、おまいさんの使っているのは。
Meかどうかってのはおいといても。だ。
> いったい何が不味いのでしょうか。
わけもわからず闇雲に
> COMMANDの中身をまるごと
> インストーラと同じディレクトリにつっこんでみたところ少し進みました。
こんなことやってるからだ。
バッチファイルの中身は実質Perlスクリプトなんだから、適当にいじりなさんな。
...
329:nobodyさん
07/08/01 03:08:43
>>325
場所? 何の? 自動的に進むはずだけど。
つかそのMe壊れてるんじゃないかなぁ。
330:nobodyさん
07/08/01 10:18:26
Meかよ!
AUTOEXEC.BATにPATH設定しとけ
331:nobodyさん
07/08/03 16:12:48
XPで、最新版あくちぶぱーるのMSIのほういれようとすると、
警告がでてインスコできない。
古いバージョンなら問題なくはいりました。
ただ、最新版をいれようとナニカ変なことをやらかしたようで、
ノートン先生のゴーバックつかって、インストールしてない状態にもどしてから
古いバージョンをインストールしなおしました。
もしかして、その状態なのかな?
332:nobodyさん
07/08/04 02:01:08
>>307
初めて使う人なわけだからさ。
333:nobodyさん
07/08/04 16:47:07
だから?
334:nobodyさん
07/08/04 18:30:38
アスペルガーの特徴。
自分が知っていることは
他人も当然知っていると思い込んでいる。
335:nobodyさん
07/08/04 19:26:37
アスペルガー症候群は格好良い、天才故の悩みみたいで。
気違い認定されると嬉しいけど、アスペルガー認定も嬉しい。
336:nobodyさん
07/08/05 12:35:06
MSIインストーラは、適当に置くんじゃなくて、
クリックしてインストールしないとね。
337:nobodyさん
07/08/05 13:59:47
>>335
死ねキチガイ
338:nobodyさん
07/08/05 14:23:50
アスペルガーはキチガイじゃないよ
ただ自分にしか関心がなくて
他人にまったく関心がないってだけ。
339:nobodyさん
07/08/07 20:51:45
アスペルガーは、相手の言葉の裏を読めないだけ。
基地外でもないし他人に関心が無いわけでもない。
基地外をアスペルガーと呼ぶのはアスペルガーの人に対して失礼だ。
とマジレス。
340:nobodyさん
07/08/08 01:27:49
でも教科書にはアスペルガーは他人に関心がなく
自分のことにしか関心がない、って書いてあるよ
そしてプログラマー板とか見ると、まさに
そのとおり、って感じ。
341:nobodyさん
07/08/08 08:53:24
>>340
他人に関心を持ちつつも、うまく対処出来なくて悩んでるアスペルガーの人の特集やってるテレビ見た。
アスペルガーに対する偏見はすさまじいらしいから、教科書等でもそういう見方をしてしまうのかと。
実は他人とも仲良くなりたいが、自分が傷つきやすく(言葉の裏が読めない為)、相手の傷つくのも理解しにくい(言葉の裏を読めない為)から、本人達はかなり悩んでいる。
本当のアスペルガーってのは、脳が他のことに特化して、脳の中で他人の言葉を深く考える部分が成長していないんだと。
普通、基地外ってのは、相手がうざがったりへこんだりするのを見て喜んだりするような真性のアホを指すことが多いと思うが、
アスペルガーは(たとえ結果的に傷つけてしまう言葉を言うにしても)相手が嫌な思いをするのを目的で嫌な言葉を使っているのではない。
どこかの教科書に「アスペルガーは他人に関心が無く」ってのは、周りからの(偏見に満ちた)見方をしているだけだと思う。
アスペルガーは、アスペルガー本人にしてみれば他人にも関心があるが、アスペルガーじゃない人がアスペルガーを見ると関心が無い"ように見える"だけだと思う。
アスペルガーはただの発達障害の1つであり、何かの能力で他人より優れている部分があることが多いが、かわりに他の能力で他人より劣ってる部分があるだけ。
なんで、アスペルガー=基地外っていうのは偏見だと思うよ。
プログラマー板でアスペルガー名乗ってる人が居るのかどうかも知らないが、基地外に対してはアスペルガーではなく基地外と呼ぶほうが正しいと思うよ。
基地外の別称としてアスペルガーを使うのはそれこそ差別になりかねないから。
と2度に渡りマジレスすまそ
342:nobodyさん
07/08/08 08:56:46
最初からそう言ってくれれば別にいいんだけどさ、
結局コミュニケーション取れないから仕事にしても何にしても
やりにくくて仕方が無い。
つかなんでこんな話題が続いてるんだw
343:nobodyさん
07/08/08 15:35:52
空気が読めないからさ
344:nobodyさん
07/08/08 21:37:41
話題が無いだけさ
345:nobodyさん
07/08/13 23:51:38
parrotの話でもしよう
346:nobodyさん
07/08/28 21:12:01 S4BK4Wc3
スレッドフロート型掲示板って中規模くらいにはなるの?
347:nobodyさん
07/08/28 22:44:17
>>346
シンプルに作れば200行は超えない。小規模だろう。
もちろんいろいろ細かなことを気にしたり機能を増やしたりすれば
中規模になっても不思議ではない。
348:nobodyさん
07/08/28 22:55:12 S4BK4Wc3
120行程度を8個程度連動して動かすのは?
アップローダーなんだが、スイッチ作るよりもそっちのが若干の負荷軽減になるし。
まぁ、漏れは基本的にそっち系なんだが。
349:nobodyさん
07/09/01 11:35:54 J92zlSvR
perl初心者です
perlでrssを定期的に取得し、取得したrssからurlとタイトルを取得しhtmlに出力
するようなcgiを書きたいです。ムリですか?
350:nobodyさん
07/09/01 11:50:45
>>349
頑張れ
351:nobodyさん
07/09/01 12:21:56
>>349
定期的になんかやる CGI なんて面倒だよ。原則として CGI というのは
サーバがクライアントからリクエストがあったときに起動するものだから。
サーバ内で定期的 RSS を取得するプログラムを走らせるか
RSS を取得する CGI に定期的にアクセスするか、
定期的に取得することをあきらめるか、のどれかが自然だと思うよ。
352:nobodyさん
07/09/02 05:21:02 tMV8T4kQ
>>349
結果をキャッシュして前回アクセスからn秒未満ならキャッシュを渡すようにすれば擬似的に可能
353:nobodyさん
07/09/02 12:32:14 VQ85YXho
クライアントから定期的にリクエストだとか
つか、クライアント上で取得→生成→sleepをwhileでぶん回す方がいいと思う。
レン鯖ではアカウントヤヴァスだが。
354:nobodyさん
07/09/02 12:44:47
while でぶん回すって・・・ cron なりなんなりを使おうよ
355:353
07/09/03 02:09:47
>>354
あくまでPerlだけでやるとすればの話。cron使えないと終りだし。
漏れも昔の話だがtempファイルがどうしても不必要に増えてしまうスクリプトを作ったので
同様の悩みを持ったことがあるが、結局は手動でまとめて消すのが手っ取り早いと気付いた。
つか、クライアントで生成してwhileぶん回す必要ないだろ>漏れ
何書いてんだか…
356:nobodyさん
07/09/03 02:35:41
・cron使え→使えないレン鯖の場合はどうしろと(´・ω・`)
・sleep仕込んでwhileでぐるぐるするとか→セッション終わったらどうなるんですか(´・ω・`)
…になるんだよね。
サーバ側でもクライアント側でもcronやタスクマネヂャが使えない場合で
なおかつCGIでないプロセスを回しっぱなしにもできない場合は、
頻繁にアクセスがあるサイトにCGIのトリガーを仕込みましょうとか、
そういうヘンテコな実装をするはめになる。
357:356
07/09/03 02:36:30
s/タスクマネヂャ/タスクスケヂュラ/;
358:nobodyさん
07/09/03 10:36:26 5z4DsU1G
デフォルトでエラー行数が表示されないってのきつい。。。
みなさんどうやってデバッグしてるんですか?
359:nobodyさん
07/09/03 14:58:39
>>358
最悪の場合、debug.txt作って処理を全て書き込み。
基本的にはエラー表示を使って大雑把に問題を切り分け。
360:nobodyさん
07/09/03 21:53:27
デバッガ使え
361:nobodyさん
07/09/04 02:47:11
Perlのデバッガ使いづらい
362:nobodyさん
07/09/04 22:45:32
>>349
cronかWebcronを使うってのはどうですか?
363:nobodyさん
07/09/04 22:46:07
>>356
webcron
364:nobodyさん
07/09/05 18:27:45 y75V3THa
PERLで画像のアップロードのCGIのことでわからないんですが
▼写メールで画像を送信できます。<HR>
件名、本文には何も書かなくてOK!<BR>
(サイズ制限:容量制限$maximg\k以内)<BR>
<a href='mailto:$SV_MAIL'>写メール送信</a><BR>
<BR>
送信が成功したら<a href='$CGI_MAIL?ID=$id&PASS=$pass'>こちらへ</a>
と、なってるんですがメインのCGIの $SV_MAIL が、カラなんでメール送信できないし
携帯でアクセスしても画像貼れないし、管理のwebmaster@~のメルアドいれても画像転送できないのですが
どうやって設定したら画像転送できるようになるでしょうか?
わかりにくくてすいません。わかる方いたら宜しくおながいします。
365:nobodyさん
07/09/05 18:37:00
$SV_MAIL には自分のサイトのアドレス入れるんだべ?
そして、そのアドレスではプログラムが待ち受けていて
受け取った画像を登録するようになってるはず
ちゃんと説明読んでインストールしたのかね?
366:364
07/09/05 18:42:12 y75V3THa
365さん、ありがとう。
管理のwebmaster@~のメルアドいれて携帯から送って受信したメール
見たら、英数字だけが大量に送られていて画像がなかったんです。
<そのアドレスではプログラムが待ち受けていて>のプログラムが
おかしくなってるんでしょうか?
367:nobodyさん
07/09/06 10:07:23
>>366
それってContent-Type: multipart/mixed だったりしない?
メールってのは文字しか送れないから、画像のときは
英数字に変換して送られる。
受け取った側は自分で画像ファイルに変換しないと。
368:364
07/09/06 15:14:11 CdaTSQs2
Content-Type: multipart/mixed;
に、なっています。
どうやったら英数字に変換して送れるようになりますか?
CGIの中身は・・
# マルチパートの検出
if ($mHead =~ /Content-type:.*multipart\//i || $mHead =~ /Content\-Transfer\-Encoding:.*base64/i)
に、なっています。これじゃだめでしょうか?
これだけじゃわからないですか?
369:364
07/09/06 15:19:08 CdaTSQs2
CGIの中が・・
# マルチパートの検出
if ($mHead =~ /Content-type:.*multipart\//i || $mHead =~ /Content\-Transfer\-Encoding:.*base64/i) {
# 区切り文字列で分割
$bound = '';
if ($mHead =~ /boundary\=\"(.*)\"/i)
受信したメールのヘッダが
Content-Type: multipart/mixed; boundary="mimemk00_0_"
Content-Transfer-Encoding: 7bit
と、なってます。
370:nobodyさん
07/09/06 15:24:09
メールは受け取ってるみたいだね。
おそらく本文には
Content-Type: image/jpeg;とかContent-Transfer-Encoding: base64 とかあるだろう
で、何ができてないの?画像の保存?
画像を保存する場所のパーミッションとかじゃないの?
エラーログには何か出てないのか
371:364
07/09/06 15:47:39 CdaTSQs2
本文は
/9j/4QIGRXhpZgAASUkqAAgAAAALAA4BAgAlAAAAkgAAAA8BAgAHAAAAuAAAABA
BAgAGAAAAwAAA ABIBAwABAAAAAQAAABoBBQABAAAAygAAABsBBQABAAAA0gAAA
CgBAwABAAAAAgAAADIBAgAUAAAA 2gAAABMCAwABAAAAAQAAAJiCAgABAAAAAAA
AAGmHBAABAAAA7gAAAAAAAAAyMDA3MDkwNjE0MDkw MDAAAAAAAAAAAAAAAAAAA
エラーもでてないしこんなのがずらずらでてるだけだす。
携帯から掲示板に画像をアップしたいけどPCからはできるけど
携帯から送るとこうなってしまって解らなくて;;
372:nobodyさん
07/09/06 16:03:13
>>371
base64のデータのようだからデコードしてバイナリデータに戻せばいいと思う
373:nobodyさん
07/09/06 16:30:22
デコードしろよ
374:364
07/09/06 17:17:30 CdaTSQs2
すんません。
初心者なんでデコードしてバイナリデータに戻す方法が
わかりません・・・;;
375:nobodyさん
07/09/06 17:28:13
だからよー
CGIの中身中身言ってるけど、それは何のCGIなんだよ
メール受信時にforwardとかでプログラム起動して画像データ抽出してんじゃないのか
CGIでメールを直接読んでるのなら、そこでデコードしてるはずだろ
どういう構造で、今どういう動作をしてて、本当はどういう動作をするべきなのか
全部書けよ
376:364
07/09/06 17:43:51 CdaTSQs2
メールをPOPサーバへ接続したりMIME解読したりするmail.cgiに
なってます
CGIの中身を貼りたいけど長すぎて貼れないや・・・
377:nobodyさん
07/09/06 21:42:23
ここは超初心者用のスレなので低レベルな質問でもokだが、
それは、Perlに対してであり、日本語に対して超初心者用なのでは無い。
>>364の質問に的確に答えられる奴はいないだろう。
例えるなら、「和食を作ったのですが、出来た物が辛いです。
どうしたら良いでしょうか?」と言ってるようなもんだ。
こんな質問には超一流の料理人でも答えられないよ。
つまり、Perlを勉強する前に日本語と最低限の
コミュニケーション術を学んでから出直して来い。
378:nobodyさん
07/09/07 01:22:28
質問能力が無いやつは
荒らしだから相手にしないほうがいいよ
379:nobodyさん
07/09/07 01:46:41
mail.cgiは自作なのか?
そうでないならエンコードも入ってると思うがなあ
エンコードそのものはそんな手間でもないので
自分で書くつもりならbase64とmultipartの扱いだけ調べりゃすぐだ
380:364
07/09/07 15:23:45 2t2s6ltN
CGIは無料でダウンロードしたやつだしPERLの知識0だからね
スルーで終了してくれ
381:nobodyさん
07/09/07 16:17:59
作者のサポートサイトで聞くのが
筋だと思ふ、そういうのは…
改造ならこの板に適切なスレがあるし
382:364
07/09/07 16:30:08 2t2s6ltN
381さん
ありがとう
383:nobodyさん
07/09/09 12:02:21
複数のラジオボタンの結果の受け取り方がわかりません。
TMPL_LOOPでいくつかのラジオボタンを表示してます。
NAMEはすべて変えてます。
ただparamを配列で受けとればいいのですか?
ラジオボタンの個数とNAMEをhiddenで渡さないとだめでしょうか?
384:nobodyさん
07/09/10 09:56:44
チェックされてないラジオボタンも欲しいの?
だったらそうなるね
385:383
07/09/10 11:57:32 pVVOBct/
>>384
なんというか、二択のラジオボタンが複数あるということです。
それぞれどちらがチェックされたかが知りたいのですが
386:nobodyさん
07/09/10 12:17:53
本来なら、同じグループのラジオボタンは同じ名前にしてValueで確認するんだが
全部Name変えてるならその名前で全部チェックしては。
チェックされてなければValueが入ってこない
387:nobodyさん
07/09/10 19:36:15
>>383
ラジオボタンのグループごとにidを決める。
ex.radio1,radio2...
次にデコード後に送信内容をハッシュに収めて↓みたく値を参照する。
$DATA{'radio1'},$DATA{radio2'}...
これで中身に其々の値が代入される。
388:nobodyさん
07/09/11 23:05:59 bdpoEocx
textareaに入力された情報をCGIで受け取りたいのですけどうまく行きません。
どのようにすれば取得できますか?
389:nobodyさん
07/09/12 00:28:37
つMETHODに合わせて送信情報をデコード
390:nobodyさん
07/09/12 00:31:26 m2heepaU
すみませんけど、その情報のデコード方法が分からなくて;;
formなどの受け取りは普通に出来るのですが、
textareaだけは同じように受け取ろうとしても出来なくて、、
391:nobodyさん
07/09/12 00:52:50
perlで掲示板のcgiつくってます。
terminalから
> /usr/local/bin/perl < hoge.cgi
とすると、
Content-type: text/html;\n\n
<html>
中略
</html>
みたいに目的のhtml書き出せるんですが、ブラウザからやると
500になってしまいます。。。
パーミッション/転送モードは大丈夫です。
何か考えられる原因ってありますか??
392:nobodyさん
07/09/12 00:53:02
google先生「"perl デコード"に一致する日本語のページ 約 231,000 件」
393:nobodyさん
07/09/12 00:58:46
>>391
エスパーレス、ブラウザに対する出力がなされていない。
次の文章をスクリプトの最終処理の後にくっつけてみれ。
print "Content-type: text/html; charset=Shift_JIS\n\n";
print "テスト";
これでテストが表示されれば、HTMLの出力なりlocation指定するなりすればよかろう。
それでもアウトなら上の二行を少しずつ処理の前方へとズラしていけ。
394:nobodyさん
07/09/12 03:04:50
どうせエスパーレスつけるんだったら
> Content-type: text/html;\n\n
> <html>
> 中略
> </html>
print 'Content-type: text/html;\n\n'; と書いてるところを
print "Content-type: text/html;\n\n"; に書き換えろ
じゃないのか。出力がそうなってるらしいし。
395:394
07/09/12 03:06:38
ていせい。
誤: print "Content-type: text/html;\n\n"; に書き換えろ
正: print "Content-type: text/html\n\n"; に書き換えろ
396:nobodyさん
07/09/20 19:00:31 tH1/iNYn
動的なトップページですが、HTMLに複数のSSI(例えば5つ以上、index.shtml)を使うのと、perlで全て一括で出力(index.cgi)させるのとではどちらがサーバにやさしいですか?
397:nobodyさん
07/09/20 20:28:19
その程度じゃ変わらないから気にするな
398:396
07/09/20 21:20:19
>>397
了解です。
PHPを覚えるまではindex.cgiにしてみます。
399:nobodyさん
07/09/24 16:40:32 HMQ03/cj
家庭的な事情で貧乏学生なのでお金稼ごうとWebアプリ作ろうと思っています。
将来的にIT系に就職を考えてるので、もし失敗しても良い経験になるかなと思ってます。
質問なのですが、WebアプリはGatewayの7万円台で買った安パソコンでも作れますか?
一応情報系なのでPerlやコンピュータの基礎知識はあるつもりですが、
制作実務経験が足りてないもので、ましてやWeb系は手を出したことがなく右も左も上もわからない状態です。
調べたところCatalystというフレームワークがよく使われるそうですね。
簡単に作れるというふうに書いてありました。
しかし、常識的に考えると、serverを増強していくのにかなり費用が必要だったりするので、
ちょっと学生が手を出して儲かる世界なのかなと思います。
学生で儲かっている人はいますか?
周りの友達などからは何もそういう類の情報がないので、わかりません。
ちょっと傲慢な申し出ですが、何か少しでもヒントやアドバイスを頂ければと思う次第であります。
400:399
07/09/24 16:52:16 HMQ03/cj
すみません。上のものです。書き忘れていました。
Webアプリは一人でも開発できますか?
もちろん、一人が作ったという話はちらほら聞きますが、
Perl暦一年の私でも大丈夫でしょうか?
PerlはLLだから簡単という話もありますが、一人だと出来ることはかなり小規模なものに限られてくるのでしょうか?
たとえば、はてなは少人数ですが、みんなすごいPerl使いなはずなので、はてなを見て「少人数でもあれだけのものが
作れるのだから、一人でもそれなりのものが作れるはずだ」などと思うのは早計でしょうね。
何が言い対価というと、一人だときついかもしれないということです。
個人的にはこのように(勝手に)判断していたのですが、最近どうしても学生のうちに作りたいと
思ってきたので、一人で作れないかと思い始めています。
ちなみに、協力者(同志)はいまのところいそうにないので、まずは一人で作る線で考えている次第です。
Web系のPerl熟練の皆様の判断をいただければと思います。
どうかよろしくお願いいたします。
401:nobodyさん
07/09/24 17:15:49
一人でも中規模だろうが大規模だろうが作れる。
できなければリーナスは誕生していない。
CだろうがJAVAだろうがPerlだろうが計算機は所詮計算機でしかない。
402:nobodyさん
07/09/24 17:40:21
ヤフーや日経の株価・為替レートを自サイトで表示したいです。
2チャン工業[150円]+0.5% ひろゆき証券[3,270円]+1.7%
みたいに表示させたいです。
parlでできる事は調べたら分りましたが、解説サイトが少なくて分りにくいです。
どこか初心者向けのないでしょうか?
URLリンク(www110.kir.jp)
↑これをhtmlに変換したけど動かなかった。
URLリンク(d.hatena.ne.jp)
↑これは動いたけど、もっと沢山数値が欲しい時どうするのか分らない。
403:nobodyさん
07/09/24 18:26:44
一つだけアドバイス。
本で買える情報は本で買ったほうが早い。
時間が有り余っているなら別ですが。
404:399
07/09/24 18:28:06 HMQ03/cj
>>401
ありがとうございます。
作れるのはいいとして、
しかしサーバ増強などに費用がかかりませんか?
405:nobodyさん
07/09/24 20:05:11
グーグルは
スタンフォード大学の
コンピューターセンターに
転がってるマシンを勝手に
無断で持ってきて自分達のものにしてた。
また、配送されてきて、
梱包を解かれないで
配送センターに放置されたままの
マシンは
「誰も必要としていない」
と勝手に判断して、それも
自分達のものにしてた。
406:nobodyさん
07/09/24 20:42:24
>>404
いったいどの程度の規模のサイトを作るかによる。
(単位時間当たりのアクセス数、コンテンツの要領、動かすアプリのメモリ使用etc...)
まあはっきり言って、Dellやらのやすもんセットでも、ちょっと型落ちの中古機なんかでも
サイト立てるだけなら全然可能。(それこそ3~5万位のマシンでも十分)
初めから処理能力とかハード的なこと気にするより、とりあえず自分でサイトなりなんなり立ててみて、
公開とか運用とかしてみる。
それでハード的にきつそうになってから、気にしましょう。
407:399
07/09/24 21:13:35 HMQ03/cj
>>405 nice hackですね。感動しました。Google信者なので、見習おうと思います。
>>406 やってみないと分からないですね。規模は。
目標は、10,000PV/day, 100MBのコンテンツ です。
サイト立てるためにapacheというやつを導入しました。
localhostを立てるまでは出来ました。
この調子でいくとlampかなと思ってます。
Windows依存できたので、1からunix勉強しなおすのは少し大変です。
ありがとうございます。
408:nobodyさん
07/09/24 22:40:40
>>407
その3-5倍程度のサイトを椅子で運営してるがレンタルでもクレーム来たことない。
まぁ、共用ですらその程度なら大丈夫ってことだ。
409:399
07/09/24 22:50:31 HMQ03/cj
>>408
貴重なアドバイスありがとうございます。
すみませんが、椅子、レンタル、共用というのはどういう意味ですか?
検索にかけてみたんですが、わかりませんでした。
お手数かけてすみません。。
410:nobodyさん
07/09/24 23:29:42
椅子はともかく
レンタル・共用が分からないってのは……
411:nobodyさん
07/09/24 23:34:58 HMQ03/cj
>>410
質問の仕方が悪かったようです。
共用サーバサービスやレンタルサーバなら聞いたことあるんですが、
レンタルや共用が何の略かが分からなかったんです。
何か根本的に基礎知識がかけていると考えたほうが妥当でしょうか?
先達は、どのようにして知識を得たのでしょうか?
412:nobodyさん
07/09/24 23:41:48
>>411
#/usr/bin/perl
#生きてる限り勉強
while(>>411){
print "トライ&エラー";
}
__END__
413:nobodyさん
07/09/25 00:10:08 OOv8Weab
>>412
なんだかそう言われると、これまで学習を継続してきたことを肯定されたようで
安心します。笑
とりあえず、これまでやってきたことは当たり前のことではありますが、少なくとも
間違ってはいなかったと思えました。
414:nobodyさん
07/09/25 00:27:49
>>413
一年やってきたとは言っても、動くスクリプトはどれだけ書いたんだ?
415:nobodyさん
07/09/25 00:50:17
成功するような奴はこんな所でグダグダ質問する前に行動してる奴だ
416:nobodyさん
07/09/25 00:53:46 OOv8Weab
>>414
動くスクリプトというのはどういうことなんでしょう。
スクリプトは1日平均100行くらいですかね。
やっていた時期は、300行くらいでしたが、最近はネットワークやUNIXに関する勉強にも
追われていて。
417:nobodyさん
07/09/25 01:14:03
>>415
ここで質問するよりも、本を読むよりも↓行って作って来い。
多分その方がいい勉強になる。作れないものは調べて作る。
ご希望のCGIを作成いたします
スレリンク(php板)
418:nobodyさん
07/09/25 01:37:09 OOv8Weab
>>415
その行動としてどういったものが妥当かを入念に検討しているのです。
私は学生なので、行動範囲も限られはしますが、まずは手始めにWeb applicationを制作しようかと
考えております。
一年perlやってきましたが、これまではこれを生かそうという計画はなかったのですが、
それは行動力がなかったというよりも、
もとからそういう発想がなかったんです。
それがここ数週間に間に急にWeb applicationをやろうという欲望がふつふつとわきあがってきているので
自分でも驚いています。
この欲望を実現すべく、過去の先達たちはものすごい行動力を発揮してこられたのでしょうが、
私も負けてはいません。
>>417
CGIを作ってもらうんですか。
スレッド見ました。
オープンソースのperl scriptを見るのも良い勉強になりますよね。
あと、思うんですが、方法にグタグタこだわるよりも、何をやりたいかが
大事ですよね。
ところが、自分の場合は何をやりたいかが明確なのにそのための方法がまるで
分からないというか少しずつ分かっているのですが、
その分かっていくスピードがあまりに低速であきれているんです。
なんと進みにくいのだろうかと。
だから、少しでも速く進めるように先輩方のお力を頂きたくこのスレッドに
参上いたしました。
419:nobodyさん
07/09/25 16:28:46
思うんだが行って参考にならないよな。
俺が苦労して書いた10行ぐらいの処理が
うまい人だと2~3行で処理効率も上とか普通にあるし。
420:nobodyさん
07/09/25 17:11:40
参考にならない。
「○○するスクリプトを××行で書きました」
ならまだしも。
421:nobodyさん
07/09/25 18:43:18
経験に対して行数を申告する人って何か誤解してる人が多いと思う
422:nobodyさん
07/09/25 20:20:09
行数で測るなんて無意味だよな
423:399
07/09/25 21:39:39 tW7VjElz
行が参考にならないのですか。
申告すべきものが何もなかったので行を申告しました。
ところで、上のほうで少し書いたかもしれませんが、私は長いプログラムを書いた経験がありません。
そこで、サイト制作に着手しようかと今日サーバについて調査しておりました。
そこで質問ですが、アプリケーション開発はどういう手順で行われるのでしょうか?
一応情報系なので、要件定義から設計・coding、テストといった過程については勉強したのですが、
実際の現場でどういう開発工程がとられているかというのは、
いかなる手段で学べばいいのでしょうか?
やはり、アルバイトが一番でしょうか。
しかし、アルバイトは当たり外れが大きいとも聞きます。
424:nobodyさん
07/09/25 21:43:43
なんだいろいろ理由つけて面倒なことは避ける主義か
425:399
07/09/25 21:55:39 tW7VjElz
>>424
というよりは、これも自分のなかでは地道な努力の一環なのですが、いかがでしょう。
たとえば、第一線の開発者が実際にどんなツールや手法やスタイルで仕事をしているか、
というのは学生が学ぶのは困難なのでしょうか、ということを現在調査中なのです。
426:nobodyさん
07/09/25 22:14:32
調査した成果をここで報告してくれんの?
427:399
07/09/25 22:23:40 tW7VjElz
>>426
はい。どういう形で報告すればいいのか指定くだされば、検討します。
428:399
07/09/25 22:32:09 tW7VjElz
私のようなしがない学生が言うのもなんですが、瑣末なテクニックの習得よりもまずは
現場の空気を吸うことが大事かなと考えまして、それで、さっそくサーバについて調査していたのです。
幸い、私にはやりたいことがそれなりに明確です。だが、よく考えてみると道のりがはなはだしく曖昧なのです。
それは当然です。全く未経験なのですから。
そこで、「ロードマップ」が欲しいと考えたのです。
何かおかしなところがあればご指摘ください。
429:nobodyさん
07/09/25 22:38:38
まずはやってみろ。
430:399
07/09/25 22:39:50 tW7VjElz
>>429 いまやってます。
431:399
07/09/25 22:41:44 tW7VjElz
誤解のないように解説しますと、いま現在も私は調査活動を続行中です。
他所で調査をしながら、ここでも質問しているという次第です。
ただし、マルチポストはしていませんよ。笑
432:nobodyさん
07/09/25 22:42:20
omotiを思いだしたのは俺だけだろうか、、、
まあ、コードを書いた経験があるだけomotiよかましだろうが
「ハイキング程度の人間がエベレストに挑む」
「プーアルが完全体セルに挑む」
のを単に夢想してるだけだ。
「ロードマップが欲しい」?
地図の見方すら分ってない人間に分るようなフローチャートを無償で作れと?
おまえさんがやるべき事は経験を積むことだよ。
ここでうだうだ、くだらん持論を述べる事ではなく。
さっさとアルバイトに応募しろ、外れだと思ったら止めて他を当りゃいいだけだ。
433:399
07/09/25 23:08:16 tW7VjElz
>>432
ある意味納得です。アルバイトへの応募も必要だし、経験を積むことをするのは必須事項でしょう。
omotiって何か知りませんが、私は地図を読む能力がゼロだとは思いません。
私は自分を過少評価する傾向がありますが、それをゼロだと言ってしまうと、卑下しすぎでしょう。
地図を必要とする理由は、地図を頭に入れてから実践したほうが効率面で有効だと判断したからです。
どういった手段で、先人達は、地図を入手してこられたのでしょう。素朴な疑問。
434:nobodyさん
07/09/25 23:29:27
>>433
>omoti
ぐぐれ。
>地図を読む能力
「読む」のは誰でも出来る、経験に応じたレベルで。
経験を積むと見方が分ってきてより深く地図を読むことが出来るようになる。
>自分を過少評価
何様だ?オマエ。
経験をコードの行数で書くようなドシロウトみたいなマネしといて、
よくもまあ、自分を過大評価出来るもんだ。
435:nobodyさん
07/09/25 23:38:09
アルバイトに来られる側の人間として一言だけ
迷惑だから来ないで下さい
436:399
07/09/25 23:45:43 tW7VjElz
>>434
どうも意志の伝達が正常に行われなかったようです。
自分を過少評価というのは、自分が偉いというのとは逆に、
自分をネガティブに評価する傾向があるという私の一般的性質を指しています。
だから、なぜあなたが怒りを発生させたかについては責任を負いかねます。
それから経験をコードの行数で書くのが実力や経験量を測定する尺度としてあまり妥当な手段でないことは認めるものの
何がしかの尺度にはなるかと思います。
一応情報系なので日常会話で行数について耳にしますので、補足しました。
>>435
アルバイトに来ると迷惑ですか。
私はやる気だけはありますよ。これまでもアルバイトしてましたが、面接でそう言いました。
437:nobodyさん
07/09/25 23:52:05
>>399
PMだけを目指すのならともかく、若いうちはガンガンスクリプトを書いとけ。
出来たものから汎用性のある部分をモジュールとして使えるようにしろ。
モジュールとして使わないまでも、関数なりクラスとして再利用出来るようにストックしとけ。
ロードマップだの何だの言うよりも、とにかくショウモないスクリプトでもいいから書いて書きまくれ。
言われてることが分からないなら、とっとと現実に戻ってクソして寝てみる夢を見つづけろ。
438:nobodyさん
07/09/26 02:18:47
perlの仕事なんか無いよ
439:nobodyさん
07/09/26 02:21:03
namcoの遠藤みたいにプログラムなんか欠片も知らないで入って
それでいてゼビウスのようなゲーム作って大成功する奴もいるんだ
お前みたいに能書きだけで先に進もうとしない奴は何やっても駄目
440:nobodyさん
07/09/26 02:24:18
>>399
とりあえず、会員制のサイトでも作ってみたら?最初はモジュールを
使わず、全てPurePerlで組む。完成しても公開はしない。あくまで、
自分の学習用。機能としては…
・新規登録フォームで必要項目を記述して送信すると
入力されたデータを保存。同時に確認メール発射。
・確認メールの中にURLが記入されていて、そこに
アクセスすると入会登録完了。
・入会登録完了すると完了メールが届いて、そこに
書かれているIDとパスワードでログイン。
ここまで出来れば、Webサイトを作成する上での基本は学べると思う。
その後に、サイトの中でBBSなりユーザ情報設定等を追加していく。
ここまでで、Webサイトを運営する上で解決策が学べると思う。
その後に、同じ物をモジュールを使って作り直す。
ここまでで、モジュールの有難さを学べると思う。
ここまでできて、解らない事があれば、質問してくれ。逆に
それまでは、自分の力で解決してくれ。途中でどうしても
自分の力で解決できなければ、才能が無いので、諦めてくれ。
441: ◆T7TfLMI9dM
07/09/27 00:54:04
2ch検索でうっかりomotiを入力しちゃった俺が来ましたよw
>>399
いきなり大きなものを一から作ろうとすると挫けるから、自分の思ってる機能に
一番近いものを実装してるCGI探してきて設置。まずはそれを好きなように
改造しまくる。これだけで一通りの流れは掴めると思う。次が>>440かな。
ちなみに個人で始めるWebサービスは99%赤字になるから、金が欲しいなら
素直に今できるバイトで稼げ。
442:nobodyさん
07/09/27 22:26:20
タクトと同じ匂いがする...
443:nobodyさん
07/09/28 09:09:43
初心者スレにも湧いてるしな。
うざったいことこの上ない。
444:nobodyさん
07/09/28 20:52:36
その前はProgの方のperlスレに湧いてたw
全部同一人物かw
445:437
07/09/29 00:32:05
やっぱり口だけ君だったのか。
プログラミングなんて習うよりも作れだというのに。
446:nobodyさん
07/09/29 01:20:03
T7すっげぇ久々に見たな
ってか実はいつもいるのか?
447:nobodyさん
07/09/29 01:25:07
どこに沸いたって?
448:nobodyさん
07/09/29 13:45:18
どのスレかわからんが、いつも見てるやつじゃないとOmotiを知らないし付き合わんだろw
449:nobodyさん
07/10/04 08:24:35
質問です。
if ($vote_terminal == 0){$voteflag = 1;}
else{
$a1 = $ENV{'HTTP_USER_AGENT'};
if (($a1 =~ /^DoCoMo\//)||($a1 =~ /^ SoftBank\//) ||($a1 =~ /^UP\.Browser/)){
if ($vote_terminal == 1){$voteflag = 0;}else{$voteflag = 1;}
}
elsif ($vote_terminal == 1){$voteflag = 1;}else{$voteflag = 0;}
}
HTTP_USER_AGENTの部分をREMOTE_ADDRにしたいのですが
携帯電話会社のIPアドレスをどう追加してやれば良いのでしょうか?
携帯電話のIPアドレスリスト
URLリンク(ja.wikipedia.org)
450:nobodyさん
07/10/04 09:06:18
その部分を変えても仕方ないと思うが。
IPアドレスで判定する部分そのものを新たに追加するってんならわかるが。
451:449
07/10/04 13:54:49 wlik/mVj
レスありがとうです。
そうなんですか
尚更手に追えそうもないです;
失礼しました
452:nobodyさん
07/10/06 23:30:58
標準入力を二度読み込みたいんだけど、方法ないですか?
目的は一度、デコード&整形した後でデコードだけの整形していないデータを取り出すこと。
seek STDIN 0, 0;は既に試しました。
453:nobodyさん
07/10/06 23:35:10
最初に配列に放り込んでキープしておけば?
454:nobodyさん
07/10/06 23:40:05
>>452
STDIN→デコード→ファイル1に保存→整形→ファイル2に保存
ができない訳を言え
455:nobodyさん
07/10/07 00:05:53
>>454
やっぱり、その方法が手っ取り早いですか?
考えてはみたけど、それなら結局は最初から変数に読み込んで後で使う方がいい気も…
んー、キーボード入力じゃなくてPOSTデータだから取り出せるものと思ってました。
一生手を入れないでマージンまでやってくれるクラスを作ろうと思ってまして。
456:nobodyさん
07/10/07 02:14:11
>>455
何だか大きく勘違いをしているような気がするが、
POSTデータなら最初から変数に入ってる
457:nobodyさん
07/10/21 09:54:12 xMq+XN4p
やりたいこと:mod_perl2をインストールしたい。
できなかったこと:ActivePerlへのppmを通じたインストールがうまくいきませんでした。
やったこと:ActivePerl5.8.8上でmod_perl2をインストールしようとし、
ppm> rep
Repositories:
[1] theoryx5.uwinnipeg.ca
...
[7] Autonamed 2
ppm> search mod_perl
Using cached search result set 1.
1. Apache-mod_perl_gui~ [1.31] mod_perl Guide
2. mod_perl [2.0.3] Embed a Perl interpreter in the Apache/2.2~
3. mod_perl [1.29_01~ Embed a Perl interpreter in the Apache/1.3~
....
ppm> install 2
Package 2:
====================
Install 'mod_perl' version 2.0.3 in ActivePerl 5.8.8.817.
====================
Downloaded 2886493 bytes.
Extracting 737/737: blib
Error: can't run 'C:\Perl\bin\perl.exe install_script': No such file
or directory
となったので、「"install_script" ActivePerl」でググってみたりしたのですが、
どこに問題があるのか特定できませんでした。
次のアクションをご教示ください。よろしくお願いいたします。
458:nobodyさん
07/10/21 10:59:29
>>457
apache2.2は入ってるのか?
459:457
07/10/21 11:18:08 xMq+XN4p
>>458
入ってます。
460:nobodyさん
07/10/21 11:19:32
>>457
ん?うちでは問題なくinstallできるべ。
>>458が言ってるみたいに、
Apache2.2じゃなくて、Apache2.0にmod_perl入れたかったら、ppm install mod_perl2.0 ってしなきゃだめよ。
ちなみにひとつ言っとくが、Win版の2.0.61,2.2.6では両方とも、theory58Sのmod_perlは正常に動作しないべ。
あと、install_scriptってのはこれのこと
URLリンク(theoryx5.uwinnipeg.ca)
461:nobodyさん
07/10/21 11:32:16
失敬。リロードしてなかった。
で、もっかい、今度は、(threory58Sはreposにいれてるんだよな?)
ppm install mod_perl ってやってみ。
462:nobodyさん
07/10/21 11:43:40
実はapache2.0を入れているという罠
463:どうしてパンチラが流出?
07/10/21 14:04:29
_ ⌒ヽ_ / `ヽ、
/´_ `ヽ、 ,ィ''´ ̄ハ、i,/lヽ、 l!
,ィ´/'´/::/:::ラ./ / /!イソ !i .ハ /
/゙ ! ' ::´:::::::|:// / ,イ /!"゙ヾ|リ i メ
! | :: ::::::ri/| |:::i|ハ i.|| i,/|! _//!:::|::::|
| :: .::イリノハ ::!lィl丙`|/ |、 _ハ/::/:::;/
i ; ::::レl/ !,ヾ、! ゙'゚┘ 尤i'/,' / 20万人くらいが見ちゃったパンチラ!?
/ !..:::::l/ ::::アi. 、 , ゙‐'ソ'"'´ 元女子アナウンサー丸川珠代さん(白パンティー)
ト、_// :::|:::::/ ::::://^ヽ、 ~ ,.ィi′ スレリンク(ana板:9番)
`ー'ナ/.:/::::/ ::::/´! ヾ "´l:::l|
i / .:|:::/ :::;ィ/ |! ヽ:::!:riト、_, 日本人でよかった♪ 白でよかたーーー!
!| /:|/ .//! ,!| ヽ ヾ、,リ この番組で有名となった参議院議員(東京)のまるたまさん
| | //:::/:::! ! \. \ ヽ\ スレリンク(furin板:174番)
ヾ// ::::/:::::|ノ _二;ヽ ゙、 ,}
オ′:::i :::::::|/ ̄ \ ヾー-、 たけしさんとツーショットのまるちゃんに注目!(白パンティー)
/ | :: ::|::::::::::! ハ iヽ i でも、小泉チルドレン筆頭の
i | ::|:::::::::リ ,イバー‐'′! ヽ 佐藤ゆかりタン萌えパンチラは無いよーーーーーーん
! |i : :|:::::ノ i /ハ | / | \
ヾ _,, !<_. { ///" ヽ
_,. ‐''";;;;;;;,:'";;;;;/ ゙̄T''''r-レ \ _ i
ヾ"、_;;;;_,;:'";;;;;;;;;;/;;;;;;;;;i;;;;;l;;;;;| }=ニl!;;ト、 /
ヾ;;;;;;/`''ー--ヶ、;;;;;;シ;;;;;;|;;;;;;! ぐー`"ヽ!
ヾi' / ヾ、;;;;;;;/;;;;;;;| 〈´  ̄~゙'''┘
;ヘ , i ゙\;;;;;;;;;ハェュj パンチラ規制厨と闘ってます
! `ヽ、'_,{_ ゙\;;;;;| スレリンク(sec2chd板:639番)
464:457
07/10/21 15:13:46 xMq+XN4p
>>461
やはり無理でした。
>>462
再確認しましたがapache2.2です。
--------------------------------------------
やむを得ず、「何かカオスな理由でトラブルが起きた」ということにして、
ActivePerlのリインストールという強硬手段に出ました。
その結果、無事インストールできました。
結局、問題の原因はミステリーのままに。^^;
アドバイスくださった方、ありがとうございました。
465:nu.
07/10/21 15:30:36 hpzcI35P
初めまして超くだらない事かもしれませんが質問させてください。
OceanGrid形式の動画を録画するにはどうしたらいいですか?
また録画出来るものなのでしょうか…?
よろしくお願い致します。