使用Shell脚本访问文件内容

Question

我需要从文件中获取用户名和密码，并在脚本中使用它

我的文件如下所示（netrc是我的文件名）

machine ftp.test.net  login test_user  password test_pass
machine ftp1.test.net login test_user1 password test_pass1

我想编写一个函数来访问文件并获取特定计算机的用户名和密码

netrc()
       {
        machine=ftp.test.net
       $netrc="$home/.netrc";
      open(NETRC,$netrc)
      open(NETRC, $netrc) || die &applog("can't open $netrc\n");

      while(<NETRC>) {

 Last if $line eq "done\n:";
 next if (/^\s*$/);                #ignore blank lines 
 next if (/^\s*#/);                #ignore '#' comments

 @words = split; 
 $ip_address="$words[1]";

 if ($ip_address eq $machine)  {
     $login_user="$words[3]";
     $pass_code="$words[5]";
    last
 }
 else {
    next
 }
      }
             $machine="";
            @_="";
          close NETRC;

我想将上述perl脚本转换为unix