トップページ⇒php
1001コメント350KB

【Perl 】初心者コーナーPart7

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい01/09/12 13:04ID:???
いらっしゃーい、perlのコーディングで困ってる人のスレです。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。

参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://corn.2ch.net/test/read.cgi?bbs=php&key=988809842&ls=50
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part３】
http://corn.2ch.net/test/read.cgi?bbs=php&key=988727833&ls=50

過去ログ、その他の役立ち情報は>>2-5を見よう。
0307名無しさん＠お腹いっぱい。01/09/24 18:28ID:???
datに書き込む処理が終わった後、そのdatが表示されるようになってない？
もしくはdatに飛ばしてるとか。
0308名無しさん＠お腹いっぱい。01/09/24 18:28ID:???
組み込むって <!---exec**　しようとしてるのｶｰ（ﾟдﾟlll)
030929501/09/24 18:41ID:EJKgIokw
<FORM method="POST" action="enquete.cgi">htmlは問題無いと思うのですが
----enquete.cgiの内容----
#!C:/Perl/bin/perl
# ライブラリ
require 'cgi-lib.pl';
# デコードサブルーチン
&ReadParse(*form);
# ライブラリ
require 'jcode.pl';
# 文字コード変換サブルーチン
&jcode'convert(*form,'sjis');
# 連想配列から値だけを取り出し、区切りのハイフンを追加
$data = "$form{'name'}\n$form{'mail'}\n$form{'sex'}\n$form{'age'}\n$form{'kansou'}\n\n----------\n\n";
# 追加書き込みモード
open(ENQ, ">>enquete.dat") || die "File 'enquete.dat' Open Error.";
#flock(ENQ, 2);
print ENQ $data;
#flock(ENQ, 8);
close(ENQ);
# -----ここから出力 -----
print "Content-type:text/html\n\n";
print << "END_OF_HTML";
<HTML>
----お礼のページが開くようです----
031029501/09/24 18:46ID:EJKgIokw
一週間でマスターするCGIって本なので基本的な設定が間違っているのだと思います

データは付属CDからコピぺしたので動くはずなのですが、、、
0311名無しさん＠お腹いっぱい。01/09/24 19:16ID:???
つーかhello.cgiで実験すれ、print "Content-type: text/html\n\n<html><h1>hello";
<html><body><FORM method="post" action="hello.cgi">
<input type=submit value="post実験></FORM>
これPOST

生でCGI開いてGET、おかしかったらHTTPDの設定が悪い
検索したら、出てきた。

http://www.shoeisha.com/book/errata/er_detail.asp?bid=1222
http://www.google.com/search?q=WIN+CGI+EXEC+APACHE&hl=ja&lr=lang_ja
0312名無しさん＠お腹いっぱい。01/09/24 19:34ID:AOw736z6
>>299
アドバイスありがとうございます。
が・・・全くわかんないです。
簡単なプログラムのソース書いていただけないでしょうか？
お願いします。
0313名無しさん＠お腹いっぱい。01/09/24 19:49ID:???
#!/usr/local/bin/perl
print "Content-type: text/html\n\n<html><h1>Hello";
↑　これhello.cgiで保存
<html><body><FORM method="post" action="./hello.cgi">
<input type=submit value="post実験"></FORM>
↑　これhello.htmlで保存
ボタン押しても、直接CGI開けても「Hello」が見えないと駄目
で、何が悪いかと言うと大体Apacheの設定が悪いかWINの設定が悪い

お小言言わせて貰うとさ、「一週間でCGI」←このタイトルからしてダメ
●HTMLが書ける。
●自宅で試すならHTTPDの設定が出来る。
●Perlのプリント文が書ける。
これ3つとも出来ないとまともに動かない、だから一つづつマッタリと
遊びながらやった方が簡単なんだよね。
だから、どかっっとソース貼られてもアドバイスのしようが無い
「結局ドキュメントルート見えてませんでしたっ」とかも良く有る
で上の感じだと多分HTTPDの設定が間違えてるっぽいから
googleのリンクで調べてちょってわけ
0314名無しさん＠お腹いっぱい。01/09/24 19:56ID:???
俺も上で結構付き合ってきたけど、
>>311にソースが既に書いてあるのに、>>312見て愕然。

ちなみにスレ違いだったな。
http://corn.2ch.net/test/read.cgi?bbs=php&key=1000804655&ls=50
031531201/09/24 20:00ID:AOw736z6
>>314
スマソ。漏れは下のほうに答えたんです。
パスワードを暗号化してクッキ～に保存するソースを知りたいんです。
0316ほれ01/09/24 20:15ID:???
http://www.google.com/search?hl=ja&q=perl+crypt%8A%D6%90%94&lr=lang_ja
http://www.google.com/search?hl=ja&q=%83N%83b%83L%81%5B+%83G%83%93%83R%81%5B%83h&lr=lang_ja
031731501/09/24 20:31ID:AOw736z6
>316
ありがとうございます。
暗号化する方法はわかったんですが、どうやってクッキーの保存、読み出しと組み合わせればいいんですか？
0318もち米１００％ 01/09/24 20:44ID:???
>>279-280
ありがとうございます、やっぱりお手軽なのはリネームになりますか。
ショッピングカートとかこんな感じのトランザクションをどうやって保証してるんだろう
例えば最悪のタイミングでSIG{TERM}投げられたらどうしようとか、
2chの㌧㌦はsubjectの書き換えで0バイト読み込みしちゃってると思うんですが
考え出すときりが無いですよね。

取り合えずム板の参考書スレを読み直してみます。　レス感謝～
0319むぎ茶　　　　　 01/09/24 20:55ID:???
パスワード掛けなければよい　　（ｎ

┐(´ー｀)┌


┏━━━━━━━━━┓
┃（'Д'）y ─┛~~　┃
┃むぎ茶　　　　　　┃
┃[email protected]　　┃
┗━━━━━━━━━┛
0320名無しさん＠お腹いっぱい。01/09/24 21:18ID:???
一日見ない内に糞スレ。
0321名無しさん＠お腹いっぱい。01/09/24 21:58ID:.PROECLA
超初心者な質問なのですが
require'jcode.pl';
&jcode'convert(*data,'sjis');

print"Content-type:text/html\n\n";
if($data eq "hehehe"){

print<<EOF;
<html>
<head>
<title>ビィンゴー！</title>
</head>
<body>
正解じゃい！！<BR>
文句あるんか？
EOF

}

print<<EOF;
間違ってる
</body>
</html>
EOF
exit;

というのを作りました。
間違ったパスを入れるとちゃんと動くのですが、正解を入れると
正解の文字と間違った時の文字の両方が出てきます。
何か間違ってますか？
0322名無しさん＠お腹いっぱい。01/09/24 22:07ID:???
>321
if(){}else{}を使おう。
条件分けというものを一から勉強しなおした方がいい。
032332201/09/24 22:14ID:???
>321
一応ヒント。
・正解の時にだけ出すHTML
・間違いの時にだけ出すHTML
・正解でも間違いでも必ず出すHTML
を自分で理解しよう。

間違ったパスを入れた時も、ちゃんとは動いてないぞ。
HTMLソースを見てみな。
0324名無しさん＠お腹いっぱい。01/09/24 23:52ID:???
むぎを見たのも久しい気がする。
032532101/09/24 23:52ID:.PROECLA
>322
すいません。勉強しなおして解決することができました。
elseで解決しました。また1箇所構文が間違っていてそれも修正して
うまく動作するようになりました。
ありがとうございました。
0326名無しさん＠お腹いっぱい。01/09/25 16:02ID:rq8B7jsc
書き込むほどのことではないのですが
質問しようと思いブラウザを開きましたが、やはり質問する前にもう一度見直してみようと思い
2時間掛けて見直したらどうにか直りました。
何度か見直していたのですがやはり見落としがありました。
どうでもいいことなのですが･･･
0327名無しさん＠お腹いっぱい。01/09/25 16:04ID:???
どうでも良すぎる。
0328名無しさん＠お腹いっぱい。01/09/25 16:13ID:???
カレントディレクトリのファイル一覧@filesを最終更新順に並び替えるのってどうすればよいでしょうか？
0329名無しさん＠お腹いっぱい。01/09/25 16:27ID:???
@file = sort { (stat $a)[9] <=> (stat $b)[9] } @file;
0330名無しさん＠お腹いっぱい。01/09/25 16:28ID:???
>>326
構文チェックしよう。
perl -wc hoge.pl

>>328
@files = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map { [$_, (stat)[9]] } @files;
033132901/09/25 16:34ID:???
@file → @files
0332名無しさん＠お腹いっぱい。01/09/25 16:40ID:???
>329
statを呼ぶ回数が多くなって効率が悪い？・・・
033332901/09/25 16:55ID:???
#! /usr/local/bin/perl
use Benchmark;
timethese(96, {
'329' => \&prog329,
'330' => \&prog330,
} );

sub prog329 {
opendir(DIR, './');
my @files = readdir(DIR);
closedir(DIR);
@files = sort { (stat $a)[9] <=> (stat $b)[9] } @files;
}
sub prog330 {
opendir(DIR, './');
my @files = readdir(DIR);
closedir(DIR);
@files = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map { [$_, (stat)[9]] } @files;
}

--------------------------------------------------------------------------------------------

Benchmark: timing 96 iterations of 329, 330...
329: 2 wallclock secs ( 1.54 usr + 0.51 sys = 2.05 CPU) @ 46.83/s (n=96)
330: 1 wallclock secs ( 0.56 usr + 0.17 sys = 0.73 CPU) @ 131.51/s (n=96)


結構差が出るな。
0334名無しさん＠お腹いっぱい。01/09/25 17:05ID:???
ちなみにファイル＆ディレクトリ数が 26個あるディレクトリで計測。

CPU Pentium200MHz
RAM 224MB
HDD 知らん
OS Vine Linux 2.1
Perl 5.6.1
0335名無しさん＠お腹いっぱい。01/09/25 17:44ID:???
@files = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map { [$_, (stat)[9]] } @files;

このソート方法、良く見るんだけど未だに理解出来ない。。。
どっか解説してくれるサイトなあい?
0336名無しさん＠お腹いっぱい。01/09/25 17:51ID:???
>>335
右から見ていけば分かりやすいかと。
0337名無しさん＠お腹いっぱい。01/09/25 17:56ID:vAuR/uTY
map の使い方がやっとYO!
0338名無しさん＠お腹いっぱい。01/09/25 17:57ID:zsF862DA
@files = sort {(stat $b)[9] <=> (stat $b)[9]} @files;
と一緒でしょ。やってることは。
0339名無しさん＠お腹いっぱい。01/09/25 17:57ID:???
げ、329と一緒じゃん。。
0340名無しさん＠お腹いっぱい。01/09/25 17:59ID:???
$ck{$_} = (stat)[9] foreach @files;
@files = sort { $ck{$b} <=> $ck{$a} } @files;
↑
こっちの方が早い
0341名無しさん＠お腹いっぱい。01/09/25 18:41ID:???
benchとったけど微妙だな。
まぁお好みで。
0342名無しさん＠お腹いっぱい。01/09/25 18:45ID:TUKvDv4A
ENVってどれくらい種類あるの？
0343名無しさん＠お腹いっぱい。01/09/25 18:47ID:???
>>342
環境による。
0344名無しさん＠お腹いっぱい。01/09/25 18:47ID:???
>>342
自分で調べろ。
keys %ENV
0345名無しさん＠お腹いっぱい。01/09/25 18:49ID:???
(　´_ゝ｀) ﾌｰﾝ
0346まげ01/09/25 22:27ID:???
ちんこがかゆいので
自動チンコかきそふとを作ってください
0347名無しさん＠お腹いっぱい。01/09/25 23:27ID:???
家の外にアイスクリームを置いて下さい。
暫らくすると蟻が沢山寄ってくるのでそれをパンツに突っ込んで下さい。
上級者向けだけど・・・・頑張って！！
0348名無しさん＠お腹いっぱい。01/09/26 07:22ID:TfbH1r3A
HTTPではじまる環境変数ってどれくらい種類あるの？
0349名無しさん＠お腹いっぱい。01/09/26 08:46ID:???
>>348
自分で調べろ。
0350JAPU01/09/26 09:12ID:???
無限にあります。
0351らくだ01/09/26 15:40ID:???
でかいプログラムを書くと自分の作った関数がどこで呼ばれているかが把握できなくなりませんか？
そういうときに簡単に関数の呼び、呼ばれリストが作成できるツールってないのかな？
0352名無しさん＠お腹いっぱい。01/09/26 15:46ID:???
関数作る際自分でメモっとけ。
0353らくだ01/09/26 15:55ID:???
なんか開発ツールとかないのかな？
JavaのForteとかJbuilderみたいな。
0354名無しさん＠お腹いっぱい。01/09/26 17:11ID:???
>>351
全文検索
0355らくだ01/09/26 17:13ID:???
>>352
てめぇの厨房CGIと違って関数100個以上もあるんだよ。

#!/opt/bin/perl5
print "352 逝っとけ\n";
0356名無しさん＠お腹いっぱい。01/09/26 17:15ID:???
>>355 煽りウザイ。死んどけ。
0357名無しさん01/09/26 17:20ID:mymJ1qjA
どこで呼ばれてるかの確認ってひつようかしら
0358名無しさん＠お腹いっぱい。01/09/26 17:25ID:???
>>357
まぁ必要だから聞いてるんじゃない？

つーか関数100個以上････。

モジュールとかに分けろよ。

そっちがよっぽど厨房ｹﾞﾌﾝｹﾞﾌﾝ

いやその前に関数多けりゃどうって話じゃねーだろ。
0359名無しさん＠お腹いっぱい。01/09/26 17:31ID:???
grepで一発ジャン。
馬鹿ばっかだな。
0360名無しさん＠お腹いっぱい。01/09/26 17:39ID:???
質問の本質をわかってない馬鹿発見。
0361名無しさん＠お腹いっぱい。01/09/26 17:40ID:???
コテハン糞レスの法則
0362名無しさん＠お腹いっぱい。01/09/26 18:00ID:???
一部を除いて、どうしてこんなにレベルが低いのだろう。
0363らくだ01/09/26 22:15ID:???
>> 358,359
モジュールでも共通度が高いと意味がない。
厨房ＳＥはとりあえず黙って逝ってください。

あとgrepじゃ、全体が把握できないでしょ？
君は厨房ＵＮＩＸ使いだから逝っといてね。
0364名無しさん＠お腹いっぱい。01/09/26 22:18ID:SfAEbkLc
>>351
プロファイラで代用するのは？

(1) hoge.plを実行してプロファイルtmon.outを作成
perl -d:Dprof hoge.pl

(2) tmon.outを解析して関数呼び出しのツリーを表示
dprofpp -t

ただし、あくまでもプロファイラの機能の一部なので、
実際に呼ばれた関数を記録して表示するだけ。
351の意図するところと多少違うとは思う。
0365名無しさん＠お腹いっぱい。01/09/26 22:32ID:???
共通度が高いのはモジュールとして一番望ましいんじゃねーの？
困った君だね。
0366名無しさん＠お腹いっぱい。01/09/26 22:41ID:???
「共通度が高い」という用語の共通度が低いのでは？＞そこのふたり
0367名無しさん＠お腹いっぱい。01/09/26 23:12ID:???
ややこしくなってきたけど納得。>>366
0368当方へたれ01/09/26 23:18ID:???
使ったことないが，これなんかはどうだろう。
http://www.bekknet.ad.jp/~bero/docj/module/03/index.html

関数呼び出しリストならPerlで書けそう。
へたれには無理だが。

つーか関数が把握できなくなるような設計はヘボだと思う。
strict使ったり，パッケージ分けやプロトタイプ宣言とか
スコープ狭くしたりすれば，あるていどはマシになるかと
0369名無しさん＠お腹いっぱい。01/09/27 01:01ID:wv3pEXiA
解答者を質問者が煽るというのが最近の流行りなのか？
0370名無しさん＠お腹いっぱい。01/09/27 01:14ID:???
>つーか関数が把握できなくなるような設計はヘボだと思う。
激しく同意。

>解答者を質問者が煽るというのが最近の流行りなのか？
らくだ氏は明らかに精神を病んでおられるので・・・・
0371名無しさん＠お腹いっぱい。01/09/27 02:55ID:Mu4f6YjE
sentence for (;;;);

な書き方ができないのを今始めて知った。

なぜだ。何か問題があったのか。
0372101/09/27 03:00ID:SujucJS2
その画像ならココ
http://www.f2.dion.ne.jp/~impact14/
0373名無しさん＠お腹いっぱい。01/09/27 03:01ID:???
>>371
forに修飾子はありません。
for修飾子が成立する時はforeachとして解釈されます。
よって()の中はリスト値でなければいけない、と。
037437101/09/27 03:27ID:Mu4f6YjE
>>373
さんきゅう ふぉー ゆあ かいんどねす

そういえば、
print for(1..10);
みたいなことはできるんだよな。なるほど納得。

でも、senetense for(;;) で使ったときに、なんか不味いことでもあるんかなぁ。
見栄え上というか、他の意味と取り違えやすくなったりとか？
037537301/09/27 03:40ID:???
確信あるわけではないけど。

修飾子の時は sentense for 1..10 みたいに書ける。
というか、自分は(1..10)みたくカッコ付けないです。
んで、(;;)の場合はカッコ無いと死んでしまう。

結局構文解釈上の問題なのかな？と。
# 多いに外している可能性があります。
# 識者の補足/説明希望。
0376名無しさん＠お腹いっぱい。01/09/27 14:58ID:199fgLMY
>>353
ActiveState社からVisual Perlが出ています。ただし有償ですけど。
ActivePerlは無償なんだけど、Debuggerは有償なんですね、ここ。
0377Perlあまちゅあ01/09/27 15:34ID:n78xCnwc
すいません、コマンドラインで<STDIN>時に「キーボードから入力する文字数」を制限するのは、
どうすれば良いのでしょう？

（例えば、コマンドラインで、パスワードを入力するときに、８文字なら８文字と決まっていて、
９文字目は入力しても、画面には表示されない。）

OS非依存が良いのですが、依存せざるを得ないのであれば、Win依存でお願いします。
（キーが押されたってことを検出できれば、それをループでまわせるとは思うんですが、
　C言語のgetche や kbhitに相当するPerl関数がわからないんです。。とほほ。。。。）

厨な質問ですみません。（「CGIに依存しないPerlの話題一般」とのﾏﾙﾁﾎﾟｽﾄでｽﾝﾏｿﾝ）
0378名無しさん＠お腹いっぱい。01/09/27 15:43ID:???
(　´,_ゝ｀) あっそー
0379名無しさん＠お腹いっぱい。01/09/27 17:02ID:???
Jフォンから、写真添付メールを送ると、
そのまま掲示板に掲載することのできるＣＧＩはありませんか？
0380名無しさん＠お腹いっぱい。01/09/27 17:14ID:???
>>379 shine
0381名無しさん＠お腹いっぱい。01/09/27 17:27ID:088OSBr6
ENVのHTTP_X_LOCKINGとHTTP_FORMってなんですか？
色々調べてみたのですが不明です。
0382むぎ茶　　　　　 01/09/27 18:09ID:???
色々調べたのにそんな事も分からない君に乾杯　　（ｎ

┐(´ー｀)┌


┏━━━━━━━━━┓
┃（'Д'）y ─┛~~　　┃
┃むぎ茶　　　　　　　┃
┃[email protected]　　　┃
┗━━━━━━━━━┛
0383名無しさん＠お腹いっぱい。01/09/27 18:32ID:2d.Y65Hw
HTTP::Cookiesについて質問です。
LWP::UserAgentを使ってPDA用中継サーバーを実験で作っています。

サーバーから送信されたcookieを受信して
$cookie_jar->save( $file );
でファイルに書き出すことはできたのですが
内容を要素毎に取り出す方法がよくわかりません。

要素毎に取り出してクライアントのブラウザに登録したいのですが
どのようにしたらいいのでしょうか？

初心者スレッドでする質問でもないような気がしますがほかに
いいスレッドがなかったのでここに質問しました。
0384Mr.ちん01/09/27 18:43ID:Va6tTvlc
申し訳ありません。
質問があります。


CGI単体で指定フレームにリンクを飛ばせるものですか？

HTMLのMETAとか
Javascriptのlocationとかを吐き出させる方法以外で。

できるか、できないかだけでも教えてください。
宜しくお願いします。
0385名無しさん＠お腹いっぱい。01/09/27 19:00ID:???
意味不明。
0386名無しさん＠お腹いっぱい。01/09/27 19:12ID:???
(　´,_ゝ｀) あっそー
0387名無しさん＠お腹いっぱい。01/09/27 19:21ID:???
>>383
HTTP::Cookieって使ったこと無いけど、どんな風にcookieがファイル
に書き出されるの？
書き出されたファイルを見れば分かりそうなもんだと思うのだが。
0388名無しさん＠お腹いっぱい。01/09/27 20:00ID:???
>>377

Cで出来ることがわかっているなら、Cでやったら?
このあたりは環境依存は仕方ない気がする。
モジュールあさればあるんだろうけど。

> h2xs -An Win32::Getch

## Getch.xs

#include <conio.h>

MODULE= .. PACKAGE = .. PREFIX = _

int
_getch

int
_getche

int
_kbhit

## Getch.pm

our @EXPORT = qw(getch getche kbhit);


> perl Makefile.PL
> nmake
> nmake install
> perl -MWin32::Getch -e "print chr(getch) while $c++ < 8
0389名無しさん＠お腹いっぱい。01/09/27 20:17ID:???
つーかHTTPヘッダ云々は下のサイトでたいていは解決する。ちゃんと調べろ
http://dir.yahoo.co.jp/computers_and_internet/internet/world_wide_web/HTTP/
0390名無しさん＠お腹いっぱい。01/09/27 21:01ID:???
>>389
どれに対するレスなのかまったくワカリマセン。
0391名無しさん＠お腹いっぱい。01/09/27 22:56ID:???
>>385 >>386 >>389
どれに対するレスなのかまったくワカリマセン。
0392名無しさん＠お腹いっぱい。01/09/27 23:04ID:???
>>390 >>391
(　´,_ゝ｀) あっそー
039338301/09/27 23:05ID:???
$cookie_jar->as_string
でできました
039437701/09/28 02:51ID:AKSYR8.c
>388さん、親切にありがとう。

やっぱり、教えていただいたみたいに、C関数呼び出すしかないのかな～。
んでもありがとう。とりあえず、これで良しとします。
CPANもちょと逝てきます。
0395名無しさん＠お腹いっぱい。01/09/28 07:17ID:WAa6BHU6

$scalar = @array;
だと$scalarには@arrayの長さが代入され、
($scalar) = @array;
だと@arrayに入っている最初の要素が代入されます。

