perl小程序

#!/usr/bin/perl

$count=0;

while($count < 100){

print "\n\n\n\n";

print "please input password: \n";

$count+=2;

#print "$count \n";

$ftp=1;

$news=2;

$zhaoyun=3;

$postfix=4;

$oracle=5;

$ntp=6;

$line=<STDIN>;

if($line eq "$ftp\n"){

  print "ftp \n";

  $a=`cat /etc/passwd |grep ftp | sed -n 1p`;

  print $a;}else{

  if($line eq "$news\n"){

     $a=`cat /etc/passwd |grep news | head -n 1`;

     print $a;

    print "news \n";}else{

    if($line eq "$zhaoyun\n"){

     $a=`cat /etc/passwd |grep zhaoyun | head -n 1`;

      print "zhaoyun \n";}else{

      if($line eq "$postfix\n"){

        $a=`cat /etc/passwd |grep postfix | head -n 1`;

        print $a;

        print "postfix \n";}else{

        if($line eq "$oracle\n"){

         $a=`cat /etc/passwd |grep oracle | head -n 1`;

          print $a;

          print "oracle \n";

            }else{

          if($line eq "quit\n"){

            exit;}else{

            if($line eq "$ntp\n"){

              $a=`cat /etc/passwd |grep ntp | head -n 1`;

              print $a;

              print "ntp \n";}else{

              print "password input error! \n";

             }

            }

          }

        }

      }

     }

   }  

  }

实现输入对应的数字，打印相应的内容。

[root@bogon perl]# ./test

please input password: 

1

ftp 

ftp:x:14:50:FTP User:/var/ftp:/sbin/nologin

2

news:x:9:13:news:/etc/news:

news 

3

zhaoyun:x:500:501::/home/zhaoyun:/bin/bash

zhaoyun 

fd

password input error! 

quit

[root@bogon perl]# 

本文转自zhaoyun00 51CTO博客，原文链接:http://blog.51cto.com/zhaoyun/726591