Question

perl语言的（关于循环）

open(FILE,"<myfile");

print"WELCOME to JOBSTREET.com";

print"Your name: $name";
chop($name=<STDIN>);

print"Gender: $gender";
chop($gender=<STDIN>);

print"Industry: $industry";
chop($industry=<STDIN>);

print"What job are you seeking for? $job";
chop($job=<STDIN>);

print"Years of Experience: $year";
chop($year=<STDIN>);

print"How much salary do you expect? $expect";
chop($expect=<STDIN>);

print"Date of Availability: $date";
chop($date=<STDIN>);

print"Your name: $name\n";
print"Gender: $gender\n";
print"Industry: $industry\n";
print"What job are you seeking for? $job\n";
print"Years of Experience: $year\n";
print"How much salary do you expect? $expect\n";
print"Date of Availability: $date\n";

close(FILE);

这是我的程序，如何在里面加循环，运行后当我输入一个人的简历，然后显示我输入的简历之后，我按回车 就又重新回到新的简历输入页面，我自己做的循环貌似是死的，各位帮忙

Answer 1

Perl语言因其能够用较少的空间表达复杂的命令而出名，本文将探讨perl语言是如何实现这些功能。

　　我们将从一个最简单的小程序开始，它的功能是从键盘输入字符，然后将其送到控制台。采用perl语言实现，你可以会这样写：

　　while ($line = ) {

　　print $line;

　　}

　　一开始这一程序已十分简洁，但是它的每条语句是什么意思呢?简单地说，是一个专用的文件句柄，在本例中它属于标准输入缓存(称为STDIN)，通常是连接到键盘。每次我们将的值赋给变量$line时，即为将STDIN缓存中的首行取出，然后放入$line。当到达缓存最后一行时，就会取出while语句判断条件为假的(EOF)文件结束标识符。程序的其它部分很简单可以这样解释。现在我们已经将输入信息放入$line变量，接着我们就可以用print函数将其打印到屏幕。或者更准确地说，打印到通常连接显示器的标准输入缓存。标准输入和输出缓存都可以重定向，例如可重定向到保存程序结果的某个文件中，如果是在处理文本，那么通常可以认为这与键盘及显示器是等价的。

　　你可能会认为这一程序已经是最短的了，但是通过使用perl的特殊变量，它还可以更短。

　　默认数据变量：$_

　　Perl有很多特殊变量，它们在程序运行过程中被自动分配，可用于访问程序本身的一些信息，诸如程序名或者进程ID号、命令行参数、或最后一个表达式的运算结果。这些变量中最经常使用也可能是最有用的是$_这一默认变量。如果你在程序中未指明，默认变量作为某个未分配的功能变量，用于保存一些perl结构体和函数的运算结果。在你熟悉perl之前这可能听起来令人费解，但是它的功能的确很强大。我们可以用变量$_来取消程序中的$line变量：

　　while () {

　　print $_;

　　}

　　这一程序和前一个是等价的，即使在测试条件while语句中我们仅使用到一个文件句柄。程序将输入存入到默认变量，所以当我们要输出时就可以用变量$_访问输入的信息。但是我们还可以把程序变得更短，记住我说过，$_是一个用于未定义的实现某个功能的默认变量，这样打印是它其中的一个功能，所以我们现在可以把程序这样来写：

　　while () {

　　print;

　　}

　　现在我们得到实现同样功能的程序，但是该程序消除了所有外部变量。因为我们仅仅是将STDIN和STDOUT连在一起。如果我们能够去掉while循环则会更好，这一循环无非是在重复的将数据从一个缓存移到另一个。这一过程也可以用下面的语句实现：

　　print ;

　　这个程序的工作过程有点复杂。当采用$_实现打印时，我们是将一个变量放在另一个称为标量变量的情况下。简单地说就是它将这一变量看作一个对象，比如可以是一个数或者一个字符，但并不是一个集合。打印函数也可以采用在一组标量的方式，即将变量看作一系列对象，当我们使用打印函数时，它将轮流打印每一个。当我们使用句柄进行打印时，它将把标准输入看作一个字符序列，依次打印。这和while循环实现一样的功能。

　　这可能是一个极端的例子，但是使用一些perl编程技巧，可以将我们的程序长度减少一半。

Answer 2

加入号数标志来控制 当输入-1时终止 或者负数 由while后条件定

open(FILE,"$filename")||die "Cannot open $ filename\n"
print"WELCOME to JOBSTREET.com";
print"No. of : $no";
chop($no=<STDIN>);

while ($no>0)
{
print"Your name: $name";
chop($name=<STDIN>);

print"Gender: $gender";
chop($gender=<STDIN>);

print"Industry: $industry";
chop($industry=<STDIN>);

print"What job are you seeking for? $job";
chop($job=<STDIN>);

print"Years of Experience: $year";
chop($year=<STDIN>);

print"How much salary do you expect? $expect";
chop($expect=<STDIN>);

print"Date of Availability: $date";
chop($date=<STDIN>);
print"Your No.: $n0\n";
print"Your name: $name\n";
print"Gender: $gender\n";
print"Industry: $industry\n";
print"What job are you seeking for? $job\n";
print"Years of Experience: $year\n";
print"How much salary do you expect? $expect\n";
print"Date of Availability: $date\n";

chop($no=<STDIN>);
}
close (FILE);