Perl コーディング初心者質問コーナー Part34
■ このスレッドは過去ログ倉庫に格納されています
0001前スレの連投で気分崩したので後よろ
04/04/05 16:01ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0756nobodyさん
04/05/13 11:39ID:???0757nobodyさん
04/05/13 11:40ID:???0758nobodyさん
04/05/13 11:47ID:???strftime使った方が楽じゃない?
use POSIX qw(strftime);
my $Date = strftime("%a, %d %b %Y %H:%M:%S %z", localtime);
sprintf(printf)の使い方も憶えといて損はないと思うけどね。激しく基本だと思う。
0759nobodyさん
04/05/13 11:49ID:???# JST == GMT + 9 時間
my $time = time + 9 * 60 * 60;
my $diff = '+0900';
my($sec, $min, $hour, $mday, $month, $year, $wday) = gmtime $time;
my @month = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my @wday = qw(Sun Mon Tue Wed Thr Fri Sut);
my $Date = sprintf
'Date: %s, %02d %s %04d %02d:%02d:%02d %s',
($wday[$wday], $mday, $month[$month], $year + 1900, $hour, $min, $sec, $diff)
;
# 別解
my $Date = sprintf
'Date: %s, %02d %s %04d %02d:%02d:%02d %s',
(split /\W+/, scalar gmtime $time)[0,2,1,6,3,4,5], $diff
;
0760nobodyさん
04/05/13 13:09ID:???色々な方法があるかと。
0761nobodyさん
04/05/13 18:00ID:???Perlでの変数の値域ってどうなっているんでしょう？
文字列で扱うときはいいんですけど、数値で扱うときはどこまで大きい数字が扱えるかは、
Perlのバージョンとかで違うのでしょうか？
0762nobodyさん
04/05/13 20:48ID:???0764nobodyさん
04/05/13 22:13ID:???Perlのバージョンでは基本的には変わらない(perl6になれば変わるかもしれない)が、
バージョンは同じでもコンパイルオプションやOSによって異なる可能性がある。
まぁ普通はこんな感じだと思うが。小さすぎると思うならMath::Big(Int|Float)で。
> perl "-V:[in]v(size|type)"
ivsize='4'
ivtype='long'
nvsize='8'
nvtype='double'
0765nobodyさん
04/05/14 04:19ID:7/s5Izsl# crypt関数使用可否チェック
undef $check_crypt;
$check_crypt = eval { crypt('1111', '11'); 1; }; # ここが23行目
if ($@) { $check_crypt = 2; }
if ($check_crypt == 1) { crypt関数が使える時の処理 }
elsif ($check_crypt == 2) { crypt関数が使えない時の処理 }
else { 不明な時の処理 }
これを、-wオプション付で構文チェックすると
Useless use of a constant in void context at c:\www\～\xxx.cgi line 23.
と注意されたのですが、どこが問題なんでしょうか？
このままでも使用に問題は無いのですが、少し気になるので・・。
よろしくお願いします。
0766nobodyさん
04/05/14 05:21ID:???戻り値を使うべき関数であるところの crypt() が
無効コンテキスト (void context) に置かれているから。
my $check_crypt = eval { crypt('1111', '11') } ? 1 : $@ ? 2 : 0;
とか
if (eval { crypt('1111', '11') }) { 使用可能 }
elsif ($@) { 未実装 }
else { crypt が何らかのエラー }
0767nobodyさん
04/05/14 06:02ID:???use HTTP::Date;
my $Date = time2str(time()+60*60*9);
$Date =~ s/GMT/+0900/;
とか。
>>761
use Config;
print "このシステムでは、\n",
"整数型(IV)はCで言うと$Config{ivtype}で、バイト長は$Config{ivsize}バイト\n",
"実数型(NV)はCで言うと$Config{nvtype}で、バイト長は$Config{nvsize}バイト\n";
いろいろ調べてみては。
0768752
04/05/14 10:31ID:???参考になります。
sprintfもなんとなくわかってきました。精進します。
ありがとうございます。
0769nobodyさん
04/05/14 10:36ID:???その日はその月の何週間目になるか調べる方法は在りますか？
この場合3が取得できるようにしたいです。
0770765
04/05/14 10:52ID:???レスありがとうございます。
問題の箇所を
$check_crypt = eval { crypt('1111', '11') } ? 1 : $@ ? 2 : 0;
と書き換えることにより、無事解決することができました。
無効コンテキストというものに理解が弱く、検索や書籍で調べても
まだ完全に理解するまでには至っていないのですが、
crypt関数の戻り値を利用すべき所なのに利用していなかったことが
問題だったのですね？
ちゃんと理解できるまで、もっと調べてみます。
ありがとうございました。
0771nobodyさん
04/05/14 11:57ID:???これのような気がする。
http://search.cpan.org/~amurren/DayOfNthWeek-1.0/
違ったら適当に探してくれ。
http://search.cpan.org/search?m=all&q=Date&n=100
0772nobodyさん
04/05/14 12:19ID:???問題の説明が曖昧だ。「その月の何週間目」という言い方はあまり
しないと思うのではっきりと定義して欲しい。
多分、月を週に分割してそのいくつ目に入るかって意味だとは思う
のだが、週の始まりは何曜日かとか、最初の週は0週目なのか
1週目なのかとかといった数え方の好みがあるだろうし。
Date::Manip使うかPOSIXのstrftimeの%Uか%W使うかだろうなぁ。
0773nobodyさん
04/05/14 16:41ID:???.htpasswdで発行されたパスワードとIDを保存してあるリストを、
perlで組んだCGI(例えばBBSやチャット)の認証の際に利用したいと
思っているのですが、htpasswdで暗号化されたパスワードとBBSとかの
フォームに入力されたパスワードをコンペアする良い方法はないものでしょうか。
0775761
04/05/14 20:16ID:???調べてみます。
0776nobodyさん
04/05/14 23:19ID:???日付から曜日を求めるツェーラの公式ってのがあったと思う
ちと、検索しても全然引っかからない…
その公式の事を書いてあった本も見つからない…
質問は「調べる方法は在りますか？」なので
ありますと言っておこう。
0777nobodyさん
04/05/14 23:26ID:???ツェーラーも見つけられないのか
[(y+[y/4]-[y/100]+[y/400]+[13m+8]/5+d)%7]
0778nobodyさん
04/05/14 23:54ID:???Zeller の公式(普通ツェラーと表記すると思う)はあくまで曜日(というか日数)を求めるものなので、
それだけでは単純に何週目という値が出てこない。
以前 CGI 関係のスレで質問があって書いてみたことがあるけど、もうひとひねり必要。
0779nobodyさん
04/05/14 23:58ID:???0780nobodyさん
04/05/15 00:03ID:???って言うか、前スレだったよ…＿|￣|○
Perl コーディング初心者質問コーナー Part33
http://pc5.2ch.net/test/read.cgi/php/1078076768/934
0781nobodyさん
04/05/15 10:55ID:???「日曜＝0曜日というルールだと2004/5/1は6曜日。
2004/5/16はカレンダーで21マス目に現れる。」
これから気付けばint使って簡単に書けるでしょ。
0782lock
04/05/15 11:43ID:if9npvZfあの、最近CGIを作らんとならんコトになりまして、
ファイルのロック関係を調べたのですがちょっとお馬鹿な俺の脳味噌では理解出来ませんでした。
取り敢えずめんどう事は避けたいので、実行ロックをかけてプロセスが同時に動けないようにしたいです。
初めての経験なので負荷とか速度は気にしないことにして、安全を優先させるつもりです。
fllckを使って実現させようと思っているのですが、どのように記述すれば最も安全なのでしょうか？
開発環境はwin98ですが、本番の実行環境はUNIX系のOSです。
お馬鹿な質問で申し訳ありませんが、どなたかよろしくお願いします。
0783nobodyさん
04/05/15 12:05ID:???0785nobodyさん
04/05/15 13:09ID:???もう一台、検証用にマシンを用意してLinuxか*BSDでもインスコ
したほうがよい。
現行のwin98をwin2000以降にしてVMwareって手もあるが。
0787nobodyさん
04/05/15 15:01ID:???http://perldoc.com/perl5.8.4/pod/perlport.html#FUNCTION-IMPLEMENTATIONS
0788782
04/05/15 17:32ID:MHBM3z7f検索すると以下のコードに辿り着いたのですが、
open(OUT, "+< outfile.txt");
flock(OUT, 2);
truncate(OUT, 0);
seek(OUT, 0, 0);
print OUT "........";
close(OUT);
これはイツロックが解除されてるんでしょうか？
closeの時にファイルハンドルといっしょに消滅してるの？？
と言いますか実行ロックがやりたいんだけど、プログラムの先頭に
open(OUT, "+< outfile.txt");
flock(OUT, 2);
これを書きっぱなしにしたらダメですか？
0789nobodyさん
04/05/15 17:37ID:???>プログラムの先頭に（略）これを書きっぱなしにしたらダメですか？
プログラムの開始はそこじゃないですよ。
スタートアップルーチン,perl_alloc,construct,parse(,run)して初めて（Perl）プログラムの先頭に行くわけです。
0791782
04/05/15 18:08ID:MHBM3z7fすみません、実行ロックは実行フェーズに対するロックの意でした。
つまり、インタプリタに引き渡された直後の実行フェーズの一番初めの処理としてロックをかけ、
それ以後の処理を複数のプロセスが同時に動いてほしくないと言うことです。
0792nobodyさん
04/05/15 18:08ID:???0793nobodyさん
04/05/15 18:25ID:???0794nobodyさん
04/05/15 18:27ID:???BEGINブロック作ってそこでflock。
そして、ENDブロックでclose。
壊れてもいいファイルだから、closeを書かなくても、
CGIなら問題ないのだろうけど、書いておくのがお約束。
0795nobodyさん
04/05/15 18:33ID:jlBwPWFJ掲示板のデザイン変えようとしてもどこにHTML書けばいいか分かりません。
属性名を変数にしてPrintで書けば良いの？
0796nobodyさん
04/05/15 18:36ID:???スレ違い
■ 設置の方法がわからない場合には
ＣＧＩ設置について質問
http://pc5.2ch.net/test/read.cgi/php/1054216089/15（テンプレ）
■ 自分で改造できない場合には
【 スクリプト改造依頼スレ 】(丸投げ)
http://pc5.2ch.net/test/read.cgi/php/1076831972/324（テンプレ）
■ 自分で改造するアドバイスが欲しい場合には
★三 【 スクリプト改造工房 PART 8 】 ★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/79（テンプレ）
0797782
04/05/15 18:53ID:???794さんの方法で行ってみます。
でも耐久テストに失敗したらまた来るかもしれませぬ。。
0798nobodyさん
04/05/15 19:47ID:???何か小難しい事書いてるけどそんな特殊な事やろうとしてるのかな。
やりたい処理を具体的に書けば良い例がいくらでも出てくる気がするが。
>>797
耐久テストって何じゃいｗ
0799nobodyさん
04/05/15 20:20ID:???0800nobodyさん
04/05/15 20:44ID:???use hoge;
my $hoge = new hoge();
$hoge->method(@args);
などというように、hogeオブジェクトのメソッドを呼び出そうとすると、
親のfoo::method()が呼ばれて、hoge::method()が無視されてしまうことが
よくあります。hoge::method内でSUPERなどで明示的に呼んではいません。
fooのmethodをmethod2などにリネームすると、「methodなんてメソッドは
パッケージhogeには無い、ひょっとしたらhogeをロードし忘れてるんじゃないの？」
と怒られてしまいます。
この現象は何故起こるのでしょうか？
my $hoge = new hoge();と$hoge->method(@args);の間に
print ref $hoge, "\n";を入れてやると、ちゃんと$hogeはhogeになってます。
原因が分からないので、とてもとてもデバッグしにくいのですが、hoge::methodに
バグがあって読めないのなら、強制的にhoge::methodを呼び出して、
問題のある行でエラー吐いてdieさせるとかはできないのでしょうか？
0803nobodyさん
04/05/15 21:07ID:???すいません、環境書き忘れていました。
Debian woody + Perl 5.6.1です。
同じスクリプトで結果が異なるわけではなく、最初は親クラスのが呼び出されるけど、
子クラスのmethodの中をデバッグ、というか、例えば文法が間違ってる部分を
直したりすると、ちゃんと子クラスのを呼んでくれたりするのですが、
何故親クラスのを呼びに行くのか、何故子クラスのオブジェクトにmethodが無いなどと
言われるのか…。
文法等が間違っているのなら、そこでエラー吐いて止まって欲しいのですが、
親クラスのを平然と呼ばれて続行されると、どこが間違ってるのかわからないので…。
0805nobodyさん
04/05/15 21:12ID:???0806nobodyさん
04/05/15 21:16ID:???mod_perlってapacheのモジュールですよね？
apacheは使ったこと無いのでよく知らないのですが、というかapacheのmod_perlなら
使ってないです。普通のPerl5.6.1です。
0808nobodyさん
04/05/15 22:45ID:???私もPerlのバグだとは思ってないです。
どうもhogeの中でuseしているモジュールが、インストールできてないとかで読めない
場合に発生するみたいですが…。
0809nobodyさん
04/05/16 02:01ID:???物ぐさしないで新しいの入れてご覧。
ActivePerl build 631以前はTkが同梱されておりません。
0810nobodyさん
04/05/16 05:37ID:???問題の起きるサンプルを書いて欲しいところ。
0811nobodyさん
04/05/16 07:49ID:???今日、今だったらlocaltimeで取得出来ますけど。
引数で何とか出来そうですが分かりませんでした。
0814nobodyさん
04/05/16 10:11ID:WJ6PDaM410846903300057678
のように、表示させたいとしたいのですが、
（プロセス番号は、８桁未満のときは0を入れる）
$datafile = time . sprintf("%8d",$$);
だと、
108469033 57678
となってしまいます。
この空白を0で埋めるにはどうすればよいのでしょうか？
0816814
04/05/16 10:32ID:WJ6PDaM4どうも。
$datafile = time . sprintf("%08d",$$) . ".csv";
で解決しました。
0819nobodyさん
04/05/16 15:59ID:???0821nobodyさん
04/05/16 16:53ID:???さすがマルチなだけあるな。
0822nobodyさん
04/05/16 23:45ID:???ある日付の1日前の日付(YYYY/MM/DD)の取得は一度1970年よりの秒数に変換してから再びlocal関数に通すしかないのでしょうか？
もう一つ、
ある月に何日まであるかを返すには閏年の計算は必須でしょうか？(Perlに用意されていますか？)
0823nobodyさん
04/05/16 23:50ID:???たとえば2chのDATを読む時みたいに。
LPWのmirrorをみてみたのですが、更新されてるときは新しくDLするみたいでよくわかりません。
0824nobodyさん
04/05/16 23:56ID:???3/1の前日が2/28か2/29になる以外、すべての日の前日は固定ですが？
2月以外は何日まであるか固定ですが？
それは閏年によって変わるのだから計算は当然必要ですが？
perlにはそんなものを求める関数はありませんが？
0828822
04/05/17 00:29ID:???回答ありがとうございます。
Time::Localモジュールを使えば日付→経過秒数の変換が一発でできるようですね。
ある月の日数算出は普通に組み込んでみようと思います。
また困ったことがあれば質問しに来ます。
どうもありがとうございました。
0829nobodyさん
04/05/17 06:58ID:???use Date::Calc qw(Add_Delta_Days Days_in_Month);
my ($year, $month, $mday) = (2004, 3, 1);
($year, $month, $mday) = Add_Delta_Days($year, $month, $mday, -1);
print "date-1: $year, $month, $mday\n";
my $days = Days_in_Month($year, $month);
print "days: $days\n";
0830nobodyさん
04/05/17 07:33ID:???0831822
04/05/17 08:22ID:???それです！
わざわざサンプルソースまで書き出して頂きありがとうございます(´Д⊂ヽ
Days_in_Monthにあたる関数は自力で作れましたので、
Date::CalcのAdd_Delta_Daysだけを借りてみようと思います。
そして小一時間ほどppmと格闘しなんとかDate::Calcをインストールし、
5/1→4/30の移動を確認できました！
本当にありがとうございました。
# ついでにTime::Localもインストールしておきました。
0833nobodyさん
04/05/17 13:32ID:???0834nobodyさん
04/05/17 13:44ID:???0835nobodyさん
04/05/17 20:26ID:???0836８２３
04/05/18 02:17ID:???>>826
探したのですが、rangeと検索してもほかの部分が見つかってしまってだめでした。
もうちょっとヒントをいただけませんか。
0837nobodyさん
04/05/18 02:27ID:???0838nobodyさん
04/05/18 07:19ID:15Ww53+yttp://www.studyinghttp.net/rfc_ja/2616/sec14.html#sec14.35
0842nobodyさん
04/05/18 22:40ID:???前に見つけたんだけど、URLがどっかいっちゃった；それでさっきから探してるけど、見つからないんだ。
0843nobodyさん
04/05/18 22:43ID:???0844名無しさん
04/05/18 23:11ID:4Rd9YBtL表の生成部分はなんとか出来そうなのですが
(a)ファイルの中から行を探して変更、削除する部分と
(b)追加する部分で同じ内容で複数行追加しないようにする部分
の方法が頭に浮かびません。どのような方法がありますか？サンプルソースを教えていただけないでしょうか？
1)予定テキストファイルを読み取り次のような表を生成します。
＋－－－－＋－＋－＋－＋－＋－＋－＋－＋－＋－・・・
｜２００４年０６月｜先月 ｜今月 ｜来月 ｜
＋－－－－＋－＋－＋－＋－＋－＋－＋－＋－＋－・・・
｜ 名前 ｜１｜２｜３｜４｜５｜６｜７｜８｜９・・・
＋－－－－＋－＋－＋－＋－＋－＋－＋－＋－＋－・・・
｜ 鈴木 ｜ ｜ ｜休｜ ｜ ｜後｜ ｜ ｜
＋－－－－＋－＋－＋－＋－＋－＋－＋－＋－＋－・・・
｜ 佐藤 ｜ ｜ ｜ ｜ ｜休｜ ｜ ｜ ｜
＋－－－－＋－＋－＋－＋－＋－＋－＋－＋－＋－・・・
｜ 田中 ｜ ｜ ｜前｜ ｜ ｜ ｜休｜ ｜
＋－－－－＋－＋－＋－＋－＋－＋－＋－＋－＋－・・・
2)先月、今月、来月の部分はリンクとなっていてCGIを呼び出し、先月の表、今月の表、来月の表を生成します。
3)名前もリンクになっていてフォームを呼び出し、SELECTタグにより年、月、日と、休、前、後を選択して予定テキストファイルに追加します。
4)休、前、後もリンクになっていて、フォームを呼び出し、予定テキストファイルから該当行を変更、削除します。
予定テキストファイルの内容は
名前ID＜＞年＜＞月＜＞日＜＞内容
n0001＜＞2004＜＞6＜＞3＜＞休
n0002＜＞2004＜＞6＜＞5＜＞休
n0001＜＞2004＜＞6＜＞6＜＞後
n0003＜＞2004＜＞6＜＞7＜＞休
名前と名前IDのリストファイルの内容
名前ID＜＞名前
n0001＜＞鈴木
n0002＜＞佐藤
n0003＜＞田中
0845nobodyさん
04/05/18 23:28ID:???まずは日本語からお勉強しようね。
お仕事をするには早すぎるようですよ。
ぶっちゃけ表はファイルから読み出すだけだし、
書き込みは重複を検査すれば良いだけだろ。
0846842
04/05/19 00:04ID:???ありがとう！見つかったよ。
目的はメルアドのチェックじゃなくてsendmailに渡す際へんなスクリプトを排除したいだけなんだ。
で、なんか一杯記号は許可されてるみたいだから、結局「<」、「>」、「"」だけ切り捨てることにしたよ。
まだperl勉強足りないんだけど、perlって「$」、「@」、「%」とかを入力されても内部で途中で展開しないで
ただの文字列として扱われるみたいね。いい！
0847nobodyさん
04/05/19 00:22ID:???Perlは不得手。全部読んで全部書き出すよろし。
splice()を使うと幸せになれるかもしれない。
(b)追加する部分で同じ内容で複数行追加しないようにする部分
重複チェックはハッシュを利用すると楽。
0848nobodyさん
04/05/19 01:25ID:???>まずは日本語からお勉強しようね。
>お仕事をするには早すぎるようですよ。
人のあらを見つけると大喜びで責め立てる。845はそういうむなしいやつ。
でもな、845だっていいところもあるんだよ。845のいいとこは↓が教えてくれる。
0849nobodyさん
04/05/19 01:31ID:???>まずは日本語からお勉強しようね。
>お仕事をするには早すぎるようですよ。
人生にとって大切なことを的確にアドバイスしてあげたこと
0850nobodyさん
04/05/19 02:31ID:???例えば相手がフォームに「ササ」と半角カタカナで入力する。んで、漏れが
require "jcode.pl";
read(STDIN,$buffer);
$buffer =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
jcode::convert(\$buffer,"euc");
jcode::h2z_euc(\$buffer);
～処理～
jcode::convert(\$buffer,"sjis");
print $buffer;
ってやってもうまくいかない。相手がeucで送ってくれば大丈夫だけど他の文字コードだと駄目。
半角カタカナの文字列＋全角文字列（例「ｻｻ表示」）ならちゃんと全角カタカナへ変換できるけど。
なんかPERLメモとかには先にeucに変換してあればおｋだなんて載ってるけど、全然おｋじゃない・・・
相手がどんな文字コードで送ってきても華麗に半角カナを全角カナに変えれちゃうおっとこまえいませんか？
0851nobodyさん
04/05/19 02:37ID:???0852850
04/05/19 03:07ID:???それも駄目なのさ。
多分問題は$bufferの中に半角カナしかないときなんだよね。他の文字も混ざってればちゃんと機能するんだけどね。
まあそんなにこだわることでもないけどできればなぁ
0853nobodyさん
04/05/19 03:33ID:???http://www.shtml.jp/mojibake/hankaku.html
0854nobodyさん
04/05/19 03:33ID:???するんですけでど、どれくらいのレベルから排他制御って必要になってくるんですか？
0855nobodyさん
04/05/19 03:56ID:???【Perl】ファイルロック(排他処理)について語ろう
http://pc5.2ch.net/test/read.cgi/php/1024795138/
■ このスレッドは過去ログ倉庫に格納されています