|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Gots 2:5020/400 04 Feb 2004 14:45:46
To : All
Subject : Определение версии ОС
--------------------------------------------------------------------------------
Добрый день! Товарищи! Укажите на путь истинный!
Сразу же прошу прощение за то, что отослал это сообщение и в ru.apache ! Hе
успею до конца недели сервер на ноги поставить - снесут башку...
Задача ниженаписанного скрипта состоит в том, чтобы считать версию
ОС, обрезать выражение для сравнения с образцами в переменных $a, $b, $c и
$d и потом выполнить if, elsif
или else.
Hа WinNT (http://127.0.0.1) всё работает, а вот на остальных что-то не
выполняются комманды удаления папок и
версия ОС не считывается в указаный файл... Где я намудрил?
#---------------------------------------
# [...] скрипт
#---------------------------------------
chdir ("c:\\Apache\\htdocs");
$a="Windows NT";
$b="Windows XP";
$c="Windows 98";
$d="Windows 20";
system('ver > winversion');
$file="winversion";
open (DH1, "c:\\Apache\\htdocs\\$file") or die $!;
$e = join("",<DH1>);
$e = substr ($e, 1, 10);
if ($e eq $a)
{
print BATCHFILE "del \/F \/S a:mkdisk$$.bat \n";
print BATCHFILE "rd \/S c:\\TmpUltra \n";
print BATCHFILE "pause \n";
}
elsif ($e eq $b)
{
print BATCHFILE "del \/F \/S a:mkdisk$$.bat \n";
print BATCHFILE "rd \/S c:\\TmpUltra \n";
print BATCHFILE "pause \n";
}
elsif ($e eq $c)
{
print BATCHFILE "deltree a:mkdisk$$.bat \n";
print BATCHFILE "deltree c:\\TmpUltra \n";
print BATCHFILE "pause \n";
}
elsif ($e eq $d)
{
print BATCHFILE "del \/F \/S a:mkdisk$$.bat \n";
print BATCHFILE "rd \/S c:\\TmpUltra \n";
print BATCHFILE "pause \n";
}
else
{
print BATCHFILE "echo -----------Вы используете другую
ОС-----------\n\n\n";
}
close (DH1);
#---------------------------------------
# Скрипт продолжение...
#---------------------------------------
Спасибо за помощь и совет!
Буду должен, как земля колхозу!
--- ifmail v.2.15dev5.3
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
