Assalamu alaikum.wr.wb
Saya mempunyai sebuah dokumen dan ingin mengambil string yang
terletak di antara tag <title>.......</title> dengan menggunakan perl.
misal isi dokumen adalah sbb:
<title>Kecelakaan terjadi hampir setiap detik</title>
<title>Penggunaan busway masih belum efektif</title>
<title>Amerika saling 'ngotot' dengan Venezuela</title>
......................
script yang saya gunakan adalah
#!/usr/bin/perl
$filename = $ARGV[0];
if($#ARGV != 0)
{
print "Usage : wordcount.pl <filename>\n";
exit 2;
}
open(INFILE, $filename) or die "ERROR: $!\n";
local $/;
$strcontent = <INFILE>;
if($strcontent =~ /\<TITLE\>\s+(.+?)\s+\<\/TITLE\>/gi)
{
print "$1\n";
}
masalahnya script ini hanya mencetak string yang terletak diantara tag
yang terletak di paling awal saja.
jadi yang saya ingin tanyakan adalah bagaimana caranya agar semua string
yang terletak diantara tag <title> dapat di print.
regards,
Nasrullah
--
Berhenti langganan: [EMAIL PROTECTED]
Arsip dan info: http://linux.or.id/milis
