Newbie File Question

[Janek Schleicher]

Kubaton Lover wrote at Fri, 22 Aug 2003 14:17:51 +0000:

> I have a perl script that currently opens a file and prints its contents to
> the web browser like so...
>
> open (CODE, $file) || die;
> while (<CODE>) {
> print $_;
> }
> close CODE;
>
>
> I need to change the code to read and output just the first line, then I'll
> output some custom stuff, then I need to output the rest of the file;
> something like the following pseudocode:
>
> open (CODE, $file) || die;
> print first line;
> print my stuff here;
> print rest of file;
> close CODE;
>
> Your help is appreciated.

E.g.

open CODE, $file or die $!; # I would also add the error code
print scalar <CODE>; # print first line
print $your_stuff;
while (<CODE>) {
print; # the $_ is redundant here
}
close CODE;


Greetings,
Janek

[Anno Siegel]

Janek Schleicher <bigj@kamelfreund.de> wrote in comp.lang.perl.misc:

> Kubaton Lover wrote at Fri, 22 Aug 2003 14:17:51 +0000:

[[[.]

> > I need to change the code to read and output just the first line, then I'll
> > output some custom stuff, then I need to output the rest of the file;
> > something like the following pseudocode:
> >
> > open (CODE, $file) || die;
> > print first line;
> > print my stuff here;
> > print rest of file;
> > close CODE;
> >
> > Your help is appreciated.

>
> E.g.
>
> open CODE, $file or die $!; # I would also add the error code
> print scalar <CODE>; # print first line

To make it watertight add a check for eof():

print scalar <CODE> unless eof( CODE);

Otherwise it will try to print an undefined value if the input file
is empty.

> print $your_stuff;
> while (<CODE>) {
> print; # the $_ is redundant here
> }
> close CODE;

Anno