Hanury.NET

<object>
	<num>M1</num>
	<ngc>NGC1952</ngc>
	<const>Taurus</const>
	<constabbr>Tau</constabbr>
	<type>Supernova Remnant</type>
	<subtype>-</subtype>
	<ra>05 34.5</ra>
	<dec>+22 01</dec>
	<mag>8.4</mag>
	<diameter>6</diameter>
	<distance>6.3</distance>
	<desc>Crab Nebula</desc>	
</object>

<xsl:template match="type">
	<xsl:choose>
		<xsl:when test="contains(.,'Open Cluster')">
			<img src="/images/deepskyicon/OpenCluster.png"/>
		</xsl:when>
		<xsl:when test="contains(.,'Galaxy')">
			<img src="/images/deepskyicon/Galaxy.png"/>
		</xsl:when>
		<xsl:when test="contains(.,'Globular Cluster')">
			<img src="/images/deepskyicon/GlobularCluster.png"/>
		</xsl:when>
		<xsl:when test="contains(.,'Nebula')">
			<img src="/images/deepskyicon/DiffuseNebular.png" />
		</xsl:when>
		</xsl:when>
		<xsl:otherwise>
			<img src="/images/deepskyicon/BinaryStar.png" />
		</xsl:otherwise>
	</xsl:choose>
</xsl:template>

#!/usr/bin/perl
# vim: set sw=4 ts=4 si et nu:

use strict;
use Getopt::Std;

########################################################
# Global settings
########################################################
$Getopt::Std::STANDARD_HELP_VERSION = 1;

sub main::VERSION_MESSAGE(){
	print "$0 Version 0.5	hyeonkwen@gmail.com";
}

sub main::HELP_MESSAGE(){
	print <<END;
Description of this program.
Usage: $0 OPTION DIRECTORY

OPTION
    -c             description of c option
    -h             view help message
    -v             view version information
END
}

########################################################
# main()
########################################################

sub main(){
	if(!getopts("c:hv") || $Getopt::Std::opt_h){
		main::HELP_MESSAGE();
		exit;
	}elsif($Getopt::Std::opt_v){
		main::VERSION_MESSAGE();
		exit;
	}
}

main();

$fp = fopen($url, 'r'); 
$str = stream_get_contents($fp);

function my_stream_get_contents($fp){
	$buf = ""; 
	while(!feof($fp)){ 
		$buf .= fread($fp,1024*8); 
	} 
	return($buf); 
} 
$fp = fsockopen($host, 80, $errno, $errstr, 12); 
fputs($fp, "GET $url HTTP/1.0\r\n"); 
fputs($fp, "Host: $host\r\n"); 
fputs($fp, "Referer: http://$host\r\n"); 
fputs($fp, "User-Agent:Mozilla/4.0(compatible;MSIE6.0;Windows NT5.1)\r\n\r\n"); 
$str = my_stream_get_contents($fp);

echo(time()-date("U",mktime(date("H"),date("i"),date("s"),2,21,2006)))/60/60/24+1;

$url = 'http://www.kma.go.kr/kor/weather/picture/picture_01.jsp'; 
$base_url = 'http://www.kma.go.kr';   
$fp = fopen($url, 'r'); 

$str = stream_get_contents($fp);   

if ( ereg ( "(/kma_sat/DATA/MTSAT/GPL/wli[0-9]+\.gif)" , $str, $reg)){   
	echo "< img src='http://www.kma.go.kr$reg[0]' / >";  
}else{   
	echo "fail to get image";
}

$xml = new DomDocument;
$xml->load("http://www.jwz.org/cheesegrater/RSS/apod.rss");

$xsl = new DomDocument;
$xsl->load("apod.xsl");

$proc = new xsltprocessor;
$proc->importStyleSheet($xsl);
echo $proc->transformToXML($xml);

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
	<xsl:output method="html"/>
	
	<xsl:template match="/rss/channel">
		<xsl:value-of select="pubDate"/> by NASA
		<xsl:value-of select="item/description"
				disable-output-escaping = "yes" />
	</xsl:template>
	
</xsl:stylesheet>

var isIE = false;
var req;
function loadXMLDoc(url) {
	// branch for native XMLHttpRequest object
	if (window.XMLHttpRequest) {
		req = new XMLHttpRequest();
		req.onreadystatechange = processReqChange;
		req.open("GET", url, true);
		req.send(null);
	// branch for IE/Windows ActiveX version
	} else if (window.ActiveXObject) {
		isIE = true;
		req = new ActiveXObject("Microsoft.XMLHTTP");
		if (req) {
			req.onreadystatechange = processReqChange;
			req.open("GET", url, true);
			req.send();
		}
	}
}

function processReqChange() {
	// only if req shows "loaded"
	if (req.readyState == 4) {
		// only if "OK"
		if (req.status == 200) {
			//req.responseXML 을 가지고 원하는 페이지를 구성
		} else {
			alert("There was a problem retrieving the XML data:\n" +
			req.statusText);
		}
	}
}

req.onreadystatechange = processReqChange;

my @array = (1,2,3,4,5,6);

my %capitals= ('china' => 'beijing', 'england' => 'london', 'france' => 'paris');

my $a = $capitals{'china'};

sub getHash(%){
	my %hash = %_;
	while ( my ($key, $val) = each (%hash)){}
}

use strict;

sub printHash(@){
	my %h = @_;

	while ( my ($key, $val) = each (%h))
	{
		print $key, " => ", $val, "\n";
	}
}

sub printArray(@){
	my @a = @_;
	
	print join("\n" , @a);
	print "\n";
}

my %capitals= ('china' => 'beijing', 'england' => 'london', 'france' => 'paris');

my @capitals= ('china' , 'beijing' , 'england' , 'london' , 'france' , 'paris');