Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
while(<PIPE>) {print; last if $i++ >=1000; }

close(PIPE) or die "Quit with exit status: $? message: $!" ;
  2. or download this
     
#prog printsth 
#!/usr/bin/perl -w

print "hi there", $/ while(1);
  3. or download this
    hi there
....
...
hi there
hi there
Quit with exit status: 13 message:  at termpipe line 7.