Jeff Westman wrote:
>
> --- "John W. Krahn" <[EMAIL PROTECTED]> wrote:
> > [EMAIL PROTECTED] wrote:
> > >
> >
> open(STATUS,">>status.txt");for($i=0;$i<=98985;$i++){system("process");if(($i%10)==0){print(STATUS"\n\n
> > **** $i iterations over !!*****\n\n")}}close(STATUS);
> >
> > However that is not very readable or maintainable.
>
> I ran this on my system (HP-UX, perl v5.6.1), changed "process" to "date" and
> it ran fine _as-is_. Could it be hosing on the external command here??!
To find out if it is, test the return value from system().
system( 'process' ) == 0 or die "system 'process' failed: $?";
perldoc -f system
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
