On 07-Jun-2000, Arie Widodo wrote:
> hallo saya mau tanya nich
> bisa gak kita bikin script pake perl
> #!/usr/bin/perl -p
> exit(0) if(/^(<HR)$/)
> maksudnya untuk ngehapus semua yang ada setelah horisontal line ato ada cara
> lainnya ya???
#!/usr/bin/perl -p
exit(0) if(/^<hr>/i)
Yang mulai dihapus kalo ada baris yg *awalnya* <hr>.
Ronny
--------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Dapatkan FAQ milis dg mengirim email kosong ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
