Security Teams



:::
  Ответ в темуСоздание новой темыСоздание опроса

> 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
PMICQ
Top
nameless
Дата 16.05.2008 - 21:13
Цитировать сообщение
Offline



.:Тень:.
******

Профиль
Группа: -experts-
Сообщений: 1745
Пользователь №: 18
Регистрация: 19.02.2005



Рейтинг:
(90%) XXXXX


Можна вот еще как, криво конечно, но всё таки:

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


--------------------
Мы расправим крылья
PM
Top

Опции темы Ответ в темуСоздание новой темыСоздание опроса