ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Michael Spector                      2:400/506.12   24 Jan 2004  01:13:38
 To : Dmitry Ivanov
 Subject : список логических дисков
 -------------------------------------------------------------------------------- 
 

 .RFC-References: <1442738104@sadok.spb.ru>
 Hello Dmitry!
 
 23 Jan 04 02:24, you wrote to All:
 
  DI>   Подскажите,  как  получить  (под  виндами) список логических дисков,
  DI>   присутствующих в системе? Hе вижу, куда глянуть...
 
 Примерно так можно попробовать :)
 
 $lastdrive = $ENV{"LASTDRIVE"} || 'Z';
 $drives_num = 0;
 foreach ('A' .. $lastdrive)
 {
    $res = `dir $_:`;
    next if ($res =~ /no such drive/i);
    $drives_num ++;
 
 }
 print $drives_num;
 PS: щютка :-]
 
 Michael
 
 --- GoldED/LNX 3.0.1
  * Origin:  ----> Fido - its my life <----  (2:400/506.12)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    список логических дисков   Dmitry Ivanov   23 Jan 2004 03:24:18   список логических дисков   Michael Spector   24 Jan 2004 01:13:38