RE: Cygwin commands are intermittently hanging on Windows

[Derek Pagel <Derek.Pagel@infor.com>]

The script was written using Strawberry Perl with Cygwin in the %PATH% variable. Then the script makes system calls using that Cygwin.


On Mon, 7 Nov 2022 22:06:46 +0000
Derek Pagel wrote:
> I've printed the script below for reference:
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> use strict;
> use Cwd;
> 
> my $TESTDIR = getcwd() . "\\test<file://test>"; my $MKDIRCMD = "mkdir 
> test"; my $TOUCHCMD = 'touch test.txt'; my $CPCMD = 'cp test.txt 
> test2.txt'; my $MVCMD = "mv test.txt " . $TESTDIR . 
> "\\test.txt<file://test.txt>"; my $WHICHCMD = 'which explorer.exe'; my 
> $RMCMD = "rm " . $TESTDIR . "\\test.txt 
> test2.txt<file://test.txt%20test2.txt>";
> my $count = 0;
> my $fh;
> my $LOG = open $fh, '>', 'cygwinTest.log';
> 
> if ( ! -e $TESTDIR ) {
>                 runCMD($MKDIRCMD, 0);
> }
> 
> while ($count < 10000) {
>                 print "Loop $count:\n";
>                 runCMD($TOUCHCMD, $count);
>                 runCMD($CPCMD, $count);
>                 runCMD($MVCMD, $count);
>                 runCMD($WHICHCMD, $count);
>                 runCMD($RMCMD, $count);
>                 $count++;
> }
> 
> sub runCMD {
>                 my $CMD = $_[0];
>                 my $COUNT = $_[1];
>                 my $retCode;
>                 my $startTime;
>                 my $endTime;
>                 my $totalTime;
> 
>                 $startTime = time();
>                 $CMD = "C:\\Windows\\system32\\cmd.exe /c $CMD";
>                 $retCode = system($CMD);
>                 $endTime = time();
>                 $totalTime = $endTime - $startTime;
>                 if ($totalTime > 1 ) {
>                                 print $fh "Loop #$COUNT:\n";
>                                 if ($retCode == 0) {
>                                                 print $fh "It took $totalTime seconds to run [$CMD]\n";
>                                 } else {
>                                                 print $fh "It took $totalTime seconds to unsuccesfully run [$CMD]\n";
>                                 }
>                 }
> }
> 
> close $fh;
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Which script language do you use for this script?
It looks like perl script, however, cygwin perl cannot run this script.

--
Takashi Yano <takashi.yano@nifty.ne.jp>