我想将这个PHP代码转换为Perl plzz帮助

<？php

$ servername ='localhost';

$ username ='root';

$ password ='helloworld ';

$ dbname ='campus';



//创建连接

$ conn = mysqli_connect（ $ servername，$ username，$ password，$ dbname）;

//检查连接

ini_set（'display_errors'，1）;

error_reporting（E_ALL）;

if（！$ conn）

{

die（Connection failed：。mysqli_connect_error（））;
}

$ adminuser = $ _POST [textname];

$ adminpass = $ _POST [pass];

$ sql =SELECT名称，密码FROM admin其中name ='$ adminuser'和password ='$ adminpass';;

$ result = mysqli_query（$ conn，$ sql） ;

if（mysqli_num_rows（$ result）> 0）

{

echo欢迎$ adminuser
;

$ sql2 =SELECT * FROM company;;

$ result2 = mysqli_查询（$ conn，$ sql2）;

if（mysqli_num_rows（$ result2））

{

echotable，th，td {

边框：1px纯黑色; ;

echo;

// echo;

echo公司详情;

echo;

echo
;

while（$ row = mysqli_fetch_assoc（$ result2））

{

echo;

echo ;

echo ;

echo ;

echo 
;

}

echo;

echo

名称
姓名	发布职位	薪水	GPA	电子邮件
。 $ row [name]。	。 $ row [post_job]。	。 $ row [salary]。	。 $ row [eligibility_criteria]。	。 $ row [email]。

;

echo







;

$ sql3 =SELECT *来自学生; ;

$ result3 = mysqli_query（$ conn，$ sql3）;

if（mysqli_num_rows（$ result3））

{

echotable，th，td {

border：1px solid black;

};

echo学生详细信息
;

echo              &nbsp ;       
;

echo;

while（$ row = mysqli_fetch_assoc（$ result3） ）

{

echo ;

// echo;

echo  ;

echo ;

echo ;

echo ;

echo ;

echo ;

echo ;

回声  ;

echo  ;

echo  ;

echo 
;

}

echo'';

echo'

NAME 次>	MOB.NO 次>	性别次>	EMAIL 次>	PREF.LOC 次>	ADDRESS 第二，第二语言第二语言第三语言第三语言							>
。 $ row [name]。	手机号	。 $ row [mobile_no]。	。 $ row [性别]。	。 $ row [email]。	。 $ row [preferred_loc]。	。 $ row [地址]。	。 $ row [sslc]。	。 $ row [hsc]。	。 $ row [cgpa]。	。 $ row [languages]。	。 $ row [实习]。	。 $ row [applied_job]。

';

echo LOGOUT ;

}

}

}

else

{

echo用户名或密码无效;

echo返回;

}

mysqli_close（$ conn）;

？ >



我尝试了什么：



我需要它来回我的学校迷你项目

<?php
$servername = 'localhost';
$username = 'root';
$password = 'helloworld';
$dbname = 'campus';

// Create connection
$conn = mysqli_connect($servername, $username, $password, $dbname);
// Check connection
ini_set('display_errors', 1);
error_reporting(E_ALL);
if(!$conn)
{
die("Connection failed: " . mysqli_connect_error());
}
$adminuser = $_POST["textname"];
$adminpass = $_POST["pass"];
$sql = "SELECT name,password FROM admin where name='$adminuser' and password='$adminpass';";
$result = mysqli_query($conn, $sql);
if(mysqli_num_rows($result) > 0)
{
echo "Welcome $adminuser
" ;
$sql2 = "SELECT * FROM company;";
$result2 = mysqli_query($conn, $sql2);
if(mysqli_num_rows($result2))
{
echo "table, th, td {
border: 1px solid black;" ;
echo "" ;
//echo "" ;
echo "Company Details" ;
echo "" ;
echo "
" ;
while($row = mysqli_fetch_assoc($result2))
{
echo "" ;
echo "   " ;
echo "   " ;
echo "   " ;
echo "  
" ;
}
echo "" ;
echo "

Name
Name	Post Job	Salary	GPA	Email
" . $row["name"] . "	" . $row["post_job"] . "	" . $row["salary"] . "	" . $row["eligibility_criteria"] . "	" . $row["email"] . "

" ;
echo "










" ;
$sql3 = "SELECT * from students ;" ;
$result3 = mysqli_query($conn,$sql3);
if(mysqli_num_rows($result3))
{
echo "table, th, td {
border: 1px solid black;
}" ;
echo "Student Details
" ;
echo "                                            
" ;
echo "" ;
while($row = mysqli_fetch_assoc($result3))
{
echo "   " ;
//echo "" ;
echo "   " ;
echo "   " ;
echo "   " ;
echo "   " ;
echo "   " ;
echo "   " ;
echo "   " ;
echo "   " ;
echo "   " ;
echo "   " ;
echo "  
" ;
}
echo '' ;
echo '

NAME	MOB.NO	GENDER	EMAIL	PREF.LOC	ADDRESS	SSLC	HSC	CGPA	LANGUAGES	INTERNSHIPS	APPLIED JOB
" . $row["name"] . "	Mobile No	" . $row["mobile_no"] . "	" . $row["gender"] . "	" . $row["email"] . "	" . $row["preferred_loc"] . "	" . $row["address"] . "	" . $row["sslc"] . "	" . $row["hsc"] . "	" . $row["cgpa"] . "	" . $row["languages"] . "	" . $row["internships"] . "	" . $row["applied_job"] . "

' ;
echo "LOGOUT";
}
}
}
else
{
echo "Invalid username or password" ;
echo "BACK" ;
}
mysqli_close($conn);
?>

What I have tried:

I need it fro my school mini project