#!/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