Bildgröße ermitteln: Größe einer GIF-Datei ermitteln - #44511 (Graphische Oberflächen)

format_c

2005-09-12 15:08

User since
2003-08-04
1706 Artikel
HausmeisterIn

Hier ein Beispiel was mir mal irgendjemand hier mal gegeben hat. Als Argument erwartet die Funktion den Dateinamen der Gif Grafik:

Code: (dl )

sub gifSize{
    if (-e $_[0]){
        if (open (HANDLE, "<$_[0]")){
            my $retStr = "";
            binmode HANDLE;
            read(HANDLE, $retStr, 10);
            close (HANDLE);
            
            return (unpack ("v", substr($retStr,6,2)),unpack ("v", substr($retStr,8,2)));
}    }    }

Gruß Alex

Effizente Linuxshell