[STNC] -> perl'овые вопросы

STNC главная

Главная

Помощь

Поиск

Участники Отправка SMS

Календарь

Файлы

Здравствуйте Гость ( Вход | Регистрация )

Выслать повторно письмо для активации

[STNC] -> Программирование -> Скрипты: PHP, Perl, Python

:::

perl'овые вопросы, скрипты под win

Подписка на тему | Сообщить другу | Версия для печати

Dimon

Дата 16.05.2008 - 10:45

Offline

Editors

Профиль
Группа: -editors-
Сообщений: 446
Пользователь №: 17
Регистрация: 18.02.2005

Рейтинг:
(60%) XXX--

1. Как получить статистику (в частности интересует время создания директории) по директориям? Делаю

Код

opendir (DIR,$ARGV[0]) or die "Cannot open directory $ARGV[0]";;
@DIRLIST=readdir (DIR);
foreach $dir (@DIRLIST)
{
($dev, $ino, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat ($dir);
}

ничего не заносит в переменные. ОС 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 - массив имен Опять же существует бок с кириличискими именами, без понятия как его решить =\ -------------------- Мы расправим крылья

« Предыдущая тема | Скрипты: PHP, Perl, Python | Следующая тема »