Perlのスクリプトの問題。何がおかしいのですか？

SkySmart · ＃1 （**固定リンク**） 2009年3月18日

＃！は/ usr / local / binに/perlの

オープン（ MyFileは、 ' ' ） logs_report ;

中（ <MYFILE> ）（

$録音\u003d $ _ ;
ムシャムシャ食う（ $録音） ;
@到着\u003d分割（ / / 、 $録音） ;
録音、 " $印刷\ N "の場合（ $到着[ 12 ] ！〜 / [ OK ]を/ ） ;

オープン（ MYF 、 ' > data.txt ' ） ;

録音、 " $印刷\ N "の場合（ $到着[ 12 ] ！〜 / [ OK ]を/ ） ;
近い（ MYF ） ;

）
近い（ MyFileは） ;

[ OK ]を、ここに私は米国に何してるの私は、ファイルを開いていると私logs_reportがいないのは唯一の行で[ OK ]をgreppingよ。

さて、結果はgrepから私は、私は"何メートルをファイルに書き込みをしようとしている。

どうすればいいの？

これはかなり多く、私はファイルを開いて、努力している、そのファイルから、特定の行を抜く私の特定の行を印刷するファイルの内容を読むと、私はファイルに書いてほしい。どうすればいいの？また、その場合には、ファイルをメールに書かれている、そんなことをするための方法ですが perlの？

matrixmadhan · ＃2 （**固定リンク**） 2009年3月18日

引用：

録音、 " $印刷\ N "の場合（ $到着[ 12 ] ！〜 / [ OK ]を/ ） ;

そのファイルにしては、ストリームへの書き込み

コード：

print MYF $rec,"\n" if ($arr[12]!~/OK/);

pludi · ＃3 （**固定リンク**） 2009年3月18日

コード：

#!/usr/local/bin/perl

open (MYFILE, 'logs_report');
open (MYF, '>data.txt');

while ($rec = <MYFILE>) {
    chomp($rec);
    @arr = split(/ /,$rec);
    if ($arr[12] !~ /OK/) {
        print $rec, "\n";
        print MYF $red, "\n";
    }
}
close (MYF);
close (MYFILE);

これはおそらく何をしたいです。あなたが書いたように、あなたが、プラスを開放し、繰り返しループで終了されるかなりのI /コストまたは集中できるものを見つけるたびにあなたのdata.txtを上書きします。

して、次の時に、それを同封する[コード] [ /コード]タグ（サンセリフのスペース）、読みやすくするための書式を維持するためのリスティングやソース投稿してください。

SkySmart · ＃4 （**固定リンク**） 2009年3月18日

引用：

当初の投稿 pludi

コード：

#!/usr/local/bin/perl

open (MYFILE, 'logs_report');
open (MYF, '>data.txt');

while ($rec = <MYFILE>) {
    chomp($rec);
    @arr = split(/ /,$rec);
    if ($arr[12] !~ /OK/) {
        print $rec, "\n";
        print MYF $red, "\n";
    }
}
close (MYF);
close (MYFILE);

これはおそらく何をしたいです。あなたが書いたように、あなたが、プラスを開放し、繰り返しループで終了されるかなりのI /コストまたは集中できるものを見つけるたびにあなたのdata.txtを上書きします。

して、次の時に、それを同封する[コード] [ /コード]タグ（サンセリフのスペース）、読みやすくするための書式を維持するためのリスティングやソース投稿してください。

ありがとうございました。コードなどしないでごめんね。ウルのコードをどのように電子メールアドレスを設定するには、ファイルをメールにてお送りします知っているコードを含めることが起こるのでしょうか？私は、そのファイルに書かれている意味ですか？あなたの助けや入力大歓迎です。ありがとう

KevinADC · ＃5 （**固定リンク**） 2009年3月18日

私の返事に、他のスレッドで同様のが私がよく読んでいなかったと思う。例えば、そのスレッドから同じデータを仮定。

これは、おそらくより正確に効率的にする必要があります：

コード：

#!/usr/local/bin/perl
use strict;

open (MYFILE, 'logs_report') or die "$!";
open (MYF, '>data.txt') or die "$!";

while (my $rec = <MYFILE>) {
    next if ($rec =~ /STATE: OK/) {
    print MYF $rec;
}
close (MYF);
close (MYFILE);

Pludisコードは、小型タイプミスしていると、している $赤どこにする必要があります $録音。

SkySmart · ＃6 （**固定リンク**） 2009年3月18日

引用：

当初の投稿 KevinADC

私の返事に、他のスレッドで同様のが私がよく読んでいなかったと思う。例えば、そのスレッドから同じデータを仮定。

これは、おそらくより正確に効率的にする必要があります：

コード：

#!/usr/local/bin/perl
use strict;

open (MYFILE, 'logs_report') or die "$!";
open (MYF, '>data.txt') or die "$!";

while (my $rec = <MYFILE>) {
    next if ($rec =~ /STATE: OK/) {
    print MYF $rec;
}
close (MYF);
close (MYFILE);

Pludisコードは、小型タイプミスしていると、している $赤どこにする必要があります $録音。

そう私は、他のスレッドのご投稿を読むでした。私はそれを使うに行ったときの反応を得られなかったためだ。私は、私は、太字の行の問題だったと思う。

私はあなたの試してみますと、このスクリプトを参照してください場合は、何かを出力します。おかげで100万。

KevinADC · ＃7 （**固定リンク**） 2009年3月18日

引用：

当初の投稿 SkySmart

そう私は、他のスレッドのご投稿を読むでした。私はそれを使うに行ったときの反応を得られなかったためだ。私は、私は、太字の行の問題だったと思う。

私はあなたの試してみますと、このスクリプトを参照してください場合は、何かを出力します。おかげで100万。

これは、パターンを見つけることはまったく想定され 状況： [ OK ]を場合は、パターンが違うのに応じて変更する必要があります。

その他のUNIXおよびLinuxフォーラムトピックは参考にすること
スレッド	スレッドスターター	フォーラム	返信	最後の投稿
Perlの発行	raj001	シェルプログラミングとスクリプティング	23	2009年1月30日 06:12午前
Perlのスクリプトを発行-ヘルプしてください*ありがとう！	jroberson	シェルプログラミングとスクリプティング	8	2008年11月3日 03:47午前
perlの問題..	zedex	シェルプログラミングとスクリプティング	3	2008年9月14日 12:22午前
このスクリプトをどのように間違っているか？	heprox	シェルプログラミングとスクリプティング	8	2006年11月16日 05:43午前
Perlの正規表現のエラーは、何が間違っているカント理解	umen	シェルプログラミングとスクリプティング	4	2006年10月19日 11:35午前

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