Writing out part of a file

[Kubaton Lover]

This is a newbie question I'm sure, but I couldn't find a "good" way to
handle this problem.

I have an XML file that is being read by a Perl script. The fact that it is
XML is superfluous.

I want to open the file, print the first 2 lines of the file out, then print
out a line or two of something else, then print out the remaining portion of
the file.

I tried:

while (<CODE>) {
print $_;
last;
}
print "my stuff here\n";
while (<CODE>) {
print $_;
}

This works fine for printing just the first line of the file and I figure
that I could add a counter and break out when that counter reaches a certain
number, but is there a "better" (more efficient) way to accomplish this
task?

Thanks.

[J. Gleixner]

Kubaton Lover wrote:

> This is a newbie question I'm sure, but I couldn't find a "good" way to
> handle this problem.
>
> I have an XML file that is being read by a Perl script. The fact that it is
> XML is superfluous.
>
> I want to open the file, print the first 2 lines of the file out, then print
> out a line or two of something else, then print out the remaining portion of
> the file.
>
> I tried:
>
> while (<CODE>) {
> print $_;
> last;
> }
> print "my stuff here\n";
> while (<CODE>) {
> print $_;
> }
>
> This works fine for printing just the first line of the file and I figure
> that I could add a counter and break out when that counter reaches a certain
> number, but is there a "better" (more efficient) way to accomplish this
> task?
>
> Thanks.
>
>

open (F, "<file") || die "$!";
print "First=",scalar <F>; #or into a variable .. my $l1 = <F>;
print "Second=", scalar <F>;
print "Rest is:\n";
while (<F>)
{
print;
}
close F;

Or, if your file is fairly small, just slurp it all into an array then
print the various indexes of the array.

[Tad McClellan]

Kubaton Lover <nospam@goawayspam.com> wrote:

> I want to open the file, print the first 2 lines of the file out, then print
> out a line or two of something else, then print out the remaining portion of
> the file.

# untested
print scalar <CODE>;
print scalar <CODE>;
print "my stuff here\n";
print while <CODE>;


--
Tad McClellan SGML consulting
[email]tadmc@augustmail.com[/email] Perl programming
Fort Worth, Texas

[Kubaton Lover]

"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnbmm85s.gk0.tadmc@magna.augustmail.com...

> Kubaton Lover <nospam@goawayspam.com> wrote:
>

> > I want to open the file, print the first 2 lines of the file out, then

print

> > out a line or two of something else, then print out the remaining

portion of

> > the file.

>
>
> # untested
> print scalar <CODE>;
> print scalar <CODE>;
> print "my stuff here\n";
> print while <CODE>;
>
>
> --
> Tad McClellan SGML consulting
> [email]tadmc@augustmail.com[/email] Perl programming
> Fort Worth, Texas

Poifect! I knew it had to be easier than I was making it.

[Anno Siegel]

Tad McClellan <tadmc@augustmail.com> wrote in comp.lang.perl.misc:

> Kubaton Lover <nospam@goawayspam.com> wrote:
>

> > I want to open the file, print the first 2 lines of the file out, then print
> > out a line or two of something else, then print out the remaining portion of
> > the file.

>
>
> # untested
> print scalar <CODE>;
> print scalar <CODE>;
> print "my stuff here\n";
> print while <CODE>;

If the CODE file doesn't have two lines, this runs a bit bumpy.

I actually liked the OPs solution just fine. Using a while-loop to print
a fixed number of lines may look like overkill, but it handles marginal
cases better. Considering that $. is already there to count input lines,
it becomes

while ( <CODE> ) {
print;
last if $. == 2;
}
print "'***my stuff***^\n";
print while <CODE>;

That's what I would use.

Anno