perl学习札记1--键盘输入

从键盘读输入，知道口令正确为止的程序：#!/usr/local/bin/perlprint "Password? "; # Ask for input$a = <STDIN>; # Get inputchop $a; # Remove the newline at endwhile ($a ne "fred") # While input is wrong...{ print "

>>阅读原文<<