i have a folder called 'error' and in that, i have error log
files which are generated by the build,
now i want to findout the string 'error' from each log
file and that error has to be copied into the another file
called 'analysis'.
how do you do this in perl?

Answers were Sorted based on User's Feedback



i have a folder called 'error' and in that, i have error log files which are generated by..

Answer / vipul dalwala

# Correction to my above post

$infile = 'errorlog.txt';
$outfile = 'analysys.txt';

open(INFILE,"$infile") || die "Unable to Open $infile-$!";
open(OUTFILE,">$outfile") || die "Unable to Open $outfile-
$!";

while ( <INFILE> ) {
print OUTFILE $_ if (/error/);
}

close INFILE;
close OUTFILE;

Is This Answer Correct ?    6 Yes 1 No

i have a folder called 'error' and in that, i have error log files which are generated by..

Answer / prabhakaran m

## Go to that Directory
my $file_output = "output";

open(OUTFILEHANDLE,">$file_output") || die "Unable to open
the file : $file_output";

foreach my $input_file (`ls -1`) {
open(INFILEHANDLE,"$input_file") || die "Unable to
open the file : $input_file";
while (<INFILEHANDLE>) {
print OUTFILEHANDLE $_ if (/print header/);
}
}

Is This Answer Correct ?    4 Yes 0 No

i have a folder called 'error' and in that, i have error log files which are generated by..

Answer / jyothsna

grep error ~/error/errorlog.txt >> ~/main/analysis.txt

Is This Answer Correct ?    4 Yes 1 No

i have a folder called 'error' and in that, i have error log files which are generated by..

Answer / prabhath kota

We can do it in a simple way through command line with the
use of grep functionality without writing a program for that.

Suppose your log files(err.log, err_others.log, ......) are
present in "logs" folder.

1) Go to that path first
2) logs]# grep -ir 'error' . > result.txt
(-i for ignore case, -r for recursive search)
3) Observe that, it will grep all the places where ever
'error' is present and keep it in result.txt
4) If you just want the file names alone which contains 'error'
logs]# grep -irl 'error' . > result.txt
(-i for ignore case, -r for recursive search,
-l for listing the files)

Is This Answer Correct ?    1 Yes 0 No

i have a folder called 'error' and in that, i have error log files which are generated by..

Answer / vipul dalwala

$infile = 'errorlog.txt';
$outfile = 'analysys.txt';

open(INFILE,$infile) || die "Unable to Open $infile-$!";
open(OUTFILE,$outfile) || die "Unable to Open $outfile-$!";

while ( <INFILE> ) {
print OUTFILE $_ if (/error/);
}

close INFILE;
close OUTFILE;

Is This Answer Correct ?    2 Yes 2 No

Post New Answer

More CGI Perl Interview Questions

what are the two ways to get private values inside a subroutine or block?

0 Answers  


What does read () command do?

0 Answers  


What is the peculiarity of returning values by subroutines in perl?

0 Answers  


What is “grep” function in perl?

0 Answers  


What arguments do you frequently use for the Perl interpreter and what do they mean?

4 Answers  


What does undef function in perl?

0 Answers  


What are perl strings?

0 Answers  


What does perl do in linux?

0 Answers  


Which feature of perl provides code reusability?

0 Answers  


What is the difference between perl array and perl hash?

0 Answers  


What is the difference between for & foreach, exec & system?

9 Answers   Photon, Wipro,


Try pattern matching for the following: 1) 10.111.23.11 2) /root/abc/cde/fgg/ac.xml --> Get file name without extention. 3) /root/abc/ac.xml/fgg/ac.xml --> Get file name without extention. 4) What does "DIE" meant in PERL? 5) chomp 6) "This is saturday" --> Print the weekday number. 7) 11-2-2009 --> Print the name of the month. 8) Reverse the string without using func in C.

2 Answers  


Categories