perl demo

#! usr/bin/perl
$sss = "test";
$sss2 = 3; #变量的定义
print "fred ate $sss2 \n";
print "hello"; #必须加分号



#print "fred ate $n \n"

 因为学习flex也学了点perl

#chomp去掉变量中的换行符号
$hello="hello world \n";
print "$hello";#输出换行
chomp($hello);
print $hello;#不换航

 

#if的用法
$bool="hello";
if($bool){
 print "bool is true";
}

if(1){
    print "true \n";
  }

$ifelse="0";
if($ifelse){
  print "ifelse true"
}else{
   print "false";#输出false
   
  }
  
 ##如果值为字符串，则空串(‘’)为false；其余为真
 #如果值的类型既不是数字又不是字符串，则将其转换为数字或字符串后再利用上述规则◆。
#◆这意味着undef（很快会看到）为false。所有的引用（在Alpaca 书中有详细讨论）都是true。
#这些规则中有一个特殊的地方。由于字符串‘0’和数字0 有相同的标量值，Perl 将它们相同看待。也就是说字符串‘0’是唯一
#一个非空但值为0 的串。
#如果想得到相反的值，可以使用一元非运算符! 。如果其后面的是true，则得到false；反之，则得到true：

 

 

#while 用法
$whiles=10;
while($whiles>1){
    $sum+=$whiles;
    $whiles-=1;
  
  }
  print "$sum";#输出54
  
  $line = <STDIN>; #去得控制台输入
if($line eq "\n"){
print "That was just a blank line\n";
}else{
print "That line of input was: $line";
}
#实际上，通常你不需要保留换