learn perl

#!/usr/bin/perl

print "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