At 20:31 23-08-99 +0700, you wrote:
>halo,
>
>tolong dong
>ada yang bisa nggak
>buatin contoh program perl yang
>meng ekstrak title dari sebuah file html
>tapi menggunakan regular expression (pattern matching)
>
>misal:
> <html><title>
> I'm a newbie</title>
> </html>
>
>titlenya "I'm a newbie"
#!perl
$html = <<_;
<html><title>
I'm a newbie</title>
</html>
_
($title) = $html =~ m[<title>[\s\n]*(.+)[\s\n]*</title>]si;
# mo diilangin \n-nya?
for ($title) { s/\n+/ /sg; s/\s\s+/ /g }
__END__
--
mailto:[EMAIL PROTECTED]
http://steven.haryan.to
Bandung Perl Mongers: http://bandung.pm.org
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
Hosted by http://www.Indoglobal.com
