VPF::Width & height - Форум программистов

-exp-

Дата 20.2.2005, 10:22 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

1. Как узнать width & height картинки в перл?..
2. И как узнать размер файла?

Заранее благодарен...

Ramirez

Дата 20.2.2005, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 18.1.2005
Где: Moscow, ExUSSR

Репутация: нет
Всего: 5

1. Например возпользоваться библиотекой Image::Size (search.cpan.org) Если нужно больше функий работы с графикой, то есть GD/ImageMagick.

Код


use Image::Size;
($image_x, $image_y) = imgsize("image.gif");

2. Вся информация о файле:

Код


my $filename = "/path/to/file";
($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($filename);

Это сообщение отредактировал(а) Ramirez - 20.2.2005, 19:19

GoodBoy

Дата 21.2.2005, 14:13 (ссылка)

(нет голосов)

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: нет
Всего: 83

Цитата(Ramirez @ 20.2.2005, 19:13)

Вся информация о файле:

Ну это немного из другой оперы!!! :-)))))

--------------------

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

korob2001

Дата 21.2.2005, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Цитата

2. И как узнать размер файла?

Код


#!/usr/bin/perl -w
use strict;
my $file = "WinPlayer.exe";
# получаем размер в байтах
my $size = ( stat( $file ) )[7];
# переводим в килобайты
$size /= 1024;
print $size, "\n";

Удачи

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Ramirez

Дата 22.2.2005, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 18.1.2005
Где: Moscow, ExUSSR

Репутация: нет
Всего: 5

Цитата(GoodBoy @ 21.2.2005, 14:13)

Ну это немного из другой оперы!!! :-)))))

Как-же из другой? Я просто решил, что чел сам догадается поделить то что надо...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »