Perlコーディング初心者質問スレ Part 46
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2006/01/18(水) 02:17:46ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0449nobodyさん
2006/02/05(日) 11:47:52ID:???0451nobodyさん
2006/02/05(日) 12:17:55ID:???0453nobodyさん
2006/02/05(日) 12:48:54ID:???0454nobodyさん
2006/02/05(日) 12:51:06ID:???正規表現を使うことすら頭に出てこないお子様なんだろうがな
おっと触っちまった、以下スルーよろ
0455nobodyさん
2006/02/05(日) 13:12:20ID:EWGu37QNその程度の知識でいきがってるようじゃw
0456nobodyさん
2006/02/05(日) 13:25:38ID:???0457nobodyさん
2006/02/05(日) 13:29:19ID:???0458nobodyさん
2006/02/05(日) 13:34:12ID:???0459429
2006/02/05(日) 22:55:31ID:???華麗なコーディングありがとうございました。
完璧です。多重配列を使いこなせる人はスゴイ。
自分もいろいろと考えてみた結果
・自分の状態("└"か"├")
・自分の全ての親の状態("│"か" ")
が分かれば木構造が作れるのに気付いたので
1. 逐次走査して全項目の状態("└"か"├")を調べて記録する
2. もう一度逐次走査して親の情報を作りながら木構造を作っていく
とすることで目的の処理ができました。(再帰と多重配列は使わず)
お世話になりましたー。
0460nobodyさん
2006/02/06(月) 11:55:45ID:kZ4iy7FBhtmlのtextareaの内容を入力として、外部の実行ファイル(例えばsort等)に投げて、
htmlとして出力を得るような方法はありますか？
perlコーディングと関係ないかもしれませんがよろしくお願いします。
0461nobodyさん
2006/02/06(月) 12:16:51ID:???>>1
> 1： 自分はこういう事がしたい。
> 2： それでこんな風にやってみたが･･･
> 3： こんなエラーが出て上手く行かなかった。
■こんなCGI作ってください■ Part.2
http://pc8.2ch.net/test/read.cgi/php/1133361560/
0462nobodyさん
2006/02/06(月) 18:28:41ID:???そのコードを見てみたかったな。
考えてみたけど、こんなのしか考えつかなかった。
my @data;
my $max = -1;
while(<DATA>){
m/^( *)(.*)$/;
my $level = length($1);
push(@data, [$level, $2, '']);
($level > $max) and $max = $level;
}
foreach my $level (0..$max){
my $found = 0;
foreach(reverse(0..$#data)){
if ($data[$_]->[0] < $level){
$found = 0;
} elsif ($data[$_]->[0] == $level){
$data[$_]->[2] .= ($found ? '├' : '└');
$found = 1;
} else {
$data[$_]->[2] .= ($found ? '│' : ' ');
}
}
}
foreach(0..$#data){
print @{$data[$_]}[2, 1], "\n";
}
0463429
2006/02/06(月) 23:52:11ID:???#勉強がてらに多重配列を使ってみました
while (<DATA>) {
m/^( *)(.*)$/;
$now = length $1;
push @data, [$now, $2, 0]; # [階層の深さ, 項目名, "├"なら0、"└"なら1]
$tmp[$now] = $.-1; # 階層毎に一番最後に出現した行の「行番号-1」を記録
$max = $now if $now > $before;
if ($now < $before) {
$data[$tmp[$_]][2] = 1 for $now+1..$max;
$max = $now;
}
$before = $now;
}
$data[$_][2] = 1 for @tmp;
$before = 0;
@tree = ('│', ' ', '├', '└');
for (0..$#data) {
$now = $data[$_][0];
if ($now > $before) { push @parent, $data[$_-1][2]; }
elsif ($now < $before) { pop @parent for 1..$before-$now; }
print $tree[$_] for @parent;
print $tree[$data[$_][2]+2], $data[$_][1], "\n";
$before = $now;
}
0464nobodyさん
2006/02/07(火) 01:09:36ID:???なるほど。
> if ($now < $before) {
> $data[$tmp[$_]][2] = 1 for $now+1..$max;
> $max = $now;
> }
この処理で、一回のループで行けるわけですね。
ありがとう。
0465nobodyさん
2006/02/07(火) 06:10:53ID:wug3jbil1： 自分はこういう事がしたい。→ 計算機
2： それでこんな風にやってみたが･･･ → やってみましたけど…
3： こんなエラーが出て上手く行かなかった。
→ 2**64 = 1.84467440737096e+019
実数ではなくてこんななっちゃいましたorz
アドバイスお願いします
0466nobodyさん
2006/02/07(火) 06:19:53ID:???0467nobodyさん
2006/02/07(火) 06:28:08ID:wug3jbilこんな時間にありがとうございます
多倍長整数なんて初めて聞きました
bigintをどうすればおｋなんでしょうか？
0468nobodyさん
2006/02/07(火) 06:28:57ID:???0469nobodyさん
2006/02/07(火) 06:32:44ID:wug3jbil#!/usr/bin/perl
use bigint
↑たったこれだけっすか？
0470nobodyさん
2006/02/07(火) 06:35:16ID:???";" を忘れずに
0471nobodyさん
2006/02/07(火) 06:38:16ID:???$ perl -e "use bigint;print 2**64;"
18446744073709551616
0472nobodyさん
2006/02/07(火) 06:39:39ID:wug3jbilん〜エラーになるんですよね…
Error 500
CGI エラー - Content-Type ヘッダが正しくありません。
CGI 出力メッセージ:
Can't locate bigint.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .)
at C:\httpd\www\tes.cgi line 3.
BEGIN failed--compilation aborted at C:\httpd\www\tes.cgi line 3.
0473nobodyさん
2006/02/07(火) 06:41:39ID:???＿＿＿＿ ､ミ川川川彡
／:::::::::::::::::::::::::""'''-ミ 彡
//, -‐―､:::::::::::::::::::::三 ギ そ 三
＿＿_ 巛/ ＼::::::::::::::::三. ャ れ 三
＿-=三三三ミミ､.//! ｌ､:::::::::::::三 グ は 三
=＝三＝￣ 《|ll|ﾆヽ l∠三,,`＼＼::三 で 三
/ |||"''》 ''"└┴‐` `ヽ三 言 ひ 三
! | / 三 っ ょ 三
|‐-､:::､∠三"` | ヽ= U 三. て っ 三
|"''》 ''"└┴` | ゝ―- 三 る と 三
| / ヽ "" ,. 三 の し 三
| ヽ= ､ U lヽ､＿__,,,...-‐''" 三 か て 三
. | ゝ―-'′ | |::::::::::::＿,,,...-‐'"三 !? 三
ヽ "" ,. | |￣￣￣ 彡 ミ
ヽ､＿__,,,...-‐''" ,,..-'''~ 彡川川川ミ
厂| 厂‐'''~ 〇
|￣＼| ／
0475nobodyさん
2006/02/07(火) 06:52:10ID:???0476nobodyさん
2006/02/07(火) 06:55:34ID:wug3jbilもダメぽ・・
5.6…だたよﾏﾏﾝ
0477nobodyさん
2006/02/07(火) 13:36:58ID:???print "content-type: text/plain; charset=Shift_JIS\n\n";
Shift_JIS のところは編集してるファイルの文字コードにあわしてね
0479nobodyさん
2006/02/07(火) 14:04:11ID:???いい加減にしろよ
0480nobodyさん
2006/02/07(火) 14:26:12ID:???それかコンソールで確認するか…
0481nobodyさん
2006/02/07(火) 14:33:11ID:???require "./jisaku.pl";
などファイルをインクルードする文を実行する命令を付け足すと、画面が真っ白になってどうにもなりません。
require命令を消して実行すると上手くいきますが、
どうしてもファイルを分割してコーディングしたいです。
どうにかなりませんか。
0482nobodyさん
2006/02/07(火) 14:36:58ID:???0483481
2006/02/07(火) 14:50:54ID:???してません。
私は、新しく作るサブルーチンは全てメインファイルに記述し、
動作確認ができてから分割するという習慣をとっていますし、
jisaku.plから呼び出し元の関数を呼んでいたりはしません。
で、気づいたんですが、kentwebさんのlight.cgiを見てみると
require命令にシングルクォートを使っているので、もしかしたらダブルクォートを使ったのが
いけなかったんじゃないか・・・と思います。
でももうコーディングする時間がないので誰か誰かあああぁぁぁぁぁん。
0484nobodyさん
2006/02/07(火) 15:04:53ID:???0486nobodyさん
2006/02/07(火) 15:35:38ID:???ツリーって下から考えたら楽じゃね？
my @data = reverse <DATA>;
my (@tree, @rule, $depth);
foreach (@data) {
/^( *)(.+)/;
$#rule = $depth = length($1);
$rule[$_] = !!$rule[$_] for 0 .. $depth-1;
$rule[$depth] = 2 + !$rule[$depth];
unshift @tree, join '', (' ','│','├','└')[@rule], $2, "\n";
}
print @tree;
0487nobodyさん
2006/02/07(火) 15:50:34ID:???bigint プラグマが用意されたのは 5.8.0 から。
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perl58delta.pod#New_Modules_and_Pragmata
Math::Bigint の使い方はドキュメントを。
http://search.cpan.org/~tels/Math-BigInt-1.77/lib/Math/BigInt.pm
>>481
君のスクリプトの二行目に
use CGI::Carp qw(fatalsToBrowser);
を挿入し、出てきたエラーメッセージを読んで解決なさいな。
http://perldoc.jp/docs/modules/CGI.pm-2.89/CGI/Carp.pod
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perldiag.pod
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_require_EXPR
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldata.html#Scalar_value_constructors
0488nobodyさん
2006/02/07(火) 16:22:17ID:???0489nobodyさん
2006/02/07(火) 16:24:47ID:???0490nobodyさん
2006/02/07(火) 20:42:51ID:???って書いてあるんだけど、そんなことしなくてもちゃんと動くし最後のhtml出力でシフトJISに指定やれば
問題なく表示されますよね。
なんかやるメリットってあるんでしょうか？
0493nobodyさん
2006/02/07(火) 20:57:09ID:???0494nobodyさん
2006/02/07(火) 21:03:41ID:???起き得る不都合とその回避方法を把握しているなら、別にどの
文字コードでスクリプトを書こうが問題無い。
ただ、今の perl は UTF-8 を前提に動いているし、UTF-8 なら
Shift_JIS を直接扱う時のように ASCII とのバッティングが起こら
ないし、EUC-JP は日本ローカルな文字コードであるのに対し
UTF-8 は世界的に使われている文字コードなので、まだ UTF-8
の認知度が低かった数年前ならともかく、現時点でこれら3つの
中から選ぶなら UTF-8 が「無難な選択」になる。
0495nobodyさん
2006/02/07(火) 21:15:58ID:???テキスト処理で速度が必要な場合は、その文字コード用に
コード書いた方が断然よい。前にJISのテキスト処理をutf8で
やったら、変換に時間かかりすぎて使い物にならなかった。
0496nobodyさん
2006/02/07(火) 22:07:16ID:???> コード書いた方が断然よい。
> 前にJISのテキスト処理をutf8で
> やったら、変換に時間かかりすぎて使い物にならなかった。
頭大丈夫？
0497nobodyさん
2006/02/07(火) 23:33:23ID:???#名前
<tr>
<td class=r align=right width=110>名前 <font color=red>※</font></td>
<td class=r width=440>
<input type=text name=name size=30 style='ime-mode:active' value="$cnam"></td>
</tr>
# 項目1
print "<input type=radio name=hoge value=\"A\" checked>A \n";
print "<input type=radio name=hoge value=\"B\">B \n";
リターンメールで
$mbody .= "名 前 = $in{'name'}\n";
はメールの本文にちゃんと出るのに
$mbody .= "項目1 = $in{'hoge'}\n";
は表示されません。。
考えられるミスがわかる方ご指摘お願いいたしまするー
0498nobodyさん
2006/02/07(火) 23:44:44ID:???0499nobodyさん
2006/02/07(火) 23:49:25ID:???0500nobodyさん
2006/02/07(火) 23:57:58ID:???> 考えられるミスがわかる方ご指摘お願いいたしまするー
考えられる可能性は１つしかない
> $mbody .= "名 前 = $in{'name'}\n";
とエディタで書いた後でソースを保存したが
> $mbody .= "項目1 = $in{'hoge'}\n";
と書いた後でまだ保存してない。
0501nobodyさん
2006/02/08(水) 00:21:10ID:???0502nobodyさん
2006/02/08(水) 01:09:27ID:???$in{'hoge'}にABとでも入ってほしいのかの。
フォームのデコード処理が甘いと空になっちゃうかもね。
0503497
2006/02/08(水) 01:15:50ID:???http://s1.muryo-de.etowns.net/~testjoy/order.txt
これの # 配達方法 が メールで返ってきたときに空白なんですよ。。
なぜかしら？
0504nobodyさん
2006/02/08(水) 01:48:32ID:???init.cgi が見れないと分からん。
以後は下のスレにでも移動してくれ。
自分の作ったCGIスクリプトをデバッグするスレ
http://pc8.2ch.net/test/read.cgi/php/1011174442/
0505nobodyさん
2006/02/08(水) 01:57:25ID:???モジュールわんさかのスクリプトを書く人の
２種類しかいない Perl 界隈。
0506nobodyさん
2006/02/08(水) 02:03:33ID:???0507nobodyさん
2006/02/08(水) 02:19:56ID:???0508nobodyさん
2006/02/08(水) 02:51:38ID:???0509nobodyさん
2006/02/08(水) 03:17:07ID:???0511nobodyさん
2006/02/08(水) 04:34:41ID:???コピペしてでも自分のソースに必要最小限だけしか入れたくない
じゃないのかな
0512nobodyさん
2006/02/08(水) 22:25:24ID:VDqpPhRjそれを年、月、日、時、分、秒 で返したいんですがどのようにするといいですか？
0513nobodyさん
2006/02/08(水) 22:28:04ID:???秒っていつからの秒だよ
とりあえず
■こんなCGI作ってください■ Part.2
http://pc8.2ch.net/test/read.cgi/php/1133361560/
0516nobodyさん
2006/02/09(木) 02:07:08ID:???0517nobodyさん
2006/02/09(木) 04:00:41ID:???任意ってのは好きな時間を入力できるって意味で、何時の時間を基準とするかが示されていない
1970が基準とするならgmtimeでもlocaltimeでも好きなのを使え
1970以前なら・・・俺にゃわからんので他の人おながい
0518nobodyさん
2006/02/09(木) 04:04:11ID:I2pVJ8U2ソースから消すのはもちろん簡単ですが、サイト上からそれを削除できるようにしたいのです
●●.datというファイルから特定の行を削除orそれ以外を保存するというのはどういった方法がいいのでしょうか？
先輩方のご指南よろしくお願いいたします
0519nobodyさん
2006/02/09(木) 04:04:46ID:???起算する日時分の秒数を足してlocaltime()なんかで変換。
0521nobodyさん
2006/02/09(木) 04:23:52ID:???下の段落だけ読めたので、そこに反応すると、
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq5.html#How_do_I_change_one_line_in_a_fi
とかTie::Fileとか、巷に落ちてる掲示板のスクリプトを読めばおｋ
0522nobodyさん
2006/02/09(木) 04:26:27ID:???localtime(GMT+9) → 1973/11/30(Fri) 06:33:09
gmtime → 1973/11/29(Thu) 21:33:09
0523522
2006/02/09(木) 04:27:34ID:???0525524
2006/02/09(木) 05:17:43ID:???ああそうか1970を引けばいいのか
でも123456789秒から1973/11/30(Fri) 06:33:09をどうやって？
0526nobodyさん
2006/02/09(木) 05:57:10ID:???open F, "+<●●.dat" or die $!;
flock F, 2;
my @data = <F>;
splice @data, 特定の行, 1;
seek F, 0, 0;
print F @data;
truncate F, tell F;
close F;
0527524
2006/02/09(木) 07:09:53ID:???1： 任意の“秒”$unkotimeから分・時間・日・月・年を求めたい
2： それでlocaltime($unkotime)でやってみたが
3： 以下のようになった
･$yearから70を引いた → 100年を超えないときはおｋだけど100年で“-70年”になる
･$hourから-9 → “-3”時などになる
･$wdayから-1 → 現在のところ支障なし（？）に見えるが…
ちなみに鯖は国内です
0528nobodyさん
2006/02/09(木) 08:10:50ID:???($unkotime % 60)←秒
(int($unkotime / 60) % 60)←分
もっと簡単な書き方あるかもしれないが、こんな感じであとは自分で考えれ。
0529nobodyさん
2006/02/09(木) 09:04:42ID:???0530nobodyさん
2006/02/09(木) 10:20:40ID:???0531nobodyさん
2006/02/09(木) 14:06:01ID:???mygmtime_presetを起算日として、gmtime互換の日付を返す。
1970,1,1を渡すとgmtimeと同じ動きをする(はず)。
use Date::Calc qw(Add_Delta_Days Day_of_Week Day_of_Year);
my $gmtime_ad = mygmtime_preset(1, 1, 1);
print join(" ", $gmtime_ad->(123456789)), "\n";
exit;
sub mygmtime_preset
{
my @base = @_;
return sub {
my $sec = shift;
my @date = Add_Delta_Days(@base[0..2], $sec/(24*60*60));
my $wday = Day_of_Week(@date);
my $yday = Day_of_Year(@date)-1;
$date[0] -= 1900;
--$date[1];
return ((gmtime($sec%(24*60*60)))[0..2], reverse(@date), $wday, $yday, 0);
};
}
0532nobodyさん
2006/02/09(木) 14:18:34ID:46AFp3BFファイルの中にある“。”と“、”の数を数えたいんですけど
$word=~ /。/g;
だと・・
どうすればいいですか？
0533nobodyさん
2006/02/09(木) 14:23:27ID:???0534nobodyさん
2006/02/09(木) 14:41:50ID:46AFp3BFありがとうございます
$文字数 = $word;
$文字数 = s/。/。/g;
ってのはおすすめできないんでしょうか？
0535nobodyさん
2006/02/09(木) 14:52:24ID:???0536nobodyさん
2006/02/09(木) 15:07:47ID:???0537nobodyさん
2006/02/09(木) 17:37:51ID:???勿論自分で使うの限定で。
0540nobodyさん
2006/02/09(木) 18:12:47ID:???うん、確かに煩雑だけど、それを補って余りあるぐらい見やすいかなと。
あとは、変数名考えるのも結構大変だしねｗ
0541nobodyさん
2006/02/09(木) 18:28:53ID:???そんなあなたにはjavaがお勧め
0542nobodyさん
2006/02/09(木) 20:02:23ID:???そんなあなたにはrubyがお勧め
0543nobodyさん
2006/02/09(木) 20:05:35ID:???初めて知った。
0544nobodyさん
2006/02/09(木) 21:15:33ID:???0545nobodyさん
2006/02/09(木) 21:24:19ID:???0546nobodyさん
2006/02/09(木) 21:28:43ID:???連想配列というものは$xx{文字列}と定義すると書いてあるのですが、文字列はクォーテーションで囲っている物を文字列というのですよね？
ということは$xx{"soeji"}のように定義するのでよいのでしょうか？
よろしくお願いしますm(_ _)m
0548nobodyさん
2006/02/09(木) 21:38:22ID:???どうもありがとうございました！m(_ _)m
■ このスレッドは過去ログ倉庫に格納されています