Interested to Buy Any Domain ? << Click Here >> for more details...
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?
- 5 Answers
- 9980 Views
- HP, I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
What are stdin, stdout and stderr?
What does redo statement do in perl?
What is the purpose of redo statement?
How to add elements in a hash in perl?
Explain string comparison operators in perl.
What does perl do in linux?
How interpreter is used in perl?
What are the reasons that cookie server can’t handle multiple connections?
package MYCALC; use Exporter; our @EXPORT = (); our @ISA = qw(Exporter); our @EXPORT_OK = qw(addition multi); our %EXPORT_TAGS = (DEFAULT => [qw(&addition)],Both => [qw(&addition & +multi)]); sub addition { return $_[0] + $_[1]; } sub multi { return $_[0] * $_[1]; } 1; Program: use strict; use warnings; my @list = qw (2 2); use Module qw(:DEFAULT); print addition(@list),"\n"; Above coding is my module MYCALC and the program which using this module, I have not exported any function using @EXPORT, but I have used the DEFAULT in %EXPORT_TAGS with the function addition, when I call this function from the main it says the error as,
Explain grooving and shortening of arrays and splicing of arrays?
Explain ivalue in perl?
What does `$result = f() .. g()' really return?
List the prefix dereferencer in Perl.
What $! In perl?
How does polymorphism work in perl?
