Perlコーディング初心者質問スレ Part 60
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2009/09/03(木) 23:51:12ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >2 以降
前スレ http://pc11.2ch.net/test/read.cgi/php/1234752149/
0266nobodyさん
2009/11/23(月) 07:58:49ID:???$a =（条件1） ? 'x'
:（条件2） ? 'y'
: 'z'
;
0267nobodyさん
2009/11/23(月) 09:00:29ID:???長い式になると優先順位がわかりづらくて使いづらい。。。
0268nobodyさん
2009/11/23(月) 09:19:12ID:???5.10未満ならSwitchモジュールを
switch文
http://www2u.biglobe.ne.jp/~MAS/perl/waza/switch.html
0269nobodyさん
2009/11/23(月) 09:35:35ID:XYWla5BPただこれをやると関数への引数は連想配列へのリファレンスにならざるを得ないから、あまりやらないけど・・・
0270nobodyさん
2009/11/23(月) 10:26:54ID:???こんな感じ？
my %func = ( foo => \&foo, bar => \&bar );
$func{foo}(1, 2); #=> 1 2 in foo
sub foo {
print "@_ in foo";
}
sub bar {
print "@_ in bar";
}
＞関数への引数は連想配列へのリファレンスにならざるを得ない
これはどういう意味ですか？
0271nobodyさん
2009/11/27(金) 23:39:39ID:???http://www.ioi-jp.org/joi/2008/2009-yo-prob_and_sol/2009-yo-t2/review/2009-yo-t2-review.html
の問題なのですが、
open(A,">a.txt");
$a=36;$b=20;$c=38;$d=54;$e=42;$f=25;@a={$a,$b,$c,$d,$e,$f}
foreach(@a)
{$one=0;
$two=0;
$thr=0;
if( $_ >= $one){
$one=@a;
$two=$one;
$thr=$two;
}elsif( $_ >= $two )
{$two=@a;
$thr=$two;
}elsif( $_ >= $thr )
{$thr=@a;}}
$total=$one+$two+$thr;
print A"$total";
何がいけないのでしょうか？
perlを勉強初めて数日の私にもわかるように教えていただけないでしょうか
あと、情報オリンピック予選にperlで出てみたいのですが、入力ファイルのtxtファイルを読み込んで、出力ファイルを作るということですよね？
出力するのは、
open(A,">a.txt");
print A "〜";
みたいなので良いんですよね？どうやったらtxtファイルを読み込めるんですか？たとえばtxtファイルの三行目の数をhと定義したりすることはどうすればいいんですか？
0272nobodyさん
2009/11/28(土) 00:15:26ID:???0273nobodyさん
2009/11/28(土) 00:25:39ID:???=== hoge.pl ===
sub calc { eval join '+', ( sort {$b <=> $a } @_ )[0 .. 2] ; }
my @data = <> ;
printf "%d %d\n", ( calc @data[0..9] ), ( calc @data[10..19] ) ;
======
perl hoge.pl INPUT.txt > OUTPUT.txt
0274nobodyさん
2009/11/28(土) 00:41:49ID:BdimRB/2解説だけでどういう問題化わからん。リンクもないし
0275nobodyさん
2009/11/28(土) 00:46:47ID:???0276nobodyさん
2009/11/28(土) 01:55:55ID:BdimRB/2その問題を解くように変えようとするとなると>>273の言う通り一から書き直した方がいいので、
とりあえずそのプログラムで書きたいと思われることを最大限書き直してみた。
use strict; // 初心者ならなおさらstrictとwarningsは入れた方がいい
use warnings;
my($a, $b, $c, $d, $e, $f)
= (36, 20, 38, 54, 42, 25);
my @data = ($a, $b, $c, $d, $e, $f); // 配列は{}じゃなく()。
my($one, $two, $thr) = (0, 0, 0); // foreachの外で使うならforeachの外で初期化しないと毎回0で上書きされる
foreach my $num (@data) { // わかりやすいように$_じゃなくて名前付けておいた方がいい
// ホントは=ない方が処理少ないので=ない方がいいと思う
if ($num >= $one) {
$two = $one;
$thr = $two;
$one = $num; // 初めに$oneに代入したらその後$twoにも$thrにもコピーされるから最後で。
} elsif ($num >= $two) {
$thr = $two;
$two = $num; // 上と同じ理由
} elsif ($num >= $thr) {
$thr = $num;
}
}
my $total = $one + $two + $thr;
open my $wfh, ">", "a.txt" or die "$!"; // 3引数のopen使った方がいいのと、なるべく開いたらすぐ閉じた方がいいのでまとめるべき。
print $wfh $total;
close $wfh; // open したら closeしないとダメ
こんな感じかな。問題解くならPerlの前にアルゴリズムも勉強しないといけない気がするな
0277nobodyさん
2009/11/28(土) 02:14:34ID:???0278nobodyさん
2009/11/28(土) 04:02:22ID:BdimRB/20279nobodyさん
2009/11/28(土) 13:14:18ID:???文脈から分かるとはいえ、一見だと$thresholdや$throttleかも？と思うだろ。
0280nobodyさん
2009/11/28(土) 14:37:12ID:???>>275さんの問題の通りこのような入力例が与えられて、出力しないといけないのですが、
my($a, $b, $c, $d, $e, $f)
= (36, 20, 38, 54, 42, 25);
のように自分で打たずに、txtファイルから読み込む方法を教えていただけないでしょうか。
0281nobodyさん
2009/11/28(土) 14:41:24ID:???#一行ずつ$numに代入する。
}
こんな感じかな？
0282nobodyさん
2009/11/28(土) 14:55:14ID:???my($one, $two, $thr) = (0, 0, 0);
foreach my $num (b.txt)
{
if( $num >= $one)
{
$two=$one;
$thr=$two;
$one=$num;
}elsif( $num >= $two )
{
$thr=$two;
$two=$num;
}elsif( $num >= $thr )
{
$thr=$num;
}
}
$total=$one+$two+$thr;
print A"$total";
こういうことではないのですか？
これでは0になってしまったのですが
0283nobodyさん
2009/11/28(土) 15:30:00ID:???0287nobodyさん
2009/11/28(土) 15:41:19ID:BdimRB/2>>271
初心者ｽﾚとはいえ、最低限の文法をググるか本読んだ方がいい
サンプルコードたくさん落ちてるじゃん
ファイルへの書き込みがopen my $wfh, ">", "a.txt"ってのと同じように
読み込みはopen my $rfh, "<", "b.txt"だよ
0288nobodyさん
2009/11/28(土) 15:45:27ID:???open FH, "<hoge.txt";
foreach(my $line = <FH>){ … }
close FH;
入門書読んだ？
0289nobodyさん
2009/11/28(土) 15:47:29ID:???foreach → while
@hoge = <FH>;
でも入力は取れる
0290nobodyさん
2009/11/28(土) 16:18:26ID:???あとレファレンスとか見てもどこに載っているのかわからないので…
0291281
2009/11/28(土) 18:03:02ID:???ファイルハンドルはファイルの名前の事だよ
普通はファイルの入出力のところに載ってると思うけど
0292291
2009/11/28(土) 18:04:34ID:???ファイルハンドルはファイルを識別するための任意の文字列の事だよ
でした
0294nobodyさん
2009/11/28(土) 18:15:00ID:???0295293
2009/11/28(土) 18:16:33ID:???0296nobodyさん
2009/11/28(土) 21:24:20ID:???こういうことではないんですか？
open(A,">a.txt");
my($one, $two, $thr) = (0, 0, 0);
open FH, "<b.txt";
foreach(my $line = <FH>)
{
if( $num >= $one)
{
$two=$one;
$thr=$two;
$one=$num;
}elsif( $num >= $two )
{
$thr=$two;
$two=$num;
}elsif( $num >= $thr )
{
$thr=$num;
}
}
$total=$one+$two+$thr;
print A"$total";
0297296
2009/11/28(土) 21:38:36ID:???追加 -> close FH;
0298296
2009/11/28(土) 22:12:32ID:???use warnings;
open(A,">a.txt");
my($one, $two, $thr) = (0, 0, 0);
open FH, "<b.txt";
foreach my $num (<FH>)
{
if( $num >= $one)
{
$two=$one;
$thr=$two;
$one=$num;
}elsif( $num >= $two )
{
$thr=$two;
$two=$num;
}elsif( $num >= $thr )
{
$thr=$num;
}
}
my $total = $one + $two + $thr;
close FH;
print A"$total";
これで何とかできているようです。が、
argument "\n" isn't numeric in numeric gt at 〜.pl line8, <FH> line8.
と出るのは何なのでしょう
あと、一行ごと読みこむ場合は分かったのですが、
http://www.ioi-jp.org/joi/2008/2009-yo-prob_and_sol/2009-yo-t1/2009-yo-t1.html
のような場合はどうやって読み込むのでしょう
0299nobodyさん
2009/11/28(土) 22:25:29ID:???0300296
2009/11/28(土) 22:32:47ID:???いえ、別にそういうわけではありません。
とりあえず、読み込み方は自分には見つからなかったので、教わりたいなと思ったので…
すいません
0301nobodyさん
2009/11/28(土) 22:34:31ID:???perlだとこんなに短く書けるよということで面白い。本人が理解できなきゃ意味ないか。
>>298
foreach my $num (<FH>) はやめれ。これだとファイルの中身をすべてメモリに読み込むので、
今回はいいけど、このファイルが数百万行あったらどうする。普段から
while (my $num = <FH>) {
chomp $num; # 各行のデータには改行コードがくっついたままなので取り除く
# 処理
}
としておくのが吉。
argument "\n" isn't numeric in numeric gt at 〜.pl line8, <FH> line8.
は、改行コードがくっついている値を数値比較したから。
こういうのもuse warningsを付けているから出るわけです。
> http://www.ioi-jp.org/joi/2008/2009-yo-prob_and_sol/2009-yo-t1/2009-yo-t1.html
> のような場合はどうやって読み込むのでしょう
結局何もかも分からないわけですね。
いくら初心者スレとはいっても、少しはわかるようになるまで学習してから取り組んだらいかが。
0302301
2009/11/28(土) 22:42:45ID:???>>298
のコードだと、2つの大学全体の上位3つの合計になってしまうよ。問題の要件を満たしていない。
あと、普通こういうので入力/出力といったら標準入力/標準出力ではないかと思います。
その点でも>>273は満たしてくれている。
0303nobodyさん
2009/11/29(日) 00:50:13ID:???新鮮だなぁ
0304nobodyさん
2009/11/29(日) 01:42:21ID:1LHj/rCz学校で習ってすぐの覚えたてで何か問題解こうとここに聞きにくるのとかポジティブだよねw
最近の書き方だと下のが結構まとまってると思う。
ttp://d.hatena.ne.jp/perlcodesample/20091120/1246679588
あと、標準入力とかダイヤモンド演算子の話はもっと簡単なサンプルコードを書くところから始めた方が理解できると思う
0305nobodyさん
2009/11/29(日) 10:19:40ID:???こういう処理したいんだけど、読んだ本だといまいちわかりません」
というレベルじゃないのか？
文法すら知らないのは初心者ではなく教えてちゃんだ。
0306nobodyさん
2009/11/29(日) 10:40:54ID:???「最近の書き方」じゃねーよ、単なる個人の趣味じゃねえか
悪くは無いが。
で、ここの最近のレスも合せてどうしても突っ込みたくなったから書くが、
× while( my $line = <FH> ){}
◯ while( defined ( my $line = <FH>) ){}
perldoc perlsyn にも書かれてる。
0307nobodyさん
2009/11/29(日) 11:07:16ID:???「リンク先の内容が、リンク先の書いた奴の」って意味ね。
0308296
2009/11/29(日) 11:57:19ID:???で、朝
http://books.yahoo.co.jp/book_detail/AAY78372/
この本を買って今読んでいるのですが、read関数の使い方がよく分かりません
どなたか教えていただけないでしょうか
0309nobodyさん
2009/11/29(日) 12:28:14ID:???0310nobodyさん
2009/11/29(日) 12:30:07ID:???「聞きに来る」時点で全然ポジティブでも何でもないです。
所謂「クレクレ」でしかないです。
例え「車輪の再発明」と云われても自分で調べ、自分で考えてその結果をここに書き連ねてこそポジティブっていうもんです。
世知辛いこの世の中、ただただ「速さ」だけを求められて、こういった「クレクレ君」が憚っているのが現状だと思うと悲しいんだけれどもね。。。
0314nobodyさん
2009/11/29(日) 16:11:18ID:???バイトがなんなのか理解してないの？
ここで聞く前にもっと勉強した方がいいと思うよ
検索すれば出る内容なんだから
0316nobodyさん
2009/11/29(日) 21:02:25ID:???#GCDの計算です。
print "input number 1\n";
$a = <STDIN>;
chomp($a);
print "input number 2\n";
$b = <STDIN>;
chomp($b);
$n = &gcd($a,$b);
sub gcd{
if($c != 0){
$c = $_[0] % $_[1];
$n = &gcd($gcd[1],$c);
}else{
print "G.C.D is $_[0]";
}
}
#よろしくおねがいします。
0317nobodyさん
2009/11/29(日) 21:16:37ID:???0318nobodyさん
2009/11/29(日) 21:38:42ID:???input number 1
18
input number 2
32
G.C.D is 18%
0319nobodyさん
2009/11/29(日) 21:48:48ID:aDLivjg20321nobodyさん
2009/11/29(日) 21:55:47ID:???0322nobodyさん
2009/11/29(日) 21:57:26ID:???これはひどい
0323316
2009/11/29(日) 22:02:31ID:???これも引数にしないとだめだったんですか？
$cをメインルーチンに追加して試してみましたがだめでした・・・
>>318
サブルーチンは呼び出せているのですが、ifの中身がうまく処理できずにelseの処理にうつってしまいます
GCDのアルゴリズムは
_[0]と_[1]を割って余りを$cに代入
$cが0でなければ_[1]を_[0]に、$cを_[1]に代入
$cが0になるまでこれを繰り返す
$cが0なら[0]を出力
間違ってましたかね
0325nobodyさん
2009/11/29(日) 22:11:31ID:???sub gcd {
my($a, $b) = @_;
if ($a < $b) { # $bの方が大きければ逆にする
($a, $b) = ($b, $a);
}
if ($b != 0) {
gcd($b, ($a % $b));
}
else {
print "G.C.D is $a";
}
}
$_[0]とか$_[1]を使い回さない方がいい。
色んな場所で使うなら最初に違う文字に置き換えた方が無難
$nも使わないならわざわざいらないでしょ
>>323の順番に処理して行ったらif文が割り算の前に出てくるのもおかしいよね
0326nobodyさん
2009/11/29(日) 22:15:22ID:???それ、ユークリッドの互除法になって無いぞ。
$_[0], $_[1] を使い回す方が、 $a, $b を my するよか千倍マシだ。
0327nobodyさん
2009/11/29(日) 22:21:39ID:???あれ？ちがうんだっけ。昔の記憶のまんま書いてみて答えあってたからいいかと思った
つか、普通$_[0]とか使い回すもん？
実際、何の値入ってるかわかんなくなって>>316みたいなコード書く元になるから使い回すなら置き換えた方がいいと思うんだけど。
0328nobodyさん
2009/11/29(日) 22:33:53ID:???される特殊変数だ。
それを他の場所で使うくらいなら、 @_ を使う方がましだと言っている。
my $. = 'hoge' ;
↑これをするのと同じくらい変態行為。
>>325
>if ($b != 0) {
これ常に真だが？
0329nobodyさん
2009/11/29(日) 22:40:51ID:???あぁ、なるほど。$a,$bは特殊変数で使われるんだっけ。
普段$aとか$bは使わないけど>>316のコードをなるべく生かそうと思って失敗したわ。
>>if ($b != 0) {
>これ常に真だが？
最終的に余りゼロになるでしょ？
0330nobodyさん
2009/11/29(日) 22:47:49ID:???ここまで説明しなきゃ解らんのか？
0331326
2009/11/29(日) 22:55:42ID:???0332316
2009/11/29(日) 23:06:02ID:???この程度もわからなかっただなんてしにたい
print "input number 1\n";
$a = <STDIN>;
chomp($a);
print "input number 2\n";
$b = <STDIN>;
chomp($b);
&gcd($a,$b);
sub gcd{
if($_[1]>$_[0]){
($_[1],$_[0])=($_[0],$_[1]);
}
if($_[1] != 0){
&gcd($_[1],($_[0] % $_[1]));
}
else{
print "G.C.D is $_[0]";
}
}
0333nobodyさん
2009/11/29(日) 23:23:23ID:???えっと、そう書くことになるから「$_[0]と$_[1]に何が入るかわからなくなるので、使う初めに置き換えた方がいいよ」って話ね
例えば、今回とは別の例としてそのsubが30行くらいあったとして、君が1週間後にメンテナンスするとするでしょ？
ぱっと一番下のprintを見た時に「あぁ、$_[0]だから引数の一番目の値を出力してるな」とか思っちゃうわけだけど、
その前に入れ替えやってるからそうとは限らない。
そうするとメンテする時に変数の代入をしている所を確認する作業が増えて面倒。
少なくとも「$_[番号]は引数の順番通りに入ってる」って思ってる人は多いから入れ替えとかしない方がいいよ
0334nobodyさん
2009/11/29(日) 23:28:53ID:???use strict;
をスクリプトの2行目に書くのをオススメする
変数のスコープを理解すべし
死ぬのはそれからだ
0335nobodyさん
2009/11/30(月) 00:16:25ID:???0336332
2009/11/30(月) 00:49:26ID:???サブルーチンの外で入れ替える、ということですね。気をつけます。。
>>334
わかりました。
perlは今までやってきたCやJavaと比べて書きやすいのですが、
やっぱりある程度の制約を強要したほうがエラーが起こりにくいということがよくわかりました。
0337nobodyさん
2009/11/30(月) 01:26:09ID:???＞ サブルーチンの外で入れ替える
まあそれでも動くっちゃあ動くが違うだろ
普通に考えれば関数の先頭で
my($num1, $num2) = @_;
($num1, $num2) = ($num2, $num1) if $num2 > $num1;
などとして、以後$_[X]の代わりに$numXを使うという意味だ
0338nobodyさん
2009/11/30(月) 02:19:08ID:HMASs2oDこのクラスのオブジェクトを使用してDBIのメソッドを呼ぶとき、
$obj->dbh->prepare(@args); #データベースハンドルのゲッタを介した呼び出しではなく
$obj->prepare(@args) #こう呼びたいと思っています。
そこでAUTOLOADを定義して委譲するように書いたのですが、ここで不明な点があるのです。
sub AUTOLOAD {
my $self = shift; my @args = @_;
our $AUTOLOAD; #呼ばれたメソッドの完全修飾名
my $method_name = (split '::',$AUTOLOAD)[-1]; #メソッド名部分を切り出し
if ($self->dbh->can($method_name)) { #メソッドがDBIにあれば
return $self->dbh->$method_name(@args); #DBIのメソッド呼び出し(ここが疑問)
}
}
例のようにprepareを呼べばステートメントハンドルが返り、つまり正しく動いてるのですけど、
$method_nameは(多分)文字列なのに、どうしてメソッド呼び出しがおこなわれるのかわかりません。
経緯としては、試しに書いてみたら動いてしまい、
後追いで理屈の裏づけをとりたいと思ったら答えが見つからない、という状況です・・。
(use strict環境なのでシンボリック参照ではないですよね。)
説明つく方いましたらお願いしますm(_ _)m
0339nobodyさん
2009/11/30(月) 03:57:11ID:???0340nobodyさん
2009/11/30(月) 04:00:49ID:???0341nobodyさん
2009/11/30(月) 04:53:13ID:???気持ち悪いならこういう風に書き換えることができたはず
if (my $ref = $self->dbh->can($method_name)) {
return $ref->(@args);
}
0343338
2009/11/30(月) 07:20:28ID:HMASs2oDなるほど！ありがたいヒントをいただきました。
canはメソッドの参照を返しているんですね。こちらは納得です！
自分のケースでは次のコードで結果を得ることができました。
if (my $method_ref = $self->dbh->can($method_name)) {
my $sth = $self->dbh->$method_ref(@args);
return $sth;
}
この際>>338の疑問はなかったことにしようと思いますｗ
0344nobodyさん
2009/11/30(月) 09:31:48ID:???AUTOLOAD呼び出しのコストを1回だけにするのは、あんまり意味ないかな？
404 Blog Not Found:Perl Monger の質問 - AUTOLOADって他でどうやるの?
http://blog.livedoor.jp/dankogai/archives/50491359.html
if (my $method_ref = $self->dbh->can($method_name)) {
no strict 'refs';
*{$method_name} = sub { shift->dbh->$method_ref(@_) };
unshift @_, $self;
goto &$method_name;
}
0346nobodyさん
2009/11/30(月) 18:34:17ID:???自由すぎる
0347338
2009/11/30(月) 18:49:13ID:???ありがとうございます。
自分が事前に得ていたのも>>344のようなコードでした。
$AUTOLOADに渡ってきた名前のメソッドを、型グロブを使って現在のパッケージに動的に追加し
そのメソッドに処理を転送、という意味だと思うのですが、
自分もちょっと大げさだなと思って・・・
(ちなみに今、手元にオライリー本を数冊置いてるのですが、いずれも類した手法を紹介してるんです)
しかし「AUTOLOAD呼び出しを減らす」メリットには気がつきませんでした。
以降は新しいメソッドが呼ばれるから逐次AUTOLOADが呼ばれるコストが削減できるということなんですね。
(AUTOLOADはクラス階層を全部探した最後に呼ばれるから高コスト)
自分の場合はCGIなので、アクセスごとにメソッド生成がおこなわれてしまうこともあるのですが、
複数のクエリを発行する状況ではメリットあるかもしれないです。
クラスの使用状況を見ながら適宜判断してみようと思います。
CGIなら普通に、使う分だけラップしたメソッド書いとけって話もあると思いますが＾＾;
たいへん参考になりました！
0348nobodyさん
2009/12/02(水) 03:41:18ID:0CcBOFc0Warning が出た時点でスクリプトの実行を一時停止させるには、怪しいところを eval でトラップさせるしかないのでしょうか？
それともデバッグに役立つようなモジュールとかあるのでしょうか？
0349nobodyさん
2009/12/02(水) 06:42:16ID:???% perl -d hoge.pl
ここに色々書いてあるから見てみるといい
http://www.ibm.com/developerworks/jp/linux/library/l-pl-deb/
0351nobodyさん
2009/12/02(水) 12:21:29ID:???XPでActivePerl5.8.9を使っています。
http://perl-users.jp/articles/advent-calendar/2008/08.html
上のURLを見て、クリップボードのURL→fenrir（ランチャ）で出来たらと思い、やってみました。
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use File::Basename;
use Win32::Clipboard;
my $dir = "$ENV{'USERPROFILE'}/jpgDL";
chdir $dir;
my $clip = Win32::Clipboard();
my $url = $clip->Get();
my @contents = get($url) =~ m{<a.*?href="(http://[^"]+\.jpg)"}gi;
foreach my $jpg(@contents) {
mirror($url, basename($jpg));
}
上記URLのワンライナー通りだとうまくいくのですが、このコードではjpgは落ちてくるけど、
ファイルが壊れているようです（ファイルサイズが全て同じになっている）。
FTPみたいにバイナリ指定する方法もないようで、どうしてよいか分かりません。
このコードの何処が間違っているのでしょうか？
ご指摘お願いします。
0352nobodyさん
2009/12/02(水) 12:32:46ID:???> my @contents = get($url) =~ m{<a.*?href="(http://[^"]+\.jpg)"}gi;
これは……
0353nobodyさん
2009/12/02(水) 13:53:24ID:???Windowsのブラウザ上でコピーしたURL（my $url = $clip->Get(); ）に対して
LWPのgeでコンテンツを取得しています。
・・・と書き込みながらあれこれやって1時間、自己解決致しました。
誤） mirror($url, basename($jpg));
正） mirror($jpg, basename($jpg));
jpgじゃなくてURLのhtmlを落としてました・・・orz
0354nobodyさん
2009/12/03(木) 01:29:27ID:???htmlを使い、cgiを読み込むような↓の簡単な処理をまず作りました。
※db.cgiは単体で動作確認済みで、こちらに不備があることはありません。
<html>
<body>
<form action="db.cgi" method="post">
<input type="submit" name="exec" value="データベースの表示">
</form>
</body>
</html>
ところがこれで呼び出すとcgi(上のソース上で言うdb.cgi)がうまく動作しません。
具体的に言うと、ファイルのダウンロード画面が開かれ、開くとcgiのソースが開かれてしまいます。
エラーメッセージは表示されません。
ネットでダウンロードすると出るダウンロード画面はお馴染みの物です。
このファイルを開くか、または保存しますか？
名前：db.cgi
種類：不明なファイル
発信元：
これはアパッチの環境設定面でヘマをしてしまったのでしょうか？情報少なくてすみません。
0355nobodyさん
2009/12/03(木) 02:11:50ID:???全て書け
0357nobodyさん
2009/12/03(木) 09:13:01ID:???cgiだと思われてないよ。
0358nobodyさん
2009/12/03(木) 11:50:21ID:???0359354
2009/12/03(木) 23:52:45ID:aPQfU5cAありがとうございました。
やはりApacheの設定だったようです。
詳細の原因はわかりませんでしたが、
confファイルの色々直したら表示できるようになりました。
ありがとうございました。
0360nobodyさん
2009/12/05(土) 16:36:46ID:???1 2 3
4 5 6
7 8 9
-------------------
---------------output.txt-
6
15
24
---------------
input.txt->output.txt(行ごとに三つずつある数字の和を一行ずつ表示させるプログラム)の書き方を教えてください
0361nobodyさん
2009/12/05(土) 16:51:05ID:???こんな感じかな。違ったら誰か突っ込んでくれると思う。わからないところどこ？
use strict;
use warnings;
my $input_file = shift || 'input.txt'; # 引数もしくはinput.txt
my $output_file = shift || 'output.txt'; # 引数もしくはoutput.txt
# 読み込み処理
open my $rfh, '<', $input_file or die "$!"; # ファイルの読み込み
my @results;
while (defined(my $line = <$rfh>)) { # 1行ずつ処理
chomp $line; # 改行は削除
my @nums = split /\s+/, $line; # 空白で分割
my $sum;
for my $num (@nums) {
$sum += $num;
}
push @results, $sum;
}
close $rfh;
# 書き込み処理
open my $wfh, '>', $output_file or die "$!";
for my $result (@results) {
print {$wfh} "$result\n";
}
close $wfh;
0362nobodyさん
2009/12/05(土) 17:16:59ID:???perl -alpe'$_=$F[0]+$F[1]+$F[2]' input.txt>output.txt
perl -MList::Util=sum -alpe'$_=sum@F' input.txt>output.txt
0363nobodyさん
2009/12/06(日) 04:07:59ID:gPKy+f2T４つ目が合ったら・・・
>>360
use strict;
use warnings;
open(INFH, '<', 'in.txt');
open(OUTFH, '>', 'out.txt');
while(my $line = <INFH>){
chomp $line; # 改行削除
my $sum = 0; # ゼロで初期化
map { $sum += $_ } split(/\s+/, $line); # 空白で分割し、要素を足し算
print OUTFH "$sum\n"; # 出力
}
close(OUTFH);
close(INFH);
0364nobodyさん
2009/12/06(日) 07:36:02ID:???いつも思うのですがこのwhile文の中のdefinedって必要なんですかね？
空文字が来るこってあるのでしょうか？
0366nobodyさん
2009/12/06(日) 11:00:15ID:???0が来たらどうすんだって話じゃないか？
この場面に限らず0の評価を回避するためにdefined書かなきゃいけないことが多すぎる
■ このスレッドは過去ログ倉庫に格納されています