Perlskript fråga. Vad gör jag för fel?

SkySmart · #1 (**permalänk**) 03-18-2009

#! / usr / local / bin /perl

open (minfil, 'logs_report');

while (<MYFILE>) (

$ rec \u003d $ _;
chomp ($ rec);
@ arr \u003d split (/ / $ SR);
print $ rec, "\ n" if ($ arr [12]! ~ / OK /);

open (Myf, '> data.txt');

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

)
close (minfil);

Ok, här är vad jag försöker u. Jag är öppna filen logs_report och jag är grepping endast rader som INTE har OK i den.

Nu, ett resultat jag får från den grep är vad jag "Jag försöker att skriva till en fil.

Hur kan jag göra det?

så ganska mycket, jag försöker öppna en fil, läsa innehållet i filen, dra ut vissa linjer från den filen, och vissa linjer som jag skriver ut, jag vill skriva den till en fil. Hur kan jag göra det? också, om jag vill skicka filen som skrivs ut till, finns det något sätt att göra det i perl?

matrixmadhan · #2 (**permalänk**) 03-18-2009

Citat:

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

skriva dem till filen och inte strömmen

Kod:

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

pludi · #3 (**permalänk**) 03-18-2009

Kod:

#!/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);

Detta är förmodligen vad du vill. Sättet du skrev det, skulle du skriva din data.txt varje gång du hittar något, plus att öppna och stänga flera gånger i en slinga kan vara ganska I / O kostnadsintensiv.

Och nästa gång du skickar listor eller källa, omgärda den med [code] [/ code] taggar (sans utrymmen), för att bevara formatering för läsbarhet.

SkySmart · #4 (**permalänk**) 03-18-2009

Citat:

Ursprungligen postat av pludi

Kod:

#!/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);

Detta är förmodligen vad du vill. Sättet du skrev det, skulle du skriva din data.txt varje gång du hittar något, plus att öppna och stänga flera gånger i en slinga kan vara ganska I / O kostnadsintensiv.

Och nästa gång du skickar listor eller källa, omgärda den med [code] [/ code] taggar (sans utrymmen), för att bevara formatering för läsbarhet.

tack. synd att inte inkludera de koder. skulle du råkar veta hur man inkludera en kod i ur registret som e-filen till en rad e-postadresser? Jag menar den fil som är skriven på? din hjälp eller bidrag är mycket uppskattad. tack

KevinADC · #5 (**permalänk**) 03-18-2009

Liknar mitt svar i din andra tråd som jag tror att du inte läst. Förutsätter samma exempel uppgifter från den tråden.

Detta bör bli effektivare och kanske mer korrekt:

Kod:

#!/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 nummer har ett litet stavfel, har det $ rött där det bör vara $ rec.

SkySmart · #6 (**permalänk**) 03-18-2009

Citat:

Ursprungligen postat av KevinADC

Liknar mitt svar i din andra tråd som jag tror att du inte läst. Förutsätter samma exempel uppgifter från den tråden.

Detta bör bli effektivare och kanske mer korrekt:

Kod:

#!/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 nummer har ett litet stavfel, har det $ rött där det bör vara $ rec.

ja jag har läst ditt inlägg i den andra tråden. När jag åkte för att använda det jag inte får något svar tillbaka. Jag tror att problemet låg i den linje som i fetstil.

Jag ska försöka skriptet till dig och se om det resultat något. Tusen tack.

KevinADC · #7 (**permalänk**) 03-18-2009

Citat:

Ursprungligen postat av SkySmart

ja jag har läst ditt inlägg i den andra tråden. När jag åkte för att använda det jag inte får något svar tillbaka. Jag tror att problemet låg i den linje som i fetstil.

Jag ska försöka skriptet till dig och se om det resultat något. Tusen tack.

Det gör antar att mönstret för att hitta just STATE: OKOm mönstret är olika måste du ändra detta.

Mer UNIX och Linux Forum Ämnen Du kan hitta Helpful
Tråd	Thread Starter	Forum	Svar	Senaste Inlägg
Perl Utgåva	raj001	Shell-programmering och Skript	23	01-30-2009 06:12
Perl Script Utgåva - Snälla Hjälp * Tack!	jroberson	Shell-programmering och Skript	8	11-03-2008 03:47
perl fråga ..	zedex	Shell-programmering och Skript	3	09-13-2008 11:22
Vad är det för fel med detta script?	heprox	Shell-programmering och Skript	8	11-16-2006 05:43
perl regexp fel, jag skränande förstå vad som är fel	umen	Shell-programmering och Skript	4	10-19-2006 10:35

Thread Tools	Sök i denna tråd
Visa Utskriftsversion Mejla den här sidan	Sök i denna tråd: Avancerad sökning
Visningslägen	Betygsätt denna tråd
Switch to Linear Mode Hybridläge Switch to Gängade Mode	Betygsätt denna tråd: