obscurifer
Technical User
I needed to run the Windows 98 EXTRACT utility over all of the Windows 98 distribution cabfiles so I could find a particular file inside the cabs. I wrote a script that captured the filename of all of the cabs on the Windows 98SE CD and used the backtick operator to launch EXTRACT on each filename.
I consistently caused Windows to bluescreen. When I ran the same program on WinNT 4, I got no errors, but I had forgotten something so I got no output. I fixed my output problem on WinNT, and my program worked.
So, my question... Has anyone else seen Perl's backtick operator cause Windows 98 to crash and burn? If so, were you able to fix the problem? Please note that I got the same problem in Win98 with both the ActiveState Perl and the Cygwin Perl.
Below is the final version of the program. O: is my CD, and the C:\temp directory does exist.
========
open OUTFILE, ">>c:/temp/cablistings.txt" or die "can't open output: $!";
while(defined($filename = glob("o:/win98/*cab"
)) {
$thefile = join '\\', split(/\//,$filename);
$outputstring = `o:\\win98\\extract.exe /D $thefile`;
print OUTFILE $outputstring;
print "$thefile\n";
}
close OUTFILE;
========
I consistently caused Windows to bluescreen. When I ran the same program on WinNT 4, I got no errors, but I had forgotten something so I got no output. I fixed my output problem on WinNT, and my program worked.
So, my question... Has anyone else seen Perl's backtick operator cause Windows 98 to crash and burn? If so, were you able to fix the problem? Please note that I got the same problem in Win98 with both the ActiveState Perl and the Cygwin Perl.
Below is the final version of the program. O: is my CD, and the C:\temp directory does exist.
========
open OUTFILE, ">>c:/temp/cablistings.txt" or die "can't open output: $!";
while(defined($filename = glob("o:/win98/*cab"

$thefile = join '\\', split(/\//,$filename);
$outputstring = `o:\\win98\\extract.exe /D $thefile`;
print OUTFILE $outputstring;
print "$thefile\n";
}
close OUTFILE;
========