Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > Width & height

Автор: -exp- 20.2.2005, 10:22

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

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

Автор: Ramirez 20.2.2005, 19:13

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);

Автор: GoodBoy 21.2.2005, 14:13

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

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

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

Автор: korob2001 21.2.2005, 21:51

Цитата

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

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

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

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