#!/usr/bin/perl
use strict;

# split-logfiles

# you don't need to test if it is open
#$isopen = 0;

my $myfile = "/var/tmp/test.log";

# no reason to do this testing
#    unless($isopen and -f $myfile) {

# open the happy file here, but you may want to use >> if
# you need to append rather then overwrite on each run
open MYHAPPYFILE, ">$myfile" or 
    die "Error opening $myfile";

# don't need to test if it is open because we 
# are dying if it isn't
#      $isopen = 1;
#    }

while (my $log_file = <STDIN>) {
    printf MYHAPPYFILE "%s", $log_line;
}
exit 0;
[download]

#!/usr/bin/perl
use strict;

my $myfile = "/var/tmp/test.log";

open MYHAPPYFILE, ">$myfile" or 
    die "Error opening $myfile";

while (my $log_file = <STDIN>) {
    printf MYHAPPYFILE "%s", $log_line;
}

exit 0;
[download]

Are the files completely empty, or is there a blank line? You're overwriting the combined log file, not appending to it, which may be part of the problem. You will also run into trouble if a line evaluates to false. I'd probably write:

open( my $fh, '>>', '/var/tmp/test.log' ) or die "Cannot open file: $!
+\n";
select $fh;
print while <STDIN>;
[download]

That's untested, and it requires Perl 5.6.0 or better.

$ cat my_normal_log_file | ./split-logfiles
[download]

Try closing your ouput file before you exit.

---

Nah! You're thinking of Simon Templar, originally played (on UKTV) by Roger Moore and later by Ian Ogilvy

And the obligatory link follows: Suffering from Buffering

Makeshifts last the longest.

I feel so bright now. I turned off buffering, and it worked just fine. Thanks!