Skip to content

Instantly share code, notes, and snippets.

@pokisin
Created March 6, 2017 23:24
Show Gist options
  • Save pokisin/5702ba8e964afcf53b5ba39478702a12 to your computer and use it in GitHub Desktop.
Save pokisin/5702ba8e964afcf53b5ba39478702a12 to your computer and use it in GitHub Desktop.
Utilerias Perl
------------------------------------- Para usar archivo .pm con ruta relativa ------------------------------------------------------
use FindBin qw($Bin); # /home/proyecto/scripts
use File::Basename qw(dirname); # /home/proyecto
use File::Spec::Functions qw(catdir);
use lib catdir(dirname($Bin),'reportes'); # /home/proyecto/reportes
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment