2009-01-23から1日間の記事一覧
友達に聞いたりしながら、苦労した。 #!/usr/bin/perl -w use CGI::Carp qw(fatalsToBrowser); use CGI; use File::MMagic; &main; sub main { my $file = "test.gif"; my $type = File::MMagic->new->checktype_filename($file); my $cgi = CGI->new; print…
友達に聞いたりしながら、苦労した。 #!/usr/bin/perl -w use CGI::Carp qw(fatalsToBrowser); use CGI; use File::MMagic; &main; sub main { my $file = "test.gif"; my $type = File::MMagic->new->checktype_filename($file); my $cgi = CGI->new; print…