已经解决.结贴 脚本 Perl - 不能打印正确的值 (chomp函数)

sunzhiguolu

1. 
   
2. #! /usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my ($input, $flag) = (undef, "y");
   
7. while($flag =~ m/y/i){
   
8.         print "Input a number : ";
   
9.         $input = chomp($input = <STDIN>); #此处应修改为: chomp($input = <STDIN>);
   
10.         if($input =~ m/^[0-9]+$/){
    
11.                 print "\n$input is a number.\n";
    
12.         }else{
    
13.                 print "\n$input is not number.\n";
    
14.         }
    
15. }
    
16. 
    

复制代码

总是显示:
1 is number.

zhlong8

chomp 之后就是去掉换行符的字符串为什么还要再赋值回去？ chomp 的返回值是删除掉的字符数

sunzhiguolu

回复 2# zhlong8
我希望在一条语句内进行字符串的读取及去掉末尾的换行符.

   

104359176

如果

1. >> perl -v

复制代码

返回的版本大于10，就在代码最前面加上：

1. use 5.010;

复制代码

然后用 say, 而不是用 print, say 会立即输出，不会被缓存, 而且不用加回车：

1. use 5.010;
   
2. 
   
3. say 'hello world'

复制代码

这样就能避免很多输出的问题。

Perl 很多函数都是 “破坏性" 的，也就是会把参数的值修改掉, 例如 chomp.

不明白你的代码缩进用 8 个空格，但 if , else 前后都不留一个空格。

sunzhiguolu

回复 2# zhlong8
我懂了,多谢您的提醒: 只需下面的语句即可:

1. chomp ($input = <STDIN>);

复制代码

下面的赋值操作符左侧的 $input 变量只是读取到了chomp操作去掉字符串末尾的换行符的个数.

1. $input = chomp ($input = <STDIN>);

复制代码

多谢您的指点...
   

sunzhiguolu

回复 4# 104359176
前辈,我的代码是从桌面环境 GNOME 2.31.3 pts (不知道叫它什么名字,伪终端对吗?) 中拷贝出来的. 这个终端的关于缩进的配置小弟没有找到,所以才这个样子! 让您见笑了. 还请您指点..

我应该在类似if,else的后面添加一个空格对吗? 是不是其他的操作符也是如此?