my $logdir = "piperead.$str.log"; open LOG, ">$logdir"; eval { open WP, '-|', "/apps/mysql/bin/mysql -hhost -ppasswd -uhost - +D mysearch_retention -q -e 'select entry_week, week_num, cbid,live, s +earching, entry_week_total, tot_search, ta, part from mysearch_part_t +rack' "; open RP1, '|-', "perl bin/retention_mywebsearch.pl " or die " +can't fork retention_mywebsearch.pl -$! \n"; open RP2, '|-', "perl report.pl" or die "can't fork report2.p +l -$! \n"; open RP3, '|-', "perl bin/retention_by_product_n2f.pl 1>/dev/ +null " or die "can't fork retention_mywebsearch.pl -$! \n"; open RP4, '|-', "perl bin/retention_by_product.pl 1>/dev/null + " or die "can't fork retention_mywebsearch.pl -$! \n"; open RP5, '|-', "perl bin/retention_mywebsearch_part.pl 1>/de +v/null" or die "can't fork retention_mywebsearch.pl -$! \n"; open RP6, '|-', "perl bin/retention_mywebsearch_specific_trac +k.pl 1>/dev/null" or die "can't fork retention_mywebsearch.pl -$! \n" +; }; if ( $@ ) { print LOG $@; print LOG "\n"; close LOG; exit 1; } #skip the header; my $header = <WP>; while (<WP>){ print RP1 $_; print RP2 $_; print RP3 $_; print RP4 $_; print RP5 $_; print RP6 $_; } close WP; close RP1; close RP2; close RP3; close RP4; close RP5; close RP6; close LOG;
In reply to Re^2: pipes don't work from cron
by vman123
in thread pipes don't work from cron
by vman123
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |