On 23 Aug 99, at 20:31, Khadiyd Idris wrote:

> misal:
>   <html><title>
>   I'm a newbie</title>
>   </html>
>   
> titlenya "I'm a newbie"

#!/usr/bin/perl -n0777

print "$1\n" if (m{<title>([^<]*?)</title>}mi);

Kalo mau lebih oke, pake HTML::Parser.


--------------------------------------------------------------------------------
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

Kirim email ke