learn perl
来源:互联网 发布:猫狗动画片知乎 编辑:程序博客网 时间:2024/06/06 03:17
#!/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
- learn perl
- Learn Perl in Y minutes
- Learn Web.Crawling of Perl
- Learn Web.Development of Perl
- Learn Perl 七~九章 正则表达式 要点整理
- Learn Perl in about 2 hours 30 minutes
- learn
- learn
- perl
- Perl
- perl
- perl
- Perl
- perl
- perl
- perl
- Perl
- perl
- 用sysdeo的tomcatplugin整合最新版的eclipse 3.0和Tomcat5.0.27,构建jsp环境
- 发现一个专么收集Google图标的有趣站点
- 又收到几份答案
- oracle里常用命令
- The Perl Tutorial: Running a Perl Program (2)
- learn perl
- 起点即终点――访雷爵资讯副总杨瑞琨
- 逃离象牙塔――辍学游戏人面面观
- Perl Programming Language
- 色环
- 不甘心
- nec KCD经验
- 使用 Eclipse 插件来编辑、编译和调试应用程序(zz from chianitlab.com)
- UTF & C 之1:Unicode and UTF-8