Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: shell to perl

by derby (Abbot)
on Aug 14, 2002 at 15:11 UTC ( #190107=note: print w/ replies, xml ) Need Help??


in reply to Convert makefile to Perl

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

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

-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.


Comment on Re: shell to perl
Select or Download Code
Re: Re: shell to perl
by Sara (Acolyte) on Aug 14, 2002 at 15:14 UTC
    thanks derby :)
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? :)

      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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://190107]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2014-12-29 11:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (187 votes), past polls