in reply to Re^6: Convertion Perl Script to Exe with PAR::Packer pp
in thread Convertion Perl Script to Exe with PAR::Packer pp

The problem is: i create this script to send files attached on a e-mail. The e-mail list is xlsx where i have the colunm 0 with the name and colunm is the e-mail to send than i see the name of the file (is the same value of colunm 0) and send the e-mail. The problem is if i need to change the xlsx i'll have to convert again but this script will run on the user pc.
  • Comment on Re^7: Convertion Perl Script to Exe with PAR::Packer pp

Replies are listed 'Best First'.
Re^8: Convertion Perl Script to Exe with PAR::Packer pp
by Corion (Patriarch) on Jul 25, 2014 at 13:57 UTC

    Aah - that makes it clearer:

        my $diretorioScript = dirname(__FILE__);
    my $excel = Spreadsheet::XLSX->new( "$diretorioScript\\jofalista.x
+lsx", );

    [download]

    dirname(__FILE__) is not what you want, because the program will be expanded under C:\TEMP or somewhere.

    What you want is documented in PAR::Environment. I guess $ENV{PAR_PROGNAME} is what you want.

    my $diretorioScript=  $ENV{PAR_PROGNAME} # running under PAR
                   || dirname($0);       # running directly

    [download]
[reply]
[d/l]
[select]
      i've tried 
      $PAR::LibCache{$ENV{PAR_PROGNAME}}

      [download]
      and 
      $ENV{PAR_PROGNAME}

      [download]
      Both of than return: 
      Iniciando o envio de e-mails...
IO error: opening \jofalista.xlsx for read : No such file or directory
+ at C:/strawberry/perl/vendor/lib/Archive/Zip/Archive.pm line 572.   
+     Archive::Zip::Archive::read(Archive::Zip::Archive=HASH(0x455268)
+, "\\jofalista.xlsx") called at C:/strawberry/perl/site/lib/Spreadshe
+et/XLSX.pm line 33 Spreadsheet::XLSX::new("Spreadsheet::XLSX", "\\jof
+alista.xlsx") called at gmail_att.pl line 14 Cannot open \jofalista.x
+lsx as Zip archive at C:/strawberry/perl/site/lib/Spreadsheet/XLSX.pm
+ line 33. SYSTEM ERROR in executing gmail_att.pl: 512 at C:/strawberr
+y/perl/site/lib/Module/ScanDeps.pm line 1351.

      [download]
[reply]
[d/l]
[select]

        This is weird. This means that PAR::Environment is inaccurate.

        I don't know how to help further - most likely, you have to dump %ENV and see what is in there once your program is run using PAR.

[reply]
[d/l]
Re^8: Convertion Perl Script to Exe with PAR::Packer pp
by RonW (Parson) on Jul 25, 2014 at 17:04 UTC

    Is there some reason the xlsx file needs to be included in the .exe file? This xlsx file is really part of the program's input, not the program itself. I would suggest enhancing your program to allow the user to specify the xlsx files to use.

    At the very least, I would look for a way to discover the location of the .exe file then look for the xlsx file there.

    Another option would be to tell the users to put the xlsx file in their "My Documents" folder. On Win7, you can find this with:

    $ENV{USERPROFILE} . "\\My Documents\\"

    On other versions of MS Windows, open a cmd window and type set to get a list of the environment variables. Then you can find the one that gets you the closest. Use that and modify the appended path as needed.

[reply]
[d/l]
[select]
      great ideia, i solved it using this solution but using $ENV{HOMEDRIVE} Ty very much!!!
[reply]

        So, just putting the xlsx file in C:\?

        (On Win7, HOMEDRIVE is almost always C:\. Sometimes D:\, E:\ or other, but always just a drive letter.)

        (Maybe I'm remembering wrong, but I recall WinXP, Win2000 and Win98 using various different env vars, but never HOME)

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom