![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
PERLの勉強をつい最近はじめました。
参考にしている本のどこを探してもみつからなかったので、質問させていただきます。
sub lock{
$c = 0;
while (-f $lockfile) {
$c++;
if( $c >= 5 ){
print 'BUSY 少し時間を置いてもう一度登録してください。',"\n";
exit;
}
sleep(1);
}
open(LOCK,">$lockfile");
close(LOCK);
というサブルーチンがありまして、分からないのはwhile構文の条件の記述です。
(-f $lockfile) とは、-fとは、どういう意味なのでしょうか。
if(! -f $mail01 ){
open(OUT,">$mail01");
close(OUT);
というところにもありました。
どうぞ教えてやってください。超初心者なので、どうぞよろしくお願いします。
No.1ベストアンサー
- 回答日時:
-f はファイル演算子の一つで、そのファイルが通常ファイルであれば真を返します。
ですので、while (-f $lockfile) は、
変数$lockfileに格納された名前のファイルが存在している間、ループすることになります。
ファイル演算子は非常に便利です。他にも以下のようなファイル演算子があります。
-r: 読み込み可能か否か
-w: 書き込み可能か否か
-x: 実行可能か否か
-o: 自分のものか否か
-R: 実uid/gidで読み込み可能か否か
-W: 実uid/gidで書き込み可能か否か
-X: 実uid/gidで実行可能か否か
-O: 実uidのものか否か
-e: 存在すれば
-z: サイズが0か否か
-s: サイズが0でなければ(ファイルサイズを返す)
-f: 通常ファイルか否か
-d: ディレクトリか否か
-l: シンボリックリンクか否か
-p: 名前付きパイプか否か
-S: ソケットか否か
-b: ブロック型スペシャルファイルか否か
-c: キャラクタ型スペシャルファイルか否か
-u: setuidビットが立っていれば
-g: setgifビットが立っていれば
-k: stickyビットが立っていれば
-t: ファイルハンドルが tty としてオープンされていれば
-T: ファイルがテキストファイルか否か
-B: ファイルがバイナリファイルか否か
超初歩的な質問に答えていただきありがとうございました。私が参考にしている本に「ファイル演算子」についての記述はありませんでした。教えていただいた「ファイル演算子」でページ検索して今勉強しているところです。大変助かりました。
また初歩的な質問をすると思いますが、また教えてやってください。m(_._)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- Visual Basic(VBA) VBAの参照先のファイル名をセルに書いて代入したい 2 2022/04/04 13:42
- Java Java 南京錠 2 2023/02/04 11:46
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Visual Basic(VBA) ExcelVBA No.を自動連番で設定をしながらデータ入力をしたい 2 2022/08/03 18:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Perl perl このテキストファイルを簡単に配列に入れるには? 2 2022/04/27 20:24
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- C言語・C++・C# c言語の問題の説明、各所ごとに 5 2023/07/26 11:03
- Visual Basic(VBA) 指定文字を太字にするVBAを別シートのセルを指定する構文(改良について) 6 2022/08/27 22:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Perl言語について。
-
テキストファイルで提出とは?
-
INDIRECT 横に再度抽出したい
-
perlをバージョンアップしたら...
-
Perl の外部モジュールの利用方法
-
画像が表示でnull; this.src
-
perl LWPでURLにアクセスした時...
-
perlのgrepでmyを付けた場合と...
-
ファイルをディレクトリ分配の...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
Perlのエラーについてご教授く...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
bashスクリプト
-
ファイルアイコンの左下に緑の□...
-
perlプログラミング 空白行削除
-
perlでリテラル値はメモリにど...
-
perlで2次元配列をサブルーチ...
-
Perlで時間の計算
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
fopenでディレクトリ内の全ファ...
-
ファイルロックの解除方法
-
TSVファイルを読み込んでCSV形...
-
[perl] perlで書き込み中に、PC...
-
Cookieが保存できない。
-
最新のファイルのみ検索
-
perlをデスクトップのショート...
-
flockについて
-
perlでCSV形式ファイルのア...
-
ファイルの結合
-
unixでのファイルロックの方法...
-
CGI のモジュールをつかってフ...
-
ファイルがオープンできない
-
ファイルディスクリプタとは?
-
file_exists関数について
-
1行がやたら長いテキストをバッ...
-
ファイルの存在確認をしたい
-
HTMLの中にCGIファイルリンク
-
perl の printでのファイルへの...
-
Perl 処理速度について
おすすめ情報