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

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » File » file write 
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: +>
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.