Convert makefile to Perl

Sara has asked for the wisdom of the Perl Monks concerning the following question:

hello guys , can you give me a hint to r-write this shell script to perl , I am having hard time only on the for loop part :

LS          =  /bin/ls
MV          =  /bin/mv
TR          =  /bin/tr
AWK         = /opt/corp/sir/nbss/tools/utils/gawk

NOIMGEN     =  ../../../nbsstools/noisgen/bin/noimgen
NOIPGEN     =  ../../../nbsstools/noisgen/bin/noipgen

OBJDIR      =  $(NOIVERDIR)/obj

compile:

setup:
    @if [ ! -d $(OBJDIR) ]; then mkdir $(OBJDIR); fi

genfiles: setup
    @cd ../src; for PDL in `$(LS) *.pdl | $(TR) '.' ' ' | $(AWK) '{pri
+nt $$1}'`; do \
        if [ ! -f $${PDL}.cxx -o $${PDL}.pdl -nt $${PDL}.cxx ]; then  
+\
        echo Generating $${PDL}... ; \
        $(NOIPGEN) $${PDL}.pdl >> $(OBJDIR)/noipgen.err 2>&1; \
        fi  \
    done
    @if [ -f $(OBJDIR)/noipgen.err ]; then $(MV) $(OBJDIR)/noipgen.err
+ $(OBJDIR)/noipgen.debug; fi
    @cd ../src; for MDL in `$(LS) *.mdl | $(TR) '.' ' ' | $(AWK) '{pri
+nt $$1}'`; do \
        if [ ! -f $${MDL}.cxx -o $${MDL}.mdl -nt $${MDL}.cxx ]; then  
+\
        echo Generating $${MDL}... ; \
        $(NOIMGEN) $${MDL}.mdl >> $(OBJDIR)/noimgen.err 2>&1; \
        fi  \
    done
    @if [ -f $(OBJDIR)/noimgen.err ]; then $(MV) $(OBJDIR)/noimgen.err
+ $(OBJDIR)/noimgen.debug; fi

clean:
    @if [ -d $(OBJDIR) ]; then $(RM) $(OBJDIR)/*; fi
[download]

edited: Wed Aug 14 19:40:42 2002 by jeffa - title change (was: shell to Perl)

Comment on Convert makefile to Perl Download Code

Replies are listed 'Best First'.
Re: shell to perl by derby (Abbot) on Aug 14, 2002 at 15:11 UTC
Well, this is more than and ordinary shell script - its a makefile. While I wouldn't want to rewrite a makefile in perl, you could simplify the genfiles recipe by replacing the shell script there with a perl script. The recipe for genfiles basically does this chdir to src foreach basename of ".pdl" files if( $basname.cxx does not exist ) or ( $basname.pdl is newer than $basename.cxx ) then execute NOIPGEN on $basename.pdl outputting stderr and stdout to $OBJDIR/noipgen.err endif endfor if( $OBJDIR/noipgen.err exists ) then mv the noipgen.err file to noipgen.debug endif chdir to src foreach basename of "mdl" files if( $basname.cxx does not exist ) or ( $basnemae.mdl is newer than $basname.cxx) then execute NOIMGEN on $basename.mdl outputting stderr and stdout to $OBJEDIR/noimgen.err endif endfor if( $OBJDIR/noimgen.err exists ) then mv the noimgen.err file to noimgen.debug endif [download] You could easily combine those two things into a perl script and then change the recipe to be something like this: `genfiles: setup @my_script pdl $NOIPGEN $OBJDIR noipgen.err @my_script mdl $NOIMGEN $OBJDIR noimgen.err` [download] -derby update but now that I think about it some more that whole script could be replaced by more generic makefiles recipes that show target files have a dependancies on pdl and mdl files. Check out the make book.	[reply] [d/l] [select]
Re: Re: shell to perl by ichimunki (Priest) on Aug 14, 2002 at 15:56 UTC
While I wouldn't want to rewrite a makefile in perl How about rewriting make in Perl? :)	[reply]
•Re: Re: Re: shell to perl by merlyn (Sage) on Aug 14, 2002 at 18:04 UTC
I beg to differ. cons is not Make. It's a make-like thing with a different basic philosophy. If you want Make in Perl, you would simply use pmake, which is a pure-Perl version that can understand normal Makefiles, including everything that ExtUtils::MakeMaker puts out. -- Randal L. Schwartz, Perl hacker	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.