Re: [programming] Rubah @ jadi % di Perl

[Muhammad Yusuf Efendi]

itu kalau di line 66 ada komentnya (#) maka errornya ada di baris 53 ... coba baris ke 53 dikasih tanda \ pada tempat sebelum $, misalnya \$. maaf mungkin sudah tahu, tanda \ ini digunakan untuk menampilkan nilai karakter sesuai dengan huruf selanjutnya, jadi $a dan \$a akan dianggap lain. yang pertama adalah variable dan yang ke dua bukan ...kalau diprint maka yang kedua akan tertampilkan $a ...sedang yang pertama akan ditampilkan nilai $a. terus juga baris ke 66 itu, walau pun ada tanda komentnya , kalau misalnya mau dihilangin tanda komennya, maka penulisan yang benar adalah $popname =~ s/\@([^\@]+\.\w+)\$/\%\$1\$/g; #line 66 semoga membantu ... manaen wrote: > Hi, > Cara dibawah sudah dicoba namun jadinya muncul "Internal Server Error" > sebagai informasi berikut ini listing salah satu part-nya: > > 61:elsif ($sessionid =~ /\@/) > 62:{ > 63: @pop = split (/ /, $sessionid); > 64: $popname = $pop[0]; > 65: # $popname =~ s/\@/\%/g; > 66: # $popname =~ s/@([^@]+\.\w+)$/%$1$/g; #line 66 > 67: $poppass = $pop[1]; > 68: $currentlanguage = $pop[2]; > 69: $newpop = $pop[3]; > > FYI berikut ini adalah error messagenya: > > [root@webmail webmail3]# tail ../../logs/error.log > BEGIN not safe after errors--compilation aborted at > webmail.pl line 66. [Mon Mar 12 17:57:03 2001] [error] [client > 203.130.212.2] Premature end of script headers: > /home/manaen/html/webmail3/webmail.pl Final $ should be \$ or $name at > webmail.pl line 53, within string syntax error at webmail.pl line 53, > near "=~ s/@([^@]+\.\w+)$/%$1$/g" > BEGIN not safe after errors--compilation aborted at > webmail.pl line 66. > > >On 12-Mar-2001, Ari Manaen wrote: > >> bagaimana caranya pakai Perl, saya merubah > >> misalnya [EMAIL PROTECTED] menjadi manaen%yahoo.com ? > > >Tidak jelas skrg "[EMAIL PROTECTED]" itu ada di mana. Anggap saja ada > >di $input, maka: > > >$input =~ s/@([^@]+\.\w+)$/%$1$/g; > > >Ronny > >[A > > -------------------------------------------------------------------------------- > Utk berhenti langganan, kirim email ke [EMAIL PROTECTED] > Informasi arsip di http://www.linux.or.id/milis.php3 > Pengelola dapat dihubungi lewat [EMAIL PROTECTED] -------------------------------------------------------------------------------- Utk berhenti langganan, kirim email ke [EMAIL PROTECTED] Informasi arsip di http://www.linux.or.id/milis.php3 Pengelola dapat dihubungi lewat [EMAIL PROTECTED]