in reply to LaTeX Wizard

If you declare multiple variables, do it like this:

use strict;
my ( $var1, $var2, $var3 );

# or 
my ( $var4, $var5 ) = ( 4, 'five' );

[download]
or use vars: 
use strict;
use vars qw( $var1 $var2 $var3 $var4 $var5 );
$var4 = 4;
$var5 = 'five';

[download]

update: Check out our for the successor of vars.

--8<-- 
my $frameFileName = $mw -> Frame;
$frameFileName = $mw -> Frame( qw(list of frame parameters) );

[download]

Why are you calling $mw->Frame two times, when you overwrite the first result?
You do this several times for various objects.

my $frameFileName = $mw -> Frame( qw(list of frame parameters) );

[download]

That should be enough!

Update: as vars is obsolete, corresponding part striked out. Thanks toolic++ for pointing that out.

Replies are listed 'Best First'.
Re^2: LaTeX Wizard
by milarepa (Beadle) on Sep 03, 2008 at 13:37 UTC
    Actually I was wandering about all this my, my, my....., I think I was trap into my ego ;-) . Thank you for pointing out the solution and helping me stay away from egotistical tendencies ;-)

    Thanks for your other observation about calling the object twices.

    Now I got a question on execute subroutine, is there any way to this more neatly, I feel all this prints makes the code cluttered.

    Thanks

[reply]

      For printing multiple lines of static content (static that you don't have to check a condition if you want to print that), you can use HERE-documents.
      Or you give a list of strings as arguments to that print (within this you can even check the conditions, if you must to):

      # it interpolates variables
print OUT <<"END_OF_PRINT";
Hello $world.

many lines
many lines
END_OF_PRINT

      [download]
      print OUT 
  "string1\n", 
  "string2\n",
  "string3\n",
;

      [download]

      But all these solutions lead to CountZero's answer. Have you already considered his tip about using a templating system?

      You create a template with all the static content you have.
      In place of the non-static content you set up placeholders.
      Inside your Perl-Code you load your template with the corresponding
      template system and define the content for the placeholders.
      Then you print the generated output.
      The details are related to the template system you choose.

      Additional point (not related to the templates):

      If you open a file for writing, you should check that the open was successful:

      open OUT, '>', $file or die "$file: open for writing failed: $!\n";

      [download]

      You should also check the success of all prints and the final close on that handle OUT.

      print OUT "text bla bla\n" or die "$file: print failed: $!\n";
close OUT or die "$file: close failed: $!\n";

      [download]

      If you manage to reduce the number of prints these checks aren't too bad ;o)

[reply]
[d/l]
[select]
        Thank you linuxer for your tip, actually I just seen something similar on "Perl Best Practices" page 61. I will try to consider templates as well.

        Thanks for your help...!!!

[reply]
Re^2: LaTeX Wizard
by toolic (Bishop) on Sep 03, 2008 at 12:49 UTC
    or use vars:
    The documentation for vars claims it is obsolete: 
    vars - Perl pragma to predeclare global variable names (obsolete)

    [download]
[reply]
[d/l]

In Section Cool Uses for Perl