Hi everyone, I am generating pdf file by using perl template-toolkit, I am reading xml file and processing through template toolkit and compiling using pdf latex.I written script like this
<code> #!/usr/bin/perl use warnings; use strict; use Data::Dumper; use XML::Simple; use Template; my $xml = new XML::Simple; my $data = $xml->XMLin("data.xml", ForceArray=>['dat','employee','expe +rience']); #print Dumper($data); my $template = Template->new(); my $filename = 'output1.tex'; $template->process(\*DATA, $data, $filename) || die "Template process failed: ", $template->error(), "\n"; system( "pdflatex $filename" ); __DATA__ \documentclass[a4paper,leqno,twoside]{article} \usepackage[latin1]{inputenc} \usepackage[english]{babel} \begin{document} Issued by {Name, acronym, department, phone} \issuedby{veerubiji,vebi,ece,123456} % Document title. Use \doctitleShort{} to insert a shorter title in th +e header. \doctitle{employee information of thie"scr"company} \doctitleShort{\@doctitle} [% FOREACH comp IN company %] [% comp.name %] [% comp.location%] employeedata: [% FOREACH employee IN comp.domain.java.employee %] [% employee.name %][% employee.number %] [% FOREACH obj IN data%] [% FOREACH beha IN obj.employee %] [% IF beha.number == employee.number && beha.name == employee.name + %] [% beha.address %], [% LAST %] [% END %] [% END %] [% END %] [% END %] [% END %] [% END %] \end{document}
the above script is working good but my problem is in the above script
\issuedby{veerubiji,vebi,ece,123456}
1)I written manually my name . how can I get that username directly from windows system. If suppose somebody using the same script in other system it has to display his user name. how can I get that user name from windows using perl script or template module.
my second problem is
\doctitle{employee information of thie"scr"company}
in the above line document title is written in template process, I need to access title from perl code how to do this.can any one help me because this my first time using template process.
In reply to How to get system user name from windows using perl by veerubiji
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |