man perlvar..
and type this:
/^ *\$\@[enter]
___
{~._.~} -chris-
( Y ) Dept. of Informatics - 1997
()~*~() Bandung Institute of Technology
(_)-(_) ---------------------------------
On Wed, 27 Sep 2000, MailList wrote:
> milist;
>
> aku lihat source sebuah script perl
> sub Do_SQL{
> eval{
> $sth = $dbh->prepare($SQL);
> }; # End of eval
>
> # Check for errors.
> if($@){<--------------------- Apa arti command ini
> $dbh->disconnect;
> print "Content-type: text/html\n\n";
> print "An ERROR occurred! $@\n<P>";
> exit;
> } else {
> $sth->execute;
> } # End of if..else
> return ($sth);
>
> mohon masuka dari milist
>
>
> makasih sebelumnya
> --
> Prt
> "Belajar tidak mengenal tempat dan waktu ....
> demikian juga dengan tidur....:)"n
>
>
>
> --------------------------------------------------------------------------------
> Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
> Informasi arsip di http://www.linux.or.id/milis.php3
> Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
>
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
