perlの書き方について初歩的な質問なのですが、
ファイルの中から「特定の文字列」を検索して「特定の文字列」が、無い場合に「特定の文字列」を書き足すプログラムを書きたいのですが、どうしてもうまくいきません。
すでに書かれているものまで出力されてしまうのを
書かれている物は出力しないようにしたいです。
現状のソースの一部です。
#K_tempからshiを検索/無ければK_tempにshiを追記。
open KT,"<../area/$ken/k_temp.dat";
while(<KT>){
my $kt = $_;
if($kt eq $shi){
$um = "ari";
}
}
close KT;
if($um ne "ari"){
open KTE,">>../area/$ken/k_temp.dat";
print KTE "$shi\n";
close KTE;
$um = "";
}
宜しくお願いします。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
みんなの回答
-
ootatmt
満足50pt
後半部分を以下のように変えてみてはいかがですか。
if($um ne "ari"){
open KTE,">>../area/$ken/k_temp.dat";
print KTE "$shi\n";
close KTE;
} else {
$um = "";
}
-
mtx50r
-
- その他の回答を読む
mtx50r
この質問へのコメント
質問の情報
- 登録日時
- 2007-01-28 00:34:46
- 終了日時
- 2007-01-28 00:59:43
- 回答条件
- 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
3
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者21
-
内定してほしいポケモンはいますか？匿名質問者