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/