大量照片的局网浏览方法

这篇Blog和HIS没有关系。

今年暑假单位组织旅游，路线是内蒙山西，现在刚回来，外出近十天的时间没碰电脑。

几乎每年暑假单位都要组织旅游，旅游回来当然少不了大家互相交流照片，所以大家围着某科室电脑看照片的情况经常发生。在旅游的路上，就考虑了一下照片管理的问题，把照片拷贝到PC上浏览的方式效率太低，既然医院有局域网，可以利用网络大家都在自己办公室里浏览照片。

回来以后马上处理了一下，其实很简单：把照片上传到服务器（或在某台安装LAMP的PC）上的/var/www/pic目录里，然后编写一个Perl程序tools_pic.cgi，内容如下：

#!/usr/bin/perl
print "Content-type: text/html\n\n";

# 获取照片的文件名列表
my @pics = glob("/var/www/pic/*.JPG");

# 查询照片数量
my $maxpic = $#pics;

# 读取照片指针
open (f1,"log/img2.log");
my $i = ;
close f1;

# 处理照片的显示路径
$pics[$i] =~s/\/var\/www(.*)//;
$picpath = $1;

$i++;
if ($i > $maxpic)  { $i = $i - $maxpic; }

# 保存照片浏览指针
open (f1,">log/img2.log");
print f1 $i;
close f1;

 

#  网页显示
print <

说明：
1. 照片信息：(照片指针＝$i  照片文件名=$pics[$i])
2. 在照片上点右键“照片另存为”，可以保存照片。
3. 刷新页面可以浏览下一张照片。

HT

 

这样，在各科室里通过浏览器访问http://192.168.0.1/tools_pic.cgi，可以浏览到照片，刷新可以浏览下一张照片。

不难发现，在这个例子里有个问题，就是只设置了一个总的浏览指针，任何电脑访问这个网页，都会把浏览指针向前推进一次，所以如果几台电脑同时浏览照片，那么每台电脑上浏览到的照片不是连续的，要解决这个问题也很简单，就是在程序里识别每台电脑的IP地址，为每个IP地址单独保存指针。

如果要想实现浏览器自动播放照片，在上面网页中加入一句定时刷新页面的代码就可以了。

有个暑假真是不错，炎热的夏天可以待在家里凉快。

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/21129783/viewspace-670022/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/21129783/viewspace-670022/