#!/usr/local/bin/perl5.00452 use CGI qw(:standard); #binmode(STDIN); $real_path=""; print header(); sub DirFiles { my $Dir = $_[0]; my @files; opendir(DIR, $Dir) || return (); @files = readdir(DIR); closedir(DIR); @files; } $ID= param('ID'); print ""; print ""; print ""; foreach $DirFile (&DirFiles("/raid/web/cadmate")) { if ($DirFile eq $ID) { $filename = "/raid/web/cadmate/" . $DirFile; open (FH, "$filename"); $_=; ($d1, $C_NAME) = split(/:/, $_, 2); print "

中文姓名	$C_NAME \n"; $_=; ($d1, $E_NAME) = split(/:/, $_, 2); print "
英文姓名	$E_NAME \n"; $_=; ($d1, $BBCALL) = split(/:/, $_, 2); print "
BBCALL	$BBCALL \n"; $_=; ($d1, $HANDPHONE) = split(/:/, $_, 2); print "
大哥大	$HANDPHONE \n"; $_=; ($d1, $O_TEL) = split(/:/, $_, 2); print "
電話(公/學)	$O_TEL \n"; $_=; ($d1, $O_ADDRESS) = split(/:/, $_, 2); print "
住址(公/學)	$O_ADDRESS \n"; $_=; ($d1, $C_TEL) = split(/:/, $_, 2); print "
電話(通訊)	$C_TEL \n"; $_=; ($d1, $C_ADDRESS) = split(/:/, $_, 2); print "
住址(通訊)	$C_ADDRESS \n"; $_=; ($d1, $H_TEL) = split(/:/, $_, 2); print "
電話(家)	$H_TEL \n"; $_=; ($d1, $H_ADDRESS) = split(/:/, $_, 2); print "
住址(家)	$H_ADDRESS \n"; $_=; ($d1, $EMAIL) = split(/:/, $_, 2); print "
E-Mail	$EMAIL\n"; $_=; ($d1, $HOMEPAGE) = split(/:/, $_, 2); print "
Homepage	$HOMEPAGE \n"; close (FH); } } print "

"; print ""; print "";