how do i parse multiple files and write all of the results into single file

[my_perl]

I have number of files all named in format [e-mail]
How do i parse all of them and write result into one output file. Thanks

[Transient]

my @files = glob( '2005*@*.log' );

die "No files found\n" unless @files;

open(OUTPUT, ">output" ) or die "Unable to open output\n$!\n";

foreach my $file (@files) {
  open( MYFILE, $file ) or die "Unable to open $file\n$!\n";
  while (<MYFILE>) {
    # parse
    print OUTPUT $parsed_output;
  }
  close (MYFILE) or die "Unable to properly close $file\n$!\n";
}

close(OUTPUT);

[QM]

Transient did a great job giving a generally safe and applicable answer, though a bit wordy for my tastes. Pass the filename wildcard on the command line, and redirect STDOUT:

#@ARGV = glob( @ARGV ); # needed for DOS
while (<>)
{
  s/match this/replace it with this/;
  print;
}

[my_perl]

THank you very much :)

[halley]

How to ask questions the smart way.

[Grygonos]

You need to show some effort. Based on the two questions you have posted recently.. I cannot tell that you have ever coded one line of Perl in your life. Show us what you have tried.

Also, a plea to other monks. Stop doing people's work for them. This site (to me anyhow) is about learning and self-betterment in regards to Perl. Answering someone's question in that fashion when they have shown zero effort does the OP no good.

---

Grygonos

[my_perl]

I am real beginner, and i really appreciate this forum, because people answer your questions without any prejudice, and whichever level they are at. It is hard for me to show you my code, because i am trying to do something for work, and i don't think that would be proper. I would like to thank one more time to all people that put their time and answered my questions, without judging. As you said this site for you means one thing, for them obviously other, they are willing to help.