my @baton = qw(| \ - /);
select undef, undef, undef, .15; # or use Time::HiRes
push @baton, shift @baton; print "$baton[0]\b";
How can I start the twirling baton in Perl and then suspend it when I need to execute a system call to run the shell script in Perl?If I understand your question correctly, which I'm totally unsure about, you may want to read up on $SIG{ALRM}.
In reply to Re: Executing a shell script with progress indicator
by blazar
in thread Executing a shell script with progress indicator
by axl163
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |