Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re^2: Minimal, %ENV based templating tool

by blindluke (Hermit)
on Nov 11, 2015 at 20:42 UTC ( [id://1147496]=note: print w/replies, xml ) Need Help??


in reply to Re: Minimal, %ENV based templating tool
in thread Minimal, %ENV based templating tool

Thank you.

The skel tool is written in C and, on top of the simple core idea, it offers a lot of small additional features, like lowercase/uppercase conversion and support for default values. My script could hardly be considered an improvement over the original - but it could complement it, when you need just the core functionality and the one feature I've added.

I could try to port this feature to the original, as I would be happy to contribute to a tool I use, but I'm not sure if my C skills are up to it. But I will still fork it and try, if time allows.

Just for completeness sake, here is my initial version with just the core functionality:

#!/usr/bin/perl use v5.14; my %cfg = ( tmpl_path => $ENV{HOME}.'/.skel-closet/', opening_tag => '#{', closing_tag => '}', ); sub filled_line { my $line = shift; my $pattern = qr/$cfg{opening_tag}(.+?)$cfg{closing_tag}/; $line =~ s/$pattern/$ENV{$1}/g; return $line; } my $filename = $cfg{tmpl_path}.shift; open (my $fh, '<', $filename) or die ("Could not open file: $filename"); print filled_line($_) while (<$fh>); close ($fh);

Not much use for it over the version I posted earlier, but it shows the one thing that still bugs me. The sub is called filled_line, because I knew I wanted a nice sounding noun for the print filled_line expression. With the switch to buffering in the second version, this nice sound of the penultimate line was unfortunately lost - I could not push filled_line($_) to @output, because push does not work that way.

Someone might say that this is completely irrelevant, but the way I see it, if I did not care about the way those lines sound, I would not be so attached to Perl.

- Luke

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others chilling in the Monastery: (6)
As of 2024-03-28 21:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found