fajran

<pre>
File: <?=basename($_SERVER['SCRIPT_FILENAME']);?>


Referer: <?=$_SERVER['HTTP_REFERER'];?>


Lanjut: <a href="index.php">index.php</a>
        <a href="a.php">a.php</a>
        <a href="b.php">b.php</a>

fajran

def angka():
    return 10

print angka()

fajran

#top-bar {
    height: 40px;
}

#search {
    padding: 5px;
}

#lhn-add-subscription-section, #viewer-header {
    height: 40px;

fajran

import sys
import cairo
import rsvg

def main():
    fin = sys.argv[1]
    fout = sys.argv[2]

    svg = rsvg.Handle(file=fin)
    width = svg.props.width

fajran

QT =
TARGET = coba
SOURCES += main.cpp
INCLUDEPATH += /usr/include/mpich2
LIBS += /usr/lib/libmpich.a

fajran

class MetaProvinsi(type):
    def __new__(cls, name, bases, attrs):
        return type.__new__(cls, name, bases, attrs)

class Provinsi(object):
    __metaclass__ = MetaProvinsi

class MetaKabupaten(type):
    def __new__(cls, name, bases, attrs):
        attrs['nama_kelas'] = name

fajran

class Angka(object):
    def __init__(self, nilai):
        self.nilai = nilai

    def berapa(self):
        return self.nilai

satu = Angka(1)
print satu.berapa()

fajran

<?

// baca data dari data.txt (asumsinya udah ada)
$f = fopen('data.txt', 'rb');
$data = '';
while (!feof($f)) {
    $data .= fread($f, 1024);
}
fclose($f);

fajran

#!/usr/bin/perl

while (<>) {
    if (/^re.+p.$/) { # regex sudah menjadi bagian bahasa perl
        print;        # tidak terlihat jelas apa yang di-print
    }
}

fajran

#!/bin/bash

# License: public domain

# Usage: ./donlod.sh http://www.megaupload.com/?d=id


WAIT=120
#VIEWER=eog
VIEWER=open