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

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

"Perl -> Get File Size"
Сообщение от Dr. Nebula on 16-Июл-04, 13:23  (MSK)
Всем привет! Возник вопрос - как при помощи Perl можно получить размер файла, если файл превышает 4Gb? Хорошо работающая конструкция типа $u = (stat("$ARGV[0]"))[7]; print "$u\n"; работает на небольших файлах, на файле больше 4 гб - выдает например такое число -7294976
	Рекомендовать в FAQ | Cообщить модератору | Наверх

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

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

1. "Perl -> Get File Size"
Сообщение от mirya on 16-Июл-04, 15:05  (MSK)
Проверка на Винде (ХР) дистрибутива ActivePERL 5.8.4b810 показала, что все ок и long'и поддерживаются, так что проблема скорее всего в кривой сборке без поддержки 64бит
	Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Perl -> Get File Size"
Сообщение от ihor on 16-Июл-04, 15:30  (MSK)
напр. использовать Math::BigInt
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "Perl -> Get File Size"
	Сообщение от Dr. Nebula on 16-Июл-04, 15:41  (MSK)
	>напр. использовать Math::BigInt #!/usr/bin/perl -w use Math::BigInt $u = new Math::BigInt((stat("$ARGV[0]"))[7]); $x = Math::BigInt->new((stat("$ARGV[0]"))[7]); print "$u\n"; print "$x\n"; unknown import: -7294976 at /usr/libdata/perl/5.00503/Math/BigInt.pm line 42. BEGIN failed--compilation aborted at ./test.pl line 4.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "Perl -> Get File Size"
	Сообщение от ihor on 16-Июл-04, 15:54  (MSK)
	use bigint; $u = (stat("$ARGV[0]"))[7]; print "$u\n"; ???
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "Perl -> Get File Size"
	Сообщение от Dr. Nebula on 16-Июл-04, 16:19  (MSK)
	>use bigint; > >$u = (stat("$ARGV[0]"))[7]; >print "$u\n"; > >??? Unquoted string "bigint" may clash with future reserved word at /usr/libdata/perl/5.00503/bigint.pm line 169. Unquoted string "bigint" may clash with future reserved word at /usr/libdata/perl/5.00503/bigint.pm line 170. unknown import: :constant lib Calc at /usr/libdata/perl/5.00503/Math/BigInt.pm line 42. BEGIN failed--compilation aborted at ./test.pl line 4.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "Perl -> Get File Size"
	Сообщение от ihor on 16-Июл-04, 16:56  (MSK)
	проблема с перлом. у меня стоит 2 - один системный v.5.00503, второй - для своих скриптов, v.5.8. на v.5.00503 текущая версия Math::BigInt вообще не хочет устанавливаться, т.к. не проходят некоторые тесты. на v.5.8 этот пример отлично работает.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

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

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