Perl学习笔记-标量数据

lovegigi

• Perl没有整数，被当做双精度浮点数来处理。
  
• 可以使用下划线来分隔数字，例如10_000_000_000。
  
• 八进制0开头，十六进制0x，二进制0b。
  
• 2 ** 3，表示2的三次方，所以你可以使用2 ** 32看看Java 的Int范围有多大。
  
• 字符串就是字符的组合。有两种类型，一种是单引号，一种是双引号。跟PHP一样，双引号能对里面的变量或者转义字符进行解析。
  
• 字符串连接是用点.不是用加号+连接。
  
• 字符重复操作符用字幕x表示，例如 "fred" x 3表示，显示fredfredfred
  
• Perl知道如何在字符串和数字之间转换，如果连接符是+表示成数字，如果连接符是点，表示成字符串。
  
• perl -w可以显示warning信息。
  
• 变量使用$开头的字符串。
  
• 双引号字符串可以解析$变量的内容。
  
• 对于没有复制的变量，如果是数字，使用0，如果是字符串，使用""。
  
• Perl没有boolean类型，0, 空字符，undef都为false，其他都为true。
  
• 用户输入使用<STDIN>来获取。例如 $line = <STDIN>
  
• chomp可以把字符串的"\n"给过滤掉，所以使用<STDIN>的时候可能会用的，返回的数值表示过滤的字符个数。chomp($line)之后可以直接对$line进行操作。
  
• <STDIN>可以返回undef。到了文件的结束的时候会返回undef。可以用函数define($line)来判断是否已经读到文件的结尾了。
  

　　答案：
　　$r1 = <STDIN>;
$r2 = <STDIN>;
chomp($r2);
print $r1 x $r2;
#print "abc\n" x $r2;
　　
#$r1 = <STDIN>;
#chomp($r1);
#$r2 = <STDIN>;
#chomp($r2);
#print $r1 * $r2;
　　#$r = <STDIN>;
#chomp($r);
#if ($r < 0) {
#print 0;
#} else {
#print $r * 2 * 3.1415926;
#}