|
|
Ŭ¶ó¿ìµåű×
javascript PHP ASP CSS mysql html jquery ������ image mobile API slide °Ô½ÃÆÇ
|
|
ÇöÀçÁ¢¼ÓÀÚ ¸í |
|
|
|
|
|
|
97 |
| |
925 |
| |
2000-05-17 14:29:29 |
|
|
|
´Ð³×ÀÓ
|
Anonymous |
À̸ÞÀÏ
|
|
Á¦¸ñ
|
way-cart ¿¡¼ÀÇ ¿ìÆí¹øÈ£°Ë»ö.. |
³»¿ë
|
|
way-cart1.6 ÀÎÁö, 2.0ÀÎÁö..... way-cart.cgi ¾Æ·¡Âë¿¡ º¸½Ã¸é ÁÖ¹®ÆûÀ» ³ªÅ¸³»´Â Äڵ尡 ÀÖ½À´Ï´Ù. ±×°÷ÀÇ ºÎºÐÀº »èÁ¦¸¦ ÇÏ°í, ³ª¸ÓÁö ºÎºÐÀ» ÁÖ¹®Æû¿¡ ³ÖÀ¸½Ã¸éµË´Ï´Ù. ÇÊ¿äÇϽøé Á¦°¡ ¸¸µç ÁÖ¹®¾ç½Ä¼Ò½º¸¦ º¸¼¼¿ä. http://erinyes.interpia98.net/~hancondo/public_html/way-cart/sample.html ±Ùµ¥...ÇÑ°¡Áö... ÇöÀç´Â ¿ìÆí¹øÈ£ÀÔ·ÂâÀÌ µÎ°³°¡ Àִµ¥, ÀÌ°ÍÀ» Çϳª·Î ÅëÇÕÇÏ°í ½Í³×¿ä. zipcode.cgi¸¦ ¼öÁ¤ÇÏ¸é µÈ´Ù°í Çϴµ¥ Ȥ½Ã ¾Æ½Ã´Â ºÐ ÀÖÀ¸½Ã¸é µµ¿òºÎŹµå¸³´Ï´Ù. #! /usr/bin/perl ############################################################## # ¿ìÆí¹øÈ£ °Ë»ö ##############################################################
&init; if($GIL{ mode } eq
) { &print_top; } elsif($GIL{ mode } eq top ) { &show_top; } elsif($GIL{ mode } eq down ) { &show_down; } elsif($GIL{ mode } eq search ) { &search; }
########################################################################## sub search { my $query = $GIL{ query }; print "Content-type: text/html
"; print<
Zipcode
¿ìÆí¹øÈ£ | ÁÖ ¼Ò | È®ÀÎ | END require zipcode.pm ; if($GIL{searchmode} eq address ) { $ref = &zipcode_address($query); } elsif($GIL{searchmode} eq code ) { $ref = &zipcode_code($query); } for(sort keys %$ref) { my ($zip1, $zip2) = $_ =~ /(...)(...)/; print qq&pip; &pip;; } print <
°Ë»öÀÌ ¿Ï·áµÇ¾ú½À´Ï´Ù.
END }
########################################################################## sub print_top { print "Content-type: text/html
"; print<
Zipcode
¿ìÆí¹øÈ£/ÁÖ¼Ò °Ë»ö |
ã°íÀÚ ÇÏ´Â ÁÖ¼ÒÀÇ µ¿/À¾/¸é À̸§À» ÀÔ·ÂÇϼ¼¿ä. (¿¹:¾Ð±¸Á¤µ¿/´Ü¾çÀ¾/¼ö»ê¸é)
|
END }
########################################################################## sub init { if ($ENV{ REQUEST_METHOD } eq "POST") { read(STDIN, $buffer, $ENV{ CONTENT_LENGTH }); } else { $buffer = $ENV{ QUERY_STRING }; } for (split & , $buffer) { my ($name, $value) = split = ; $name =~ tr/ / /; $name =~ s/%(..)/chr(hex($1))/ge; $value =~ tr/ / /; $value =~ s/%(..)/chr(hex($1))/ge; $GIL{$name} = $value; } }
__END__
|
|
|
|
|
|
|
|
|
|
|