perl 语言学习——从C/C++到perl
2012-03-24 10:31
260 查看
use strict;
use warnings;
#数值比较大小和字符串比较大小
my $str1="1 -the first str";
my $str2="1 - the second str";
if($str1==$str2)
{
print "numerically equal\n";
}
if($str1 eq $str2)
{
print "stringwise equal\n" ;
}
print "a.b"."haha"
有用的测试样例:
use strict;
use warnings;
my $x=1;
if($x)
{
print "x:yes\n";
}
my $y=0;
if($y)
{
print "y:yes\n";
}
my $z=0.0;
if($z)
{
print "z:yes\n";
}
my $a="0";
if($a)
{
print "a:yes\n";
}
my $b='00';
if($b)
{
print "b:\yes\n" ;
}
my $c= "0.0";
if($c)
{
print "c:yes\n";
}
my $d="";
if($d)
{
print "d:yes\n";
}
my $e=" ";
if($e)
{
print "e:yes\n"
}
my $g="0";
if($g==$c)
{
print "numerically equal" ;
}
if($g eq $c)
{
print "string-wise equal";
}
use warnings;
#数值比较大小和字符串比较大小
my $str1="1 -the first str";
my $str2="1 - the second str";
if($str1==$str2)
{
print "numerically equal\n";
}
if($str1 eq $str2)
{
print "stringwise equal\n" ;
}
print "a.b"."haha"
有用的测试样例:
use strict;
use warnings;
my $x=1;
if($x)
{
print "x:yes\n";
}
my $y=0;
if($y)
{
print "y:yes\n";
}
my $z=0.0;
if($z)
{
print "z:yes\n";
}
my $a="0";
if($a)
{
print "a:yes\n";
}
my $b='00';
if($b)
{
print "b:\yes\n" ;
}
my $c= "0.0";
if($c)
{
print "c:yes\n";
}
my $d="";
if($d)
{
print "d:yes\n";
}
my $e=" ";
if($e)
{
print "e:yes\n"
}
my $g="0";
if($g==$c)
{
print "numerically equal" ;
}
if($g eq $c)
{
print "string-wise equal";
}
相关文章推荐
- Perl语言学习笔记(二) 标量数据
- C/C++语言深入学习篇
- 从Android/Java基础之上学习C/C++语言(8)--C语言基础--预编译
- C++语言——99个常见编程编程 学习小结
- STL学习笔记----C++的新语言特性
- Boa----Perl语言的学习
- C++ 语言实现 BP 神经网络实例,手把手一句一句敲代码实现训练学习,模式识别 - (1)
- 开始学习C++——第一篇 语言、编译器和开发环境的区别(摘自kriswj 百度)
- C++程序设计语言特别版 学习笔记(0)
- C/C++语言函数学习(1):atexit、exit、return
- Perl语言学习笔记 13 目标操作
- C/C++语言函数学习(4)字符串处理函数
- C/C++学习札记1:C语言指针5分钟教程
- C++程序设计语言学习笔记(三)
- Perl和C、C++等语言通信的编程方法
- c++ 学习笔记之语言基础
- 从Android/Java基础之上学习C/C++语言 --目录
- C/C++语言函数学习(3)STL中map容器
- 学习C/C++语言:判断是否为闰年
- C/C++语言学习——内存分配管理