Chinaunix

标题: 请问下怎么显示多张图片在网页上，谢谢。 [打印本页]

作者: zhengsenlin888 时间: 2013-09-17 10:22
标题: 请问下怎么显示多张图片在网页上，谢谢。
#!/usr/bin/perl

use 5.018;
use warnings;
use strict;
use autodie;
use CGI qw(:all);

sub display_image {
      my $mmjpg = shift;
      open(IMAGE, "$mmjpg");
      binmode STDOUT;
      binmode IMAGE;
      print <IMAGE>;
      close(IMAGE);
}

print header (-type=>'image/png');
&display_image('images/001.png');  #这张可以显示
&display_image('images/002.png');  #这张就不能显示，好像只能显示一张。

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)