Как определить путь к папке Windows?

@neokill · Регистрация: 11.04.2014

Студворк — интернет-сервис помощи студентам

Друзья! Доброго дня. Пытаюсь записать файлы в папку в Windows! Проблема в том, как определить букву диска или путь к папке? В путь записи файлов подставлял системные переменные %SystemRoot%,%WINDIR% %HOMEDRIVE%. Что-то вроде %SystemRoot%/папка/ но вот эти переменные почему то в perl'e не определяются. Подскажите как же решать этот вопрос. Всем спасибо! Берегите себя)

@hobo-mts · 21.05.2014, 12:27

Попробуйте использовать точный регистр переменных, если используете $ENV{var}. У меня на XP SP3 SystemRoot на самом деле SYSTEMROOT.

@neokill · 21.05.2014, 14:36 **[ТС]**

Отсюда новый вопрос)) Путь C:/Windows/папка/ срабатывает. Но SYSTEMROOT возвращает C:\Windows... Т.е. как раз эти слеши не дают выполнить запись))) Выходит C:\Windows/папка/... Есть идеи, друзья?

@hobo-mts · 21.05.2014, 14:48

Так в чём проблема? Замените обратный сэлш на прямой:

Perl
1
(my $ss = $ENV{SYSTEMROOT}) =~ s{\\}{/}; print "$ss\n";

@neokill · 21.05.2014, 16:53 **[ТС]**

спасибо =) вопрос снят!

volodin661 · 22.05.2014, 05:38

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
use File::Spec::Functions;
 
mkdir $folder = catfile( $ENV{'SYSTEMROOT'}, 'eee' );
 
open F, ">", catfile($folder, 'newfile.txt') or die $!;
 
print F  <<EOF;
 
Дорогие друзья,
художественная самодеятельность не нужна,
существует специально написанный модуль для кроссплатформенных манипуляций именами файлов.
 
EOF

@hobo-mts · 22.05.2014, 06:11

Скрипт явно пишется для конкретной платформы. Мне кажется, что гораздо важнее здесь -- учитывать, что в виндовз не учитывается регистр ни в имени переменной окружения, ни в имени файла. А вот ключи хеша -- регистрозависимы.

volodin661 · 22.05.2014, 06:33

послушай, в три простых строчки и абсолютно железно решена проблема ТС
по созданию файла в системном каталоге Windows.

если перенести на другую платформу потребуется всего лишь заменить ключ в %ENV
( на OpenVMS, например, это будет SYS$SYSROOT )
и всё, больше ничего менять не надо.

буквы в environment всегда большие, хоть где

@hobo-mts · 22.05.2014, 06:56

Вот часть вывода команды set у меня:

Code
1
2
3
4
5
6
7
8
9
ComSpec=C:\WINDOWS\system32\cmd.exe
Path=C:\WINDOWS\system32;C:\WINDOWS
ProgramFiles=C:\Program Files
SESSIONNAME=Console
SystemDrive=C:
SystemRoot=C:\WINDOWS
TEMP=p:\temp
TMP=p:\temp
windir=C:\WINDOWS

А вот что говорит Perl из cygwin:

Code
1
2
3
4
5
6
7
8
9
10
11
12
$ perl -e 'print "$_=$ENV{$_}\n" for sort keys %ENV;'
COMSPEC=C:\WINDOWS\system32\cmd.exe
HOMEDRIVE=C:
PROGRAMFILES=C:\Program Files
SYSTEMDRIVE=C:
SYSTEMROOT=C:\WINDOWS
TEMP=/tmp
TERM=xterm
TMP=/tmp
WINDIR=C:\WINDOWS
temp=P:\temp
tmp=P:\temp

Добавлено через 8 минут
А вот что говорит Perl на Linux:

Code
1
2
3
4
PATH=/sbin:/usr/sbin:/bin:/usr/bin
SHELL=/bin/sh
TERM=vt102
poweroutage=yes

volodin661 · 22.05.2014, 07:58

послушай меня внимательно ещё раз:

в моём 1-ом сообщении данного топика
приведён рабочий код на языке программирования Perl.

скопируй его, засунь в файл и запусти на всех виндусах,
которые у тебя есть. если он не будет работать корректно, тогда сообщи мне об этом,
а иначе больше мне по этому поводу не пиши - это моя к тебе общечеловеческая просьба.

Добавлено через 5 минут
ps: я проверял на ActivePerl.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@neokill 0 / 0 / 0 Регистрация: 11.04.2014 Сообщений: 5

	Как определить путь к папке Windows? 21.05.2014, 11:49. Показов 1859. Ответов 9 Метки нет (Все метки) Друзья! Доброго дня. Пытаюсь записать файлы в папку в Windows! Проблема в том, как определить букву диска или путь к папке? В путь записи файлов подставлял системные переменные %SystemRoot%,%WINDIR% %HOMEDRIVE%. Что-то вроде %SystemRoot%/папка/ но вот эти переменные почему то в perl'e не определяются. Подскажите как же решать этот вопрос. Всем спасибо! Берегите себя) 0

@hobo-mts 48 / 22 / 3 Регистрация: 21.06.2013 Сообщений: 92
	21.05.2014, 12:27
	Попробуйте использовать точный регистр переменных, если используете $ENV{var}. У меня на XP SP3 SystemRoot на самом деле SYSTEMROOT. 0

@neokill 0 / 0 / 0 Регистрация: 11.04.2014 Сообщений: 5
	21.05.2014, 14:36 [ТС]
	Отсюда новый вопрос)) Путь C:/Windows/папка/ срабатывает. Но SYSTEMROOT возвращает C:\Windows... Т.е. как раз эти слеши не дают выполнить запись))) Выходит C:\Windows/папка/... Есть идеи, друзья? 0

@neokill 0 / 0 / 0 Регистрация: 11.04.2014 Сообщений: 5
	21.05.2014, 16:53 [ТС]
	спасибо =) вопрос снят! 0

@hobo-mts 48 / 22 / 3 Регистрация: 21.06.2013 Сообщений: 92
	22.05.2014, 06:11
	Скрипт явно пишется для конкретной платформы. Мне кажется, что гораздо важнее здесь -- учитывать, что в виндовз не учитывается регистр ни в имени переменной окружения, ни в имени файла. А вот ключи хеша -- регистрозависимы. 0

volodin661 6686 / 2278 / 347 Регистрация: 10.12.2013 Сообщений: 7,871
	22.05.2014, 06:33
	послушай, в три простых строчки и абсолютно железно решена проблема ТС по созданию файла в системном каталоге Windows. если перенести на другую платформу потребуется всего лишь заменить ключ в %ENV ( на OpenVMS, например, это будет SYS$SYSROOT ) и всё, больше ничего менять не надо. буквы в environment всегда большие, хоть где 0

volodin661 6686 / 2278 / 347 Регистрация: 10.12.2013 Сообщений: 7,871
	22.05.2014, 07:58
	послушай меня внимательно ещё раз: в моём 1-ом сообщении данного топика приведён рабочий код на языке программирования Perl. скопируй его, засунь в файл и запусти на всех виндусах, которые у тебя есть. если он не будет работать корректно, тогда сообщи мне об этом, а иначе больше мне по этому поводу не пиши - это моя к тебе общечеловеческая просьба. Добавлено через 5 минут ps: я проверял на ActivePerl. 0