learn perl
#!/usr/bin/perlprint "Hello, World...\n";
printf "请问您的姓名?";
$name=<STDIN>;
chop($name);
printf "你好$name，欢迎光临网上学园!\n";
print"请输入一个字符串!\n";
$string=<STDIN>; #<STIDN>代表标准输入,会让使用者输入一字符串
chop($string); #将$string最后一个换行的字符\n删除掉
if($string!~/cgi/)
{#!~不相配运算符
print("输入的字符串中没有cgi这个字符串!\n");#如果输入的字符串中没有cgi这个字符串的话,就会显示出这个信息
}
elsif ($string=~/cgi/)
{#=~相配运算符
print("输入的字符串中有cgi这个字符串!\n");#如果输入的字符串中有cgi这个字符串的话,就会显示出这个信息
}
#读写文件，假设当前目录有一文件名为：test.txt
页:
[1]