Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]10869[/thread]

Frage zu File::Type bzw. File::Type::WebImages



<< >> 10 Einträge, 1 Seite
Tom
 2007-11-22 20:05
#102829 #102829
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
Hallo,

Ich möchte mit File::Type oder eben File::Type::WebImages überprüfen ob es sich bei den Dateien um Bilder handelt, aber File::Type meldet mir immer nur "application/octet-stream" und File::Type::WebImages gibt fast immer nur "undef" zurück außer bei ein paar bmp-Dateien.

Mein Code sieht so aus:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!/usr/bin/perl -w

use CGI::Carp "fatalsToBrowser";
use CGI qw(:all);
use warnings;
use File::Type::WebImages 'mime_type';
use File::Type;
use strict;
...
...
my $path = 'd:/bilder/userpic';
my $filehandle = $cgi->upload('user_pic');
my $filename = $params{'user_pic'};
$filename = (split(/[\\\/]/,$filename))[-1];
$filename =~ s/[^A-Za-z0-9_\.\-]//g;
...
...

sub upload_datei
{
        
my $ft = File::Type->new();
my $type_3 = $ft->checktype_contents($filename);
my $type_2 = mime_type($filename);
...
...
...


Wo liegt da mein Problem?

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
GwenDragon
 2007-11-22 20:13
#102830 #102830
User since
2005-01-17
14747 Artikel
Admin1
[Homepage]
user image
Wie wäre es mit Image-ExifTool
http://search.cpan.org/~exiftool/Image-ExifTool-7....

Image-Info selbst ist auf CPAN als DEPRECATED (abgelehnt, missbilligt) gebrandmarkt worden, weil wohl zu fehlerhaft.
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
Froschpopo
 2007-11-22 20:19
#102831 #102831
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
ich mach sowas mit Image::Info

Code: (dl )
1
2
3
4
use Image::Info qw(image_type);
my $info = image_type($pic);

print $info->{file_type},"\n"; # z.B. JPEG, GIF usw.
Tom
 2007-11-22 20:50
#102833 #102833
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
GwenDragon+2007-11-22 19:13:53--
Wie wäre es mit Image-ExifTool


Kannst Du mir mal ein Code-Beispiel geben wie ich damit den Dateityp überprüfe?
Ich find da irgendwie nichts dazu.

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
ptk
 2007-11-22 21:09
#102837 #102837
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
GwenDragon+2007-11-22 19:13:53--
Wie wäre es mit Image-ExifTool
http://search.cpan.org/~exiftool/Image-ExifTool-7....

Image-Info selbst ist auf CPAN als DEPRECATED (abgelehnt, missbilligt) gebrandmarkt worden, weil wohl zu fehlerhaft.

Naja. Ich finde Image::Info ganz gut. Für das einfache Dateitypüberprüfen funktioniert es ganz gut und ist schneller als die Konkurrenz. Vielleicht luchse ich TELS das Modul mal ab...
ptk
 2007-11-22 21:10
#102838 #102838
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Tom+2007-11-22 19:05:33--
Hallo,

Ich möchte mit File::Type oder eben File::Type::WebImages überprüfen ob es sich bei den Dateien um Bilder handelt, aber File::Type meldet mir immer nur "application/octet-stream" und File::Type::WebImages gibt fast immer nur "undef" zurück außer bei ein paar bmp-Dateien.

Das ist merkwürdig. Ich habe File::Type letztens auch getestet und da hat es zumindest für GIFs, PNGs und JPEGs gut funktioniert. Vielleicht ist $filename kein existierender Filename?
Tom
 2007-11-22 21:18
#102839 #102839
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
ptk+2007-11-22 20:09:13--
Naja. Ich finde Image::Info ganz gut. Für das einfache Dateitypüberprüfen funktioniert es ganz gut und ist schneller als die Konkurrenz. Vielleicht luchse ich TELS das Modul mal ab...


Wie ich gelesen hab kann ich mit "Image-ExifTool" auch die Dateien gleich umbenennen, drum werde ich dieses Modul nehmen.

ptk
Vielleicht ist $filename kein existierender Filename?


Doch der ist richtig, wähle ich vorher erst aus.

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
ptk
 2007-11-22 22:26
#102843 #102843
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Mach mal trotzdem ein -r $filename und -f $filename. Und vielleicht noch -s $filename.
Tom
 2007-11-24 19:25
#102962 #102962
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
ptk+2007-11-22 21:26:19--
Mach mal trotzdem ein -r $filename und -f $filename. Und vielleicht noch -s $filename.


War tatsächlich ein Fehler, hatte vergessen den Pfad mit anzugeben. Jetzt funktioniert es mit diesen Modulen. Aber kann mir vielleicht doch jemand sagen wie ich das auch mit "Image-ExifTool" lösen könnte?

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
ptk
 2007-11-24 21:04
#102963 #102963
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Image::ExifTool hat eine Funktion oder Methode ImageInfo. Einfach das Ergebnis dumpen, der Typ sollte dabei sein.

Image::ExifTool ist aber nicht schnell. Image::Info ist ungefähr 3-4x schneller.
<< >> 10 Einträge, 1 Seite



View all threads created 2007-11-22 20:05.