perl chomp

在寻找k_word时，为了去打末尾的换行符，使用chomp;但

在windows下创建的的文件，读取一行，如一行为  weather 　　把它赋值为$str，然后print length($str)，得到8；chomp $str; print length($str) 得到7

同样在linux创建同样的文件，一样操作，结果也一样；

但问题，在linux下创建的文件，上传到linux下，一样操作，得到的是9，8；

可能是windows下的换行符是\r\n ；linux下是\n; 但window下的chomp  $str 去掉的是\r\n,而linux下的chomp只是去掉\n

所有在lwindow下的文件移到linux是 去换行应 chomp $seq  ; $seq=~s/\r//;