لقد قمت بمحاولة إضافة كود بيرل إلى منتدى اليو بي بي خاصتي ولكن يبدو أن هذه الإضافة في خطأ لغوي بالبيرل.
هذا هو الكود
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
if ($Gender eq "Male) {
$Stars = qq(if ($ThisStatus eq "Administrator") {
$ThisStatus = qq($AdminTitle<br><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"> );
}
elsif ($ThisStatus eq "Moderator") {
$ThisStatus = qq($ModeratorTitle<br><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"> );
}
elsif ($ThisStatus eq "Member") {
$ThisStatus = qq($MemberTitle<br><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"> );
} else {
$ThisStatus = qq($JrMemberTitle<br><img src=\"$NonCGIURL/$MaleGif\"> );
}
if ($thisprofile[7] > 99) {
$ThisStatus = qq(Crazy Poster<br><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"> );
}
if ($thisprofile[7] > 199) {
$ThisStatus = qq(Insane Poster<br><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"> );
}
if ($thisprofile[7] > 499) {
$ThisStatus = qq(Freak<br><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"> );
}
if ($thisprofile[7] > 999) {
$ThisStatus = qq(No Life<br><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"><img src=\"$NonCGIURL/$MaleGif\"> );
}
});
}
else ($Gender eq "Female") {
$Stars = qq(if ($ThisStatus eq "Administrator") {
$ThisStatus = qq($AdminTitle<br><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"> );
}
elsif ($ThisStatus eq "Moderator") {
$ThisStatus = qq($ModeratorTitle<br><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"> );
}
elsif ($ThisStatus eq "Member") {
$ThisStatus = qq($MemberTitle<br><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"> );
} else {
$ThisStatus = qq($JrMemberTitle<br><img src=\"$NonCGIURL/$FemaleGif\"> );
}
if ($thisprofile[7] > 99) {
$ThisStatus = qq(Crazy Poster<br><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"> );
}
if ($thisprofile[7] > 199) {
$ThisStatus = qq(Insane Poster<br><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"> );
}
if ($thisprofile[7] > 499) {
$ThisStatus = qq(Freak<br><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"> );
}
if ($thisprofile[7] > 999) {
$ThisStatus = qq(No Life<br><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"><img src=\"$NonCGIURL/$FemaleGif\"> );
}
});
}
elseif ($Gender eq "Unknown") {
$Stars = qq(if ($ThisStatus eq "Administrator") {
$ThisStatus = qq($AdminTitle<br><img src=\"$NonCGIURL/$Unknown\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"> );
}
elsif ($ThisStatus eq "Moderator") {
$ThisStatus = qq($ModeratorTitle<br><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"> );
}
elsif ($ThisStatus eq "Member") {
$ThisStatus = qq($MemberTitle<br><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"> );
} else {
$ThisStatus = qq($JrMemberTitle<br><img src=\"$NonCGIURL/$UnknownGif\"> );
}
if ($thisprofile[7] > 99) {
$ThisStatus = qq(Crazy Poster<br><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"> );
}
if ($thisprofile[7] > 199) {
$ThisStatus = qq(Insane Poster<br><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"> );
}
if ($thisprofile[7] > 499) {
$ThisStatus = qq(Freak<br><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"> );
}
if ($thisprofile[7] > 999) {
$ThisStatus = qq(No Life<br><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"><img src=\"$NonCGIURL/$UnknownGif\"> );
}
});
}
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>
___________________________
وهذا هو الخطأ الناتج:
Bareword found where operator expected at /ubb_library2.pl line 508, near "$Stars = qq(if ($ThisStatus eq "Administrator"
(Might be a runaway multi-line "" string starting on line 507)
(Missing operator before Administrator?)
syntax error at /ubb_library2.pl line 508, near "$Stars = qq(if ($ThisStatus eq "Administrator"
String found where operator expected at /ubb_library2.pl line 511, near "elsif ($ThisStatus eq ""
(Might be a runaway multi-line "" string starting on line 508)
(Missing semicolon on previous line?)
Bareword found where operator expected at /ubb_library2.pl line 511, near "elsif ($ThisStatus eq "Moderator"
(Do you need to predeclare elsif?)
String found where operator expected at /ubb_library2.pl line 514, near "elsif ($ThisStatus eq ""
(Might be a runaway multi-line "" string starting on line 511)
(Missing semicolon on previous line?)
Bareword found where operator expected at /ubb_library2.pl line 514, near "elsif ($ThisStatus eq "Member"
(Do you need to predeclare elsif?)
String found where operator expected at /u