Hi,
Cara dibawah sudah dicoba namun jadinya muncul "Internal Server Error"
sebagai informasi berikut ini listing salah satu part-nya:
elsif ($sessionid =~ /\@/)
{
@pop = split (/ /, $sessionid);
$popname = $pop[0];
# $popname =~ s/\@/\%/g;
# $popname =~ s/@([^@]+\.\w+)$/%$1$/g; #line 66
$poppass = $pop[1];
$currentlanguage = $pop[2];
$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]
