perl语言编程查寝 共6人 在的人输出yes 不在输出no 代码
时间: 2024-09-11 07:09:29 浏览: 15
Perl语言是一种高级、通用的编程语言,非常适合文本处理。下面是一个简单的Perl脚本,用于检查宿舍内六个人是否在宿舍。这个脚本假设有六个人的名单,并且每个人对应一个标识变量。根据这些变量的值(真或假),脚本将输出每个人是否在宿舍。
```perl
#!/usr/bin/perl
use strict;
use warnings;
# 假设有六个人的名单
my $person1 = 1; # 在宿舍,设置为真
my $person2 = 0; # 不在宿舍,设置为假
my $person3 = 1; # 在宿舍
my $person4 = 1;
my $person5 = 0;
my $person6 = 1;
# 检查每个人的在不在,并输出结果
print "Person 1 is here: ", $person1 ? "yes\n" : "no\n";
print "Person 2 is here: ", $person2 ? "yes\n" : "no\n";
print "Person 3 is here: ", $person3 ? "yes\n" : "no\n";
print "Person 4 is here: ", $person4 ? "yes\n" : "no\n";
print "Person 5 is here: ", $person5 ? "yes\n" : "no\n";
print "Person 6 is here: ", $person6 ? "yes\n" : "no\n";
```
在这个脚本中,我们使用了三元运算符(`? :`),它是一种简短的条件语句。如果条件为真(即变量的值非零),则输出"yes",否则输出"no"。
请注意,这个脚本中的人在不在宿舍是预先设定好的,你可以根据实际情况修改变量的值。