Write ten lines of text to a pipe : file write « File « Perl






Write ten lines of text to a pipe

    


#!/usr/bin/perl


use strict;
open (PIPE,"| yourFile.txt") or die "Can't open pipe: $!";
select PIPE; 
$|=1; 
select STDOUT;

my $count = 0;
for (1..10) {
  print PIPE "line number $_\n" and $count++;
  sleep 1;
}
close PIPE or die "Can't close pipe: $!";

print "Wrote $count lines of text\n";

   
    
    
    
  








Related examples in the same category

1.Write array to a file
2.Write data to file
3.Write unpack data to a file
4.Writes to the standard error file.
5.Save formatted data to a file
6.Save hash value to a file
7.Save new line character to a file
8.Save packed data to a file
9.Print data to a file
10.Copying files
11.File read and write
12.Merges two files.
13.Shuffle a file?
14.Sort a file
15.Creating a file with the numbers 0-9: +>