Please help us help you:

• Post sample input.
• Post the output your existing code produces given the sample input.
• Post 5 to 25 lines of code that is capable of reproducing this output.
• Post the sample output you actually desire.

My file looks something like this

 

    FILENAME: tes.txt
 
 
           FileName:                                                  
+      
           Function:                                                  
+      
          Written by:                                                 
+       
                                                      
                                                                      
+      
 
  REVISION 
  -Rev. -- Date --------------------------------------------------
    00   11/11/11      Initial release.
    01   12/04/12      Edited
    01   12/04/12      Final
    02   01/10/13    Sispatched
  
 ----------------------------------------------------------------*/
 
 
 
 
 
  DATA LIST 
 
/*========= List =========*/ 
 

Currency ............. cotd
[download]

the output I desire is this

FILENAME: tes.txt
 
 
           FileName:                                                  
+      
           Function:                                                  
+      
          Written by:                                                 
+       
                                                      
                                                                      
+      
 
  REVISION 
  -Rev. -- Date --------------------------------------------------
    00   11/11/11      Initial release.
    01   12/04/12      Edited
    01   12/04/12      Final
    02   01/10/13    Sispatched
  
 ----------------------------------------------------------------*/
 
 
 
 
 
  DATA LIST
[download]

what I am getting is all the words in a same line

perl -pe '/========= List =========/ and exit;' infile > outfile

... or is the requirement more complex than specified?

Where's the code?

Update: Nevermind, I see you've posted it in response to another follow-up in this thread.




Dave

So please help

Sure, post your code ... How do I post a question effectively?

sub To_header
{
  my $ff;
  my $iz;
     open($ff,">hr.txt");
      for ($iz=0;$iz<=$temp[0];$iz++)
      {
        print $ff "$words[$iz]" ;
      }
      
}
[download]

here words is an array of words of file and temp[0] has the address till where I wish to print and I am printing it in hr.txt

Ok, here is my commentary

sub To_header
{
    my( $outfile, $startix, $endix , $words ) = @_;
    use autodie;
    open my($outfh), '>', $outfile ; ## or die by autodie
    for my $ix ( $startix .. $endix ){
        print $outfh $words->[ $ix ];
    }
    close $outfh;
}
To_header( 'hr.txt', 0, $temp[0], \@words );
[download]

If you want something more specific you'll have to provide more details as How do I post a question effectively? and davido explain

use strict;
use warnings;
while (<DATA>) {
    print if /FileName/ .. /DATA LIST/;
}
__DATA__
          FileName:                                                  
+      
           Function:                                                  
+      
          Written by:                                                 
+       
                                                      
                                                                      
+      
 
  REVISION 
  -Rev. -- Date --------------------------------------------------
    00   11/11/11      Initial release.
    01   12/04/12      Edited
    01   12/04/12      Final
    02   01/10/13    Sispatched
  
 ----------------------------------------------------------------*/
 
 
 
 
 
  DATA LIST 
 
/*========= List =========*/ 
 

Currency ............. cotd
[download]

How about this?

#!/usr/bin/perl 
use strict;

open (INPUT, "<", "inputfile.txt");
open (OUTPUT, ">", "outputfile.txt");

while (<INPUT>)
    {
        print OUTPUT "$_";
        last if $_ =~ m/DATA LIST/;
    }

close INPUT;
close OUTPUT;
[download]

Hope you find your answer...