can you post the exact format of your include line
and what is the logic to map the base to actual values.
in
base/includefile.ext
how do we get to know the value of base
here is a general solution assumin that tha format of your include line is
include "base/filename.extenction"
all the nasses should be stored in a hash
called %baseHash stored in a hash
my $outStr = makeOutput("Source_File_Name");
open(OUT, ">Output_File_Name");
print OUT $outStr;
close(OUT);
sub makeOutput($){
my ($source) = @_;
my $fText = file2Str($source);
$fText =~
s/include\s"(w+)\/(w+\.w+)"/$baseHash{$1}\/makeOutput($2)/emg;
return $fText;
}
sub file2Str($){
my ($fn) = @_;
open(FH, "<$fn");
my @fLines = <FH>;
close(FH);
return join('', @fLines);
}
________________________________________
Rakhitha Karunarathne
Web Master
www.Ad-Man.tk - Free Unlimited Banner Rotators
________________________________________
> ----- Original Message -----
> From: "Girish N" <[EMAIL PROTECTED]>
> To: "'LRMK'" <[EMAIL PROTECTED]>
> Sent: Wednesday, May 26, 2004 6:10 PM
> Subject: RE: need help(urgent)
>
>
> > Hey
> > Thanks a lot for the help
> > But I have one more problem....sorry to bother u but this is kind of
> > urgent...
> > Include statement in my code looks like this
> >
> > include $(BASE_DIR)/make_include
> >
> > I need to get the value of the $(BASE_DIR) and then open the file
> > base/make_include
> > Can u plz tell me how to do that......i am bad at pattern
matching....and
> I
> > need to finish this today....
> >
> > Plz reply back
> > Thanks & Regards
> > Girish
> >
> >
> >
> > -----Original Message-----
> > From: LRMK [mailto:[EMAIL PROTECTED]
> > Sent: Wednesday, May 26, 2004 5:11 PM
> > To: Girish N
> > Cc: [EMAIL PROTECTED]
> > Subject: Re: need help(urgent)
> >
> > try this, this should work
> >
>
____________________________________________________________________________
> > __________________________________
> >
> >
> > #Pass the file name as a parameter
> > sub printFile($){
> > my ($fname) = @_;
> >
> > #Load the spesified file
> > my @lines = readFile($fname);
> > chomp @lines;
> >
> >
> > foreach my $line (@lines){
> >
> > if ($line =~ m/include\s"(\w+\.\w+)"/i){ # check for the
include
> > line
> > printFile($1);
> > }else{
> > print "$line\n";
> > }
> > }
> >
> >
> >
> >
> > }
> >
> > sub readFile($){
> > my ($fname) = @_;
> > open(FH, "<$fname") or die $!;
> >
> > my @fLines= <FH>;
> > close(FH);
> >
> > return @fLines;
> >
> > }
> >
> >
> >
> >
> >
> >
> >
> > ________________________________________
> > Rakhitha Karunarathne
> > Web Master
> > www.Ad-Man.tk - Free Unlimited Banner Rotators
> > ________________________________________
> >
> >
> >
> > ----- Original Message -----
> > From: "Girish N" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Wednesday, May 26, 2004 4:49 PM
> > Subject: need help(urgent)
> >
> >
> > > Hi All
> > >
> > > I am stuck with this script which I need to finish today...
> > >
> > >
> > >
> > > What I am supposed to do is
> > >
> > > 1) parse a file and search for included files and insert those
> > > included files in the file.
> > >
> > > Eg.
> > >
> > > File1
> > >
> > > Lkdfs
> > >
> > > Sdfdsfds
> > >
> > > Sdfsdf
> > >
> > > Include "one.txt"
> > >
> > > Sdfdsf
> > >
> > > Sdfsdf
> > >
> > > Werewr
> > >
> > > Tytry
> > >
> > >
> > >
> > > Where one.txt is
> > >
> > > A
> > >
> > > B
> > >
> > > C
> > >
> > > D
> > >
> > > E
> > >
> > > F
> > >
> > >
> > >
> > > The expected result is
> > >
> > >
> > >
> > > File2
> > >
> > > Lkdfs
> > >
> > > Sdfdsfds
> > >
> > > Sdfsdf
> > >
> > > A
> > >
> > > B
> > >
> > > C
> > >
> > > D
> > >
> > > E
> > >
> > > F
> > >
> > > Sdfdsf
> > >
> > > Sdfsdf
> > >
> > > Werewr
> > >
> > > Tytry
> > >
> > >
> > >
> > >
> > >
> > > Please help me with this ....
> > >
> > > Thanks in advance
> > >
> > > Girish
> > >
> > >
> >
> >
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
