in reply to I have a few questions

can I use the code as it is? or need to talk to the author to see if is ok with him?
It wouldn't have been published here if there was some legal mumbo jumbo around it. To be sure, just send a private /msg to the author.
if I can not modify the script but I can use it is there a way I can run a that script from another script?

You could wrap some shell code around it, or run it from a perl process via do. Be sure to set up its arguments properly, assigning to @ARGV or some such.

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Replies are listed 'Best First'.
Re^2: I have a few questions
by padawan_linuxero (Scribe) on Jan 11, 2008 at 01:19 UTC
    Hi !!!
    For example in these script csv2xls1.pl
    when I need to convert a csv to xls i need to do these
    csv2xls1.pl infile.csv outfile

    but I can leave blank the outfile and it will use the same file name
    can you show me how to use do
    for these script?
    thanks
[reply]
[d/l]

      Not tested 

      use strict;
my $dir = "C:/some/dir";
my $script = "C:/path/to/csv2xls1.pl";
my @files = glob("$dir/*.csv");
for my $file (@files) {
    print "Processing $file .....";
    my $ret_val = system( $script, $file );
    print ret_val == 0 ? "OK\n" : "Not OK\n";
}
print "Done!\n";

      [download]
[reply]
[d/l]
        Thanks !!!! It work fine!!!
        Thanks!!!! But if you can and have time, can you look at my question of trying to put this script inside the other one? thanks!!!
[reply]

In Section Seekers of Perl Wisdom