Halaman

Senin, 10 Agustus 2015

Perl Contoh test regex lain yang sayang dibuang

#!/usr/bin/perl
# skrip utk ngetest regex dan pengambilan konten statis dari web imdb.com
# simpan skrip ini dgn nama file regex.pl
# jalankan dr command prompt ketik : Perl regex.pl
print “masukkan link video dari imdb dibawah ini utk di test regexnya\n”;
chomp ($url_test = <>);
if ( $url_test =~ m/^http:\/\/video-http\.media-imdb\.com\/(.*\.mp4)\?/ )
{
$url_dirubah_menjadi=”http://pilem.imdb.sukasuka.gue.com/” . $1 ;
print “Joss..regex sudah benar” . “\n” ;
print “hasilnya=” . $url_dirubah_menjadi . “\n” ;
}
else
{
print “regex ga cocok gan!\n”
}
# =~ binding operator. digunakan utk menguji apakah string cocok dengan regex
# (m)atching , formatnya m//
# /regex ditaruh disini/
# (.*\.mp4) = yg mau diambil adalah nama file mp4 nya karena bagian ini yg ga berubah2 dari link video imdb
# $1 , grouping , hitung dari tanda ( ) dari regex yg dibuat
# cth link video dr imdb, http://video-http.media-imdb.com/MV5BMTk2NjQ4ODMyNl5BMTFeQW1wNF5BbWU4MDY5MTI4NzAx.mp4?Expires=1387289970&Signature=qFvWql1QmMwrPzDdMX-XBlaM2DjkQ~vsliz5oi6yYpY5efw~7~jaD0EQQAJQNjeqRHGUrX50p9BNwSHxEdYTqlHEvVPHAjIUP7PJ9tpBH6cmaNiIkzWEUXM1n1ZnghzgKpoFJPqX2e4XdgwjfWqOAKxZSElS8zYUnwD3SEu0ENM_&Key-Pair-Id=APKAILW5I44IHKUN2DYA



sumber : https://mikrotiksquid.wordpress.com/2014/08/27/perl-contoh-test-regex-lain-yang-sayang-dibuang/

Tidak ada komentar:

Posting Komentar