#!/usr/bin/perl

$buffer=$ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair ($paris)
{
    ($name, $value) = split(/=/,$pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
    $FORM{$name} = $value;
}

print("Content-type: text/plain\n\n");
print `finger $FORM{"user"}`;

서버단에서 실행하면,

root@www ~ [0.00 0.00]> perl test.pl 

Content-type: text/plain

Login     Name       Tty      Idle  Login Time   Office     Office Phone   Host

xxxxx             pts/3          Dec 13 10:08                           (x.x.xx)

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

김병국
유용했던 자료를 기록해 두었습니다. 도움이 되시길~~~ Welcome! I started this blog as a way to give back to all of the other system administrators who have taught me something in the past. Writing these posts brings me a lot of enjoyment and I hope you fun