matching $str in tpls

this is probably a simple thing, but I'm at a road block on that one ...

when reading my tpl I can get a link such as news.link=/templatedata/cat/type/data/file
I have tired to trimm this string using reagular perl functions (s///, m//, tr///). I need this to make sure I only get relative links in my final output files.

when I use them, my tpl breaks for some reason.

woul danyone know how to do that?

thanks a bunch ... ro

Find more posts tagged with

Comments

iwovGraduate

Do you just want to remove the leading "/" from the path ?
Try this:


     $path = "/templatedata/category/data-type/data/filename";
     print "\npath: [$path]";
     $path =~ s/^\///;
     print "\nrelative path: [$path]";

Does that help ?

Renata

the problem is that when I use that kind of syntax within <iw_perl> , the template doesn't like it ...

would you happen to know of other ways?
thnx

iwovGraduate

I can use perl statements, (including the one posted here) in tpls just fine.
What version of TeamSite are you using ?
A shot in the dark - maybe enclose it withing CDATA&colon;


<iw_perl>
<![CDATA[
## Some perl code....
]]>
</iw_perl>

You may want to try debug your PT using iwpt_compile.ipl -ocode.... that will output a .ipl file which you can debug.

LooseCannon

In reply to:

...the template doesn't like it ...

You need to elaborate & provide the specs on your environment

Adam Stoller

Are you coding your PTs as strict XML (with <iw_pt name="...">...</iw_pt>) or in the looser, easier to code style (with <iw_pt name="..."/>)?
If the former, you need to make sure that you use CDATA tags (<iw_perl><![CDATA[...]]></iw_perl>), whereas in the latter you don't need them (<iw_perl>...</iw_perl>)

As for the syntax of the regex's, if you are going to be using the '/' character within the patter or replacement string, use a different character for the delimiters to make the code easier to read (and write) - e.g. instead of:

    $foo =~ s/\/some\/path\//\/another\/path\//;

try:

    $foo =~ s|/some/path/|/another/path/|;
    $foo =~ s+/some/path/+/another/path/+;
    $foo =~ s!/some/path/!/another/path/!;
    $foo =~ s{/some/path/}{/another/path/};

Also, do not use print statements (without an explicit filehandle, that's not STDOUT) in your PT, use iwpt_output(...); or print FILEHANDLE ...;.

Hope that helps

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

Renata

guys,
I used the other syntax ($foo =~ s|/some/path/|/another/path/| Smiley Wink

like fish has suggested and it worked fine ...

and not that it matters now, yes I do use the more strict form, have been enclosing perl code with <![CDATA[ ... I guess for somereason the forward slashed confused things...

thanks a bunch Smiley Happy