Re: [programming] Rubah @ jadi % di Perl

[Muhammad Yusuf Efendi]

errornya kayak apa ? dan coba di print value $sessionid seperti berikut .. print $sessionid; exit; manaen wrote: > Wah thanks banget nih...:) > btw sekarang error messagenya udah ilang :) > oh ya yang "#line 66" tadi sebenarnya "#line 53" maksudnya :) > tau tadi lagi mikir apaan jadinya nulisnya line 66 lagi padahal 53 :) > oh ya, tapi tetep aja blum bisa masuk ke webmailnya :( apa ada hubungannya > dengan $sessionid = "$popname $poppass $currentlanguage $newpop @"; sama > elsif ($sessionid =~ /\@/) > > soalnya kalo yang $popname =~ s/\@([^\@]+\.\w+)\$/\%\$1\$/g; diremark > lantas di input formnya dimasukin "webmaster%namadomain.dom" itu bisa > masuk ke webmailnya...tapi kalau pake "[EMAIL PROTECTED]" masih > blum bisa masuk :( > > ---- part of program ---- > > if ($sid eq "NONE") > { > srand (time|$$); > $sessionidfile = int(rand(100000)); > $sessionidfile .= ".$$"; > $sessionid = "$popname $poppass $currentlanguage $newpop @"; > $cryptsess = pack("u*", $sessionid); > open(SESSID, "> $base_sid_directory$sessionidfile") || die "Cannot > open $base_sid_directory$sessionidfile"; > $cryptsess =~ s/\n//g; > print SESSID "$cryptsess"; > close(SESSID); > $sid = $sessionidfile; > $logstat = "LOGIN"; > &logging; > #line > elsif ($sessionid =~ /\@/) > { > @pop = split (/ /, $sessionid); > $popname = $pop[0]; > # $popname =~ s/\@/\%/g; > # $popname =~ s/\@([^@]+\.\w+)$/\%$1$/g; > # $popname =~ s/\@([^\@]+\.\w+)\$/\%\$1\$/g; > $poppass = $pop[1]; > $currentlanguage = $pop[2]; > $newpop = $pop[3]; > open(SESSID, "< $base_sid_directory$sid") || die "Error opening db > $sessiondb"; > $newsession = <SESSID>; > close(SESSID); > open(SESSID, "> $base_sid_directory$sid") || die "Cannot open > $base_sid_directory$sid"; > print SESSID "$newsession"; > close(SESSID); > } > > >itu kalau di line 66 ada komentnya (#) maka errornya ada di > >baris 53 ... > >coba baris ke 53 dikasi > >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 ke > >dua > >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 ... > > -------------------------------------------------------------------------------- > 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]