форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы WEB технологии (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Как узнать время создания файла в Perl?"
Сообщение от lex on 25-Дек-02, 14:20  (MSK)
Подскажите пожалуйста как узнать время создания файла в Perl?
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: Как узнать время создания файла в Perl?"
Сообщение от konst on 25-Дек-02, 14:43  (MSK)
>Подскажите пожалуйста как узнать время создания файла в Perl? perldoc -f stat
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "RE: Как узнать время создания файла в Perl?"
	Сообщение от lex on 25-Дек-02, 15:38  (MSK)
	>>Подскажите пожалуйста как узнать время создания файла в Perl? >perldoc -f stat Так stat выдает что-то типа 1046897564, a как из секунд в нормальный формат перевести, что отдельную программу писать?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "RE: Как узнать время создания файла в Perl?"
	Сообщение от konst on 25-Дек-02, 17:09  (MSK)
	>>>Подскажите пожалуйста как узнать время создания файла в Perl? >>perldoc -f stat >Так stat выдает что-то типа 1046897564, a как из секунд в нормальный >формат перевести, что отдельную программу писать? perldoc -f localtime ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks)  = stat($filename); ===========     #0     1       2        3         4        5 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); ==== @time = localtime($ctime);#ctime from stat(); $year = 1900 + $time[5]; $month = 1+ $time[4]; $day = $time[3];
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "RE: Как узнать время создания файла в Perl?"
	Сообщение от lex on 26-Дек-02, 06:22  (MSK)
	Большущее спасибо! Чесно говоря даже и не ожидал так подробно все получить. Еще раз спасибо.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

5. "RE: Как узнать время создания файла в Perl?"
Сообщение от capsDlock on 27-Дек-02, 08:37  (MSK)
>Подскажите пожалуйста как узнать время создания файла в Perl? #$filename - имя файла #$mtime - время создания $mtime = (stat $filename)[9]; $mtime =~s/^(\d+)/localtime($1)/e;
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "RE: Как узнать время создания файла в Perl?"
	Сообщение от konst on 27-Дек-02, 18:06  (MSK)
	>>Подскажите пожалуйста как узнать время создания файла в Perl? > >#$filename - имя файла >#$mtime - время создания >$mtime = (stat $filename)[9]; >$mtime =~s/^(\d+)/localtime($1)/e; === + Надо иметь ввиду, что mtime - время last modified а время создания - неопределимое понятие
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	7. "RE: Как узнать время создания файла в Perl?"
	Сообщение от Шанхай on 30-Сен-03, 09:22  (MSK)
	Сделал всё как рекомендовали. Результат: Thu Jan  1 03:00:01 1970029820897 Хотя файл создан полчаса назад. :( функция stat "родная"???
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	8. "RE: Как узнать время создания файла в Perl?"
	Сообщение от Шанхай on 30-Сен-03, 09:41  (MSK)
	Сделал всё как рекомендовали. Результат: Thu Jan  1 03:00:01 1970029820897 Хотя файл создан полчаса назад. :( функция stat "родная"???
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	9. "RE: Как узнать время создания файла в Perl?"
	Сообщение от konst on 30-Сен-03, 12:17  (MSK)
	>Сделал всё как рекомендовали. Результат: Thu Jan  1 03:00:01 1970029820897 >Хотя файл создан полчаса назад. :( > >функция stat "родная"??? Как ты умудрился получить такой результат? Что именно ты делал? Может быть у тебя "особая" файловая система - и другой порядок полей возвращаемых stat()? FROM PERLDOC   Typically used as follows:                    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,                       $atime,$mtime,$ctime,$blksize,$blocks)                           = stat($filename);                Not all fields are supported on all filesystem                types. =========================
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	10. "RE: Как узнать время создания файла в Perl?"
	Сообщение от Шанхай on 30-Сен-03, 12:32  (MSK)
	>>Сделал всё как рекомендовали. Результат: Thu Jan  1 03:00:01 1970029820897 >Как ты умудрился получить такой результат? >Что именно ты делал? да вот всё вышесказанное и сделал. :( >Может быть у тебя "особая" файловая система - и другой порядок полей >возвращаемых stat()? freebsd >FROM PERLDOC читал, читал... вот и я думаю что она "родная" Но почему время тогда такое?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	11. "RE: Как узнать время создания файла в Perl?"
	Сообщение от konst on 30-Сен-03, 13:17  (MSK)
	>>>Сделал всё как рекомендовали. Результат: Thu Jan  1 03:00:01 1970029820897 > >>Как ты умудрился получить такой результат? >>Что именно ты делал? >да вот всё вышесказанное и сделал. :( > Выше были даны 2 варианта (полный и краткий). Использовать что-то одно. Достаточно # 1-st $mtime = (stat $filename)[9]; # $mtime =  кол-во секунд # 2-nd $mtime =~s/^(\d+)/localtime($1)/e; print "$filename = $mtime"\n; Твой результат означает, что  у тебя $mtime == 0 (после 1-st этапа)
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.