配列変数がどのようなものかは大体理解できました。
でも・・・。

$scalar = localtime;
print "$scalar\n";

とすると
Fri Sep 28 06:14:13 2001
という現在の結果が帰ってきます。

連想配列の場合、$scalarが括弧で括られているかそうでないかで結果が違うの
に、
$scalar = (localtime)[0];
($scalar) = (localtime)[0];
は同じ結果(秒)が帰ってきました。

$scalar = localtime[0];
とすると

この場合は[]にどんな数字を入れても
Thu Jul 13 20:14:04 1978
という結果が帰ってきます。

localtime()って配列関数の一種ではないのでしょうか?
どういう仕組みになっているのか把握できず、混乱しています。

よろしくお願いします。
0396名無しさん＠お腹いっぱい。01/09/28 10:47ID:B/jfCTJo
aとbというファイルがあってaのファイルがロックされているときは
bのファイルに書き込むというのを考えているのですが
aがロックされているとき(またはbのファイル)という定義は
どのようにすればいいのでしょうか？
それともただ単にaファイルに書き込みできずにエラーとなったら
bファイルに書き込むという風にするしかないのでしょうか？
0397JAPU01/09/28 10:59ID:???
use Fcntl qw[:flock];

if(not flock FH, LOCK_EX|LOCK_NB) {
print "ロック中\n"
}

flock は advisory lock なんで、ロックでも操作できます。なので、そういう場合は flock で調べるしか無いです。

LOCK_EX ... exclusive lock
LOCK_NB ... do not block (ロックが成功するまで待たない)
0398396ではないが01/09/28 11:25ID:Qms.AdhU
上の式はFHというファイルがロックされてたらロック中とプリントする
ってこと？
初心者なものでifでこういうの初めてみました。
0399JAPU01/09/28 11:48ID:???
FHというファイルハンドルがロックされていれば「ロック中」と表示します。
040039601/09/28 12:08ID:Aoj3kwsY
>JAPU
ありがとうございます。まさかこんなに早くレスがつくとは思いませんでした。
ifでこんな風にもできるんですね。まだまだ修行がたりないようです。
なかなか使える感じです。
ありがとうございました。
0401名無しさん＠お腹いっぱい。01/09/28 12:48ID:d/jxwhAU
>>395
localtimeは「スカラーコンテキスト」で評価されるとスカラー、
「リストコンテキスト」で評価されるとリストを返すから。
これで前半３つは理解できるはず。

で、最後の localtime[0]は、localtime([0])のカッコ省略形とみなせる。
つまりlocaltimeに [0]という引数を渡しているわけ。
[0]というのは無名配列へのリファレンスなので、
数値として評価すると何かの数値（そのアドレス？）が得られるんでしょう。

実際の[0]の値は↓これで見れるはず。
print [0], "\n"; #[0]をリファレンスとして表示
print [0]+0, "\n"; #強引に数値化して表示
0402名無しさん＠お腹いっぱい。01/09/28 12:58ID:???
ハッシュ変数のキーの数を調べるにはどうすればいいですか？
0403名無しさん＠お腹いっぱい。01/09/28 13:13ID:Aoj3kwsY
>402
keysでいいんじゃない
0404名無しさん＠お腹いっぱい。01/09/28 13:18ID:LKBMQiGk
>JAPU
open(FH, "a") || open(FH, "b")||die "File 'data' Open Error.";
aがダメならbをFHとしてopenとかでも良くない？
0405JAPU01/09/28 13:22ID:???
open(FH, ">a") || open(FH, ">b") || die "File 'data' Open Error.";
ってことですか?
ロックされていても open 自体は成功しますが...
flock はあくまでも advisory lock なんで。
040640401/09/28 13:34ID:LKBMQiGk
ロックされててもopenできるの？
ではロックされてても追加で書き込みとかできるってことですか？
すいません。初心者なもので･･･
■ このスレッドは過去ログ倉庫に格納されています