Edwin Maolana wrote:
> Dear Netter and Mailler,
> Dibawah ini adalah contoh program Perl yang gue download dari source perl di
> Internet.
> Di baris kedua ada statement " use Tk; ". Kira-kira ada yang ngerti/tau
> nggak ya apa maksud dari statement tersebut.
>
> #!/usr/bin/perl -w
> use Tk;
Kalo nggak salah baca data dari tk/tcl
>
>
> my $mw = MainWindow->new;
> $mw->title("Good Window");
> $mw->Label(-text => "Latihan Membuat Windows dengan Perl")->pack;
>
<deleted>
gua kasih contoh program di kantor gue dari perl baca data di informix nih
use DBI;
# Baca database ke informix, jadi ada library utk baca ke database
use Getopt::Std;
getopts ("mn:a:r:f:t:");
$station = "SIN";
$all = 999;
$no_wc = -9990;
$undel = -9992;
$first_ck = -9994;
%desc = ($all,"DL > 4hr",$no_wc,"DL_No_WC",$undel,"WC_No_DL",
$first_ck,"Other");
@breaks = (1,2,3,4,$all,$no_wc,$undel);
print "$0 WC to DL Performance\n";
kalau nggak ada driver yg langsung biasanya pake odbc nih contohnya lagi
use Win32::ODBC;
# BACA data lewat ODBC
use File::Copy;
use CGI qw(:cgi-lib);
$host="intranet.sg.dhl.com";
$htmlroot="g:/";
ReadParse();
$q = $in{CGI};
print $q->header;
print $q->start_html("Airway Search Result");
&header_html;
<program di cut!! >
Mudah2an bener
Ade
* Gunadarma Mailing List -----------------------------------------------
* Archives : http://milis-archives.gunadarma.ac.id
* Langganan : Kirim Email kosong ke [EMAIL PROTECTED]
* Berhenti : Kirim Email kosong ke [EMAIL PROTECTED]
* Administrator: [EMAIL PROTECTED]
