ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Denis Savostjanov                    2:5020/400     17 Mar 2002  16:52:15
 To : Nikolay Pichtin
 Subject : Re: jpeg
 -------------------------------------------------------------------------------- 
 

 ">
 
 > Вот, попробуй. Это как-то проскакивало в эхе.
 >
 > sub pix_size {
 >    my ($file)=@_;
 >    my ($buffer, $width, $height);
 >    my $line;
 >    $buffer="";
 >
 >    open (FILE, "$file") || return "Can't open file $file: $@";
 >    binmode FILE;
 >
 >    if ($file =~ /\.gif$/i) {
 >
 >       read(FILE,$buffer,10) || return "Can't read $_";
 >       ($width, $height)=unpack("x6v2",$buffer);
 >
 >     } elsif ($file =~ /\.(p?jpe?g?|jf?if)/i) {
 > # это расширения jpeg, pjpeg, jfif, jif, pjpg, jpe которые тоже
 > # встречаются для формата JPEG.
 > #   }elsif (/\.jpg/i) {
 >
 >       local ($/) ="\xff\xc0";
 >       $line=<FILE>;
 >       print "Can't read $_", return unless ($line);
 >
 >       read(FILE,$buffer,7) || return "Can't read $_";
 >       ($height, $width)=unpack("x3n2",$buffer);
 >
 >    } else {
 >       return
 >    }
 >
 >    return ($width,$height);
 > }
 >
 >
 > -- Hиколай.
 >
 
 #=----------------------------------====----------------------------------=#
 
 >
 
 а процедурки шоб вставить пару цифр в любой формат не найдётся?
 --- ifmail v.2.15dev5
  * Origin: HoMe (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    jpeg   Andrew Bobin   14 Mar 2002 11:08:39   Re: jpeg   Victor Wagner   14 Mar 2002 11:43:47   Re: jpeg   Nikolay Pichtin   14 Mar 2002 22:15:09   Re: jpeg   Denis Savostjanov   17 Mar 2002 16:52:15   Re: jpeg   Alex Povolotsky   26 Mar 2002 20:38:38   Re: jpeg   Nikolay Pichtin   28 Mar 2002 09:29:05   Re: jpeg   Artem Chuprina   28 Mar 2002 15:55:28   Re: jpeg   Andrey Sapozhnikov   28 Mar 2002 17:15:51   Re: jpeg   Ilya Vishnyakov   05 Apr 2002 18:01:28