seungwon0

#!/usr/bin/env perl
#
# mac-lookup-gui.pl - looks up MAC vendor information
#
# Looks up MAC vendor information using Net::MAC::Vendor module.
#
# Seungwon Jeong <[email protected]>
#
# Copyright (C) 2012 by Seungwon Jeong
#

seungwon0

#!/usr/bin/env perl
#
# weather-notify.pl - Weather Forecast of Seoul
#
# Shows weather forecast of Seoul using Google's weather API.
#
# Requires notify-send.
#
# Copyright (C) 2012 by Seungwon Jeong
#

seungwon0

#!/usr/bin/env perl
#
# wlan-channel.pl - shows WLAN channel and frequency
#
# Shows WLAN channel and frequency.
#
# Seungwon Jeong <[email protected]>
#
# Copyright (C) 2012 by Seungwon Jeong
#

seungwon0

use Android;

my $android = Android->new();

my $barcode = $android->scanBarcode();

my $result = $barcode->{result}{extras}{SCAN_RESULT};

print $result, "\n";

seungwon0

import os
import SimpleHTTPServer

os.chdir('/sdcard/melon')

SimpleHTTPServer.test()

seungwon0

use strict;

use warnings;

use Android;

my $android = Android->new;

my $scan_results_ref = $android->wifiGetScanResults;

seungwon0

#include <stdio.h>

int main(void)
{
	const int data = 1;
	const char *const ptr = (char *)&data;

	if (*ptr == 1)
		puts("Little Endian");
	else if (*ptr == 0)

seungwon0

#!/usr/bin/env python
#
# circle.py - draws circle using ASCII characters
#
# http://kldp.org/node/135436
#
# Seungwon Jeong <[email protected]>
#
# Copyright (C) 2012 by Seungwon Jeong
#

seungwon0

#!/usr/bin/env perl
#
# get-input-output.pl - downloads sample input/output data from acmicpc.net
#
# Downloads sample input/output data from Baekjoon Online Judge (acmicpc.net).
#
# Seungwon Jeong <[email protected]>
#
# Copyright (C) 2013 by Seungwon Jeong
#

seungwon0

#!/usr/bin/env perl
#
# facebook-feed.pl - shows facebook feed URL
#
# Shows facebook feed URL.
#
# Usage examples:
# % ./facebook-feed.pl girlsgeneration
# http://www.facebook.com/feeds/page.php?format=atom10&id=216732611680045
# % ./facebook-feed.pl http://www.facebook.com/trycatchpage