Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -wT
use strict;
...
  my $s2 = <STDIN>;
  print("\$s2= <$s1> \n"); 
};

Select or download this


perl>  echo -ne "hello\x0aWorld" | ./pipe_x-1.pl  # try \n
...

perl>  echo -ne "hello\x09World" | ./pipe_x-1.pl  # try \t
$s1= <hello     World>