
STNC главная |
![]() ![]() ![]() ![]() ![]() ![]() |
Здравствуйте Гость ( Вход | Регистрация ) | Выслать повторно письмо для активации |
![]() ![]() ![]() |
Dimon |
![]() |
||
Offline![]() Editors ![]() ![]() ![]() ![]() Профиль Группа: -editors- Сообщений: 446 Пользователь №: 17 Регистрация: 18.02.2005 Рейтинг: (60%) ![]() ![]() |
1. Как получить статистику (в частности интересует время создания директории) по директориям? Делаю
ничего не заносит в переменные. ОС W2K, W2K3 2. В какой кодировке обрабатывает W2K, W2K3 файловые пути? Ввожу в качестве параметра командной строки путь, содержащий кириллицу и в итоге - "зюки". Перебрал кодировки от iso-8859-1 до юникода - не перекодирует нормально: $arg1=encode("iso-8859-1",$ARGV[0]); ЗЫЖ perl-5.8.7 в составе ActiveState Perl. -------------------- Dmitry Panoff aka Dimon
Registered Linux user N330143 2:465/213.86@Fidonet I can read OpenOffice.org. documents |
||
nameless |
Дата 16.05.2008 - 21:13
|
Offline![]() .:Тень:. ![]() ![]() ![]() ![]() ![]() ![]() Профиль Группа: -experts- Сообщений: 1745 Пользователь №: 18 Регистрация: 19.02.2005 Рейтинг: (90%) ![]() ![]() |
Можна вот еще как, криво конечно, но всё таки:
my $line = `dir`; my @dates = $line =~ m!\n([0-9]{2}\.[0-9]{2}\.[0-9]{4} [0-9]{2}:[0-9]{2}) <DIR>!ig; my @names = $line =~ m!<DIR> (.+[^\n]\n)!g; @dates - массив дат @names - массив имен Опять же существует бок с кириличискими именами, без понятия как его решить =\ -------------------- Мы расправим крылья
|
![]() |
![]() ![]() ![]() |
|