<?xml version="1.0" encoding="windows-1252"?>
<node id="938695" title="-e on windows giving error" created="2011-11-17 17:51:57" updated="2011-11-17 17:51:57">
<type id="115">
perlquestion</type>
<author id="938311">
Rudolf</author>
<data>
<field name="doctext">
&lt;p&gt;Hello, Im having some trouble understanding the -e test on windows Im on win7 but I know my problem is on all windows. my objective here is to get the drive which my perl script lies in, but each time I preform a test windows gives me an annoying popup saying perl.exe No Disk .. if there is a better method I would appriciate your wisdom! Here is my code: Thank you!&lt;/p&gt;

&lt;code&gt;
sub get_drive{

if(-e 'A:\\extracted'){$drive = "A:";} elsif
(-e 'B:\\extracted'){$drive = "B:";} elsif
(-e 'C:\\extracted'){$drive = "C:";} elsif
(-e 'D:\\extracted'){$drive = "D:";} elsif
(-e 'E:\\extracted'){$drive = "E:";} elsif
(-e 'F:\\extracted'){$drive = "F:";} elsif
(-e 'G:\\extracted'){$drive = "G:";} elsif
(-e "H:\\extracted"){$drive = "H:";} elsif
(-e "I:\\extracted"){$drive = "I:";} elsif
(-e "J:\\extracted"){$drive = "J:";} elsif
(-e "K:\\extracted"){$drive = "K:";} elsif
(-e "L:\\extracted"){$drive = "L:";} elsif
(-e "M:\\extracted"){$drive = "M:";} elsif
(-e "N:\\extracted"){$drive = "N:";} elsif
(-e "O:\\extracted"){$drive = "O:";} elsif
(-e "P:\\extracted"){$drive = "P:";} elsif
(-e "Q:\\extracted"){$drive = "Q:";}

};
&lt;/code&gt;</field>
</data>
</node>
