A Simple Script to Backup all mysql from /var/lib/mysql to /root/mysql (String Yang Ditukar alias str_replace)

Jadi gini gan. Ane udah lama gag nonton itu sinetron yang gag abis2 judulnya Puteri Yang Ditukar. Eh, barusan ane ketemu blog yang ngingetin sama itu sinetron. Jangan2 yang punya blog itu sebenernya Nikita Willy yang mukanya mirip tante-tante lagi pe-em-es level 9002. pencet di sini gan buat ke blognya Oh iya, jadi di sana ada lah kode2 gitu yang gag jelas. ini apalah:

 ================

 script name: backup_mysql.sh
 ==============
 #!/bin/sh
 #***** TIDAK_LULUS_SENSOR_PARFI ****
 #***** TIDAK_LULUS_SENSOR_PARFI ****
 echo 'Skrip Backup db mysql di /var/lib/mysql ke /root/mysql'
 echo '***** TIDAK_LULUS_SENSOR_PARFI ****'
 mkdir /root/mysql
 perl fetch_data.pl > mysql.txt
 perl copy_all_db.pl
 ==============


 script name: fetch_data.pl
 =================
 open(PROSES_MYSQL, "ls /var/lib/mysql |");
 while (<PROSES_MYSQL>)
            {
                 $tampilan_proses =  $_;



             print $tampilan_proses;


        }
 close(PROSES_MYSQL);
 ==================

 script name: copy_all_db.pl
 =====================


    open(PASSWORD, "<mysql.txt");
          my(@lines2) = <PASSWORD>;
          @lines2 = sort(@lines2);
          my($pass);
          foreach $pass (@lines2)
            {
                   chomp($pass);


  $cmd="cd /var/lib/mysql/;tar czvf ".$pass.".tgz ".$pass.";mv ".$pass.".tgz /root/mysql";
            print "\n";
             system($cmd);
        }


 sub str_replace {
 eval
  {
 my $replace_this = shift;
     my $with_this  = shift;
     my $string   = shift;

     my $length = length($string);
     my $target = length($replace_this);

     for(my $i=0; $i<$length - $target + 1; $i++) {
         if(substr($string,$i,$target) eq $replace_this) {
             $string = substr($string,0,$i) . $with_this . substr($string,$i+$target);
             return $string; #Comment this if you what a global replace
         }
     }
     return $string;
 }
 }
 ==========================

coba deh agan liyat itu kode di atas. intinya itu kode cuma kompress isi dari /var/lib/mysql/ trus dipindahin ke /root/mysql. liyat juga itu kode yang warna biru, nanti agan pasti ngakak, soalnya dia masup ke direktori /var/lib/mysql berkali-kali padahal sebenarnya cukup sekali aja ditulis di luar perulangannya. etaaapiiipaaak, apalah itu kenapa ada fungsi str_replace di sana. itu kayaknya yang punya blog salah copas gan....wkwkwkwkwk... gag percaya? ini gan coba lihat trus bandingin skrinsyut ini:





mirip bgt kan gan? itu skrinsyut yang bawah dari web ini gan.

mati aja deh guwe...aaahhhhhhh