use Perl

• what's the trouble? (Score:1)

  by perrin (4270) on 2007.02.27 17:27 (#53407) Journal

  I don't know of any problem with using array references in mod_perl. Can you explain what's giving you trouble? Maybe we can help.

  Reply to This

  • Re: (Score:1)

    by beckheng (7386)

    Any help is luck for me.
    These three script show what happens.
    -------configuration file(MyConfigTest.pm)--

    package PBB::Packages::MyConfigTest;
    
    use strict;
    
    @PBB::Packages::MyConfigTest::ISA = qw(Exporter);
    %PBB::Packages::MyConfigTest::stash = (
    
        "p_type" => "text/html",
        "p_charset" => "UTF-8",
        "p_theme" => "gnome-default",
        "css_files" => ["aa.js", "bb.js"],
    );
    
    1;

    -------startup file(mystartup.pl)-------

    #!/usr/bin/perl
    
    use lib qw(/path/myprj)

    --
    use Perl qw(others us);
    • Re: (Score:1)

      by perrin (4270)

      I don't understand. Didn't you want the array to expand? If you were trying to replace it, just set it directly instead of using push:

      $t->{stash}->{css_files} = ['a.js', 'b.js'];

      There are several other things in this code that I would suggest changing, but this forum isn't the best place to do a code review. If you'd like more advice on your code, please post it on the mod_perl mailing list, or on http://perlmonks.org/ [perlmonks.org].
      • Re: (Score:1)

        by beckheng (7386)

        I make mistake.
        Direct assign value works good.
        I never think it before.I always use push.
        For more advice, I post it on
        http://perlmonks.org/?node_id=602639 [perlmonks.org]
        thx.
        Regards.

        --
        use Perl qw(others us);