perl·Î ÇÁ·Î±×·¥À» ÀÛ¼ºÇϴµ¥
print "Hello
";
À̰͵µ command line¿¡¼ "perl test.cgi" ÇÏ¸é ½ÇÇàÀÌ
µÇ´Âµ¥ IE¿¡¼ ½ÇÇàÇϸé error°¡ ¹ß»ýÇØ¿ä
±Ùµ¥ print qq&pip; test &pip;; ¸¦ µÚ¿¡ Ãß°¡Çϸé error¾øÀÌ
test°¡ ȸ鿡 ³ªÅ¸³ª¿ä
¾Æ·¡´Â ¿¹Á¦¸¦ ºÁÁÖ¼¼¿ä
-------------------------------------------------------
#!/bin/perl
#
# Down address data with Excel
# File name : down_excel.cgi
$db_path = ".";
$db_name = "./default.db";
open( fileHandle,"$db_name" ) &pip;&pip; die "Can not open $db_name.
";
open( CSV,">./address.csv" );
print CSV "¼º¸í,ÁýÀüÈ,ÇÚµðÆù,È£Ãâ±â,ȸ»çÀüÈ,ȸ»ç¸í,À̸ÞÀÏ,ÁÖ¼Ò
";
while( $oneline =
)
{
@db_line = split( /&pip;/,$oneline );
print CSV "$db_line[1],$db_line[2],$db_line[3],$db_line[4],$db_line[5],$db_line[6],$db_line[7],$db_line[8]
";
}
close fileHandle;
close CSV;
print qq&pip;
./address.csv">
|