Perlでファイルを開くとチェック内容- UNIXおよびLinuxフォーラム

Raynon · ＃1 （**固定リンク**） 2008年8月31日

こんにちはすべて、

私には、以下を実行するには専門家の助けが必要 Perlの。
私は、コードの下ではないが、トン仕事があるようだ。私は専門家の助言を与えることはできますか？

下記の要件は
1 ） @多数のファイルに割り当てられた配列を開きます。にあるファイルは、常に"という名前でソートしている"と注意してください。これらのファイル名の例として、 " false1_sorts " 、 " " false_sorts 、 " " true1_sorts 、 " "等true_sortsしている

開いたファイルに2 ）の内容を検索" 32N6524 " 。もし内容は、 @ arr_xにファイルを追加する別の配列が存在する。ここでは、ファイルが存在し、このコンテンツtrue1_sorts " 、 " " true_sorts

コード：

#!/usr/bin/perl

@FILES = ( *sorts );
print "@FILES ";
print "\n";

foreach $summary_x ( @FILES ) {
        open(FH, '< $summary_x') or die $!;
                while( <FH> ) {
                chomp;      
                if ( /32N6524/ ) {
                       push (@arr_x, $summary_x)
                };
                close FH;
};
};


print "@arr_x ";

期待出力：

false1_sorts false_sorts true1_sorts true_sorts
true1_sorts true_sorts

時代 · ＃2 （**固定リンク**） 2008年8月31日

ワイルドカードを使用するにはしずく < *種> 代わりに *種類必要以上に完全に別の（あなたがメインとして印刷した* ：見てください： globbed種類の変数名ではなく、ファイル名は何かglobbedありません。

Raynon · ＃3 （**固定リンク**） 2008年9月1日

こんにちは時代、

私は追加されています< *種>が、まだこの（@ arr_x印刷" "

声明ではない;トンを印刷する。
お手伝いしましょうか？

コード：

#!/usr/bin/perl

@FILES = ( <*sorts> );
print "@FILES ";
print "\n";

foreach $summary_x ( @FILES ) {
        open(FH, '< $summary_x') or die $!;
                while( <FH> ) {
                chomp;      
                if ( /32N6524/ ) {
                       push (@arr_x, $summary_x)
                };
                close FH;
};
};


print "@arr_x ";

Raynon · ＃4 （**固定リンク**） 2008年9月1日

こんにちは、私は、間違いと知っていると思う。
私は、お見逃しのduoble引用開く声明。

オープン（ FH 、 "< $ summary_x"）または$死ぬ！ ;

Raynon · ＃5 （**固定リンク**） 2008年9月1日

こんにちは時代、

もし私に言葉の例をいくつかの言葉は"私の個人的なFIILE構文はどのような構成と一致する必要がある"となる。
私のコードは、以下を使用するようにはしなかった。トン作業試みた。
お手伝いしましょうか？

コード：

if ( /MY PERSONAL FILE/ ) {
                       push (@arr_x, $summary_x)
                };

ファイルの内容" true_sorts "以下の通りです。
私と一致するようにしたい場合は、用語のようです 〜でない コンテンツの最初の行は、そこでのウォントンすべてに適合すること。

コード：

32N6524

MY PERSONAL FILE

時代 · ＃6 （**固定リンク**） 2008年9月2日

あなたが、あなたはそれから1行を読んだ後、閉鎖されているファイルを閉じ、間違った場所に支柱がある。

それは開幕後のロジックを備える場合は、常に1つ上のレベル深くインデントを表示するには、インデントを支柱で減少し、閉鎖に役立ちます。

コード：

#!/usr/bin/perl

@FILES = ( <*sorts> );
print "@FILES ";
print "\n";

foreach $summary_x ( @FILES ) {
        open(FH, "< $summary_x") or die $!;
        while( <FH> ) {
                chomp;      
                if ( /32N6524/ ) {
                       push (@arr_x, $summary_x);
		       last;
                }
	}
	close FH;
};


print "@arr_x ";

私は、追加 最後の 未成年者の最適化、としても、そうでない場合は、これだけして、適切な場所に移動支柱は、単一引用符を引用符を2倍に、変更やインデントを修正。

その ムシャムシャ食う 必要となるが、表示されないかもしれませんが全体のポイントには、スクリプトを展開するラインchompedになりたい。

それにスペースを詰める上のマッチングの問題ではない。

Raynon · ＃7 （**固定リンク**） 2008年9月2日

こんにちは時代、

Thks多くのアドバイスを！！
今私は自分が間違っている知っている。

その他のUNIXおよびLinuxフォーラムトピックは参考にすること
スレッド	スレッドスターター	フォーラム	返信	最後の投稿
Perlの： filehandleを開くが、後ろから何もしていない	ドラゴン笑顔	シェルプログラミングとスクリプティング	8	2008年8月16日 03:40午前
ls FIFOの内容を印刷する（またはそれ以上）のPerlコマンド	jerardfjay	シェルプログラミングとスクリプティング	1	2006年4月6日 03:01午後
オープニングファイル	saarshad001	UNIXのダミー質問と回答のため	3	2003年11月28日 12:42午後
ファイルを開く	AJA	UNIXのダミー質問と回答のため	4	2003年11月10日 11:25午前
オープニングのPerl	perleo	シェルプログラミングとスクリプティング	2	2002年8月26日 10:41午前

スレッドツール	このスレッドを検索
印刷用バージョンを表示するこのページをメール	このスレッドを検索：高度な検索
表示モード	このスレッド
スイッチリニアモードハイブリッドモードスレッドを切り替えるモード	このスレッド：