perl的标准输入STDIN

perl的标准输入stdin

  1. #!/usr/bin/perl
  2. print "wait stdin:";
  3. $sr = <STDIN>;
  4. if ( $sr eq "\n" ){
  5.    print "just a blank line \n"
  6. }else{
  7.    print "the data of input is $sr"
  8. }

相比shell比较奇怪的是输入为空,perl的判断却是”\n” 换行符!

  1. #!/bin/bash
  2. read a
  3. if [ -z $a ];then
  4. echo "blank line!"
  5.  else
  6.  echo a
  7. fi
1 1