Re: script output => color highlight to stdout

2010-05-28 Thread Harry Putnam
trapd...@trapd00r.se writes: > And if you want to work with 256 colors (note that not all terminals support > this, and it should be avoided if it's not for your own use) you can do > something like this: > > > my @colors; > for(my $i=0;$i<256;$i++) { > push(@colors, "\033[38;5;$i".'m'); > } > p

Re: split value when there's nothing to split

2010-05-28 Thread Chas. Owens
On Fri, May 28, 2010 at 14:46, Uri Guttman wrote: >> "CO" == Chas Owens writes: > >  CO> On Fri, May 28, 2010 at 12:44, Uri Guttman wrote: > >  >> the negated char class is usually faster than most similar methods. i >  >> just like it as it says what i really want - a string without any - c

Re: split value when there's nothing to split

2010-05-28 Thread Uri Guttman
> "CO" == Chas Owens writes: CO> On Fri, May 28, 2010 at 12:44, Uri Guttman wrote: >> the negated char class is usually faster than most similar methods. i >> just like it as it says what i really want - a string without any - chars. >> also anchoring helps too in saying this string

Re: How to set LD_LIBRARY_PATH

2010-05-28 Thread Marilyn Sander
On May 28, 2010, at 9:33 AM, Paul Johnson wrote: > On Fri, May 28, 2010 at 06:14:38AM -0400, John Scoles wrote: > >> You will have to set those values before your modules load. >> >> So you should stick them in the BEGIN and that should work > > ... except where it doesn't, such as on Solaris

Re: split value when there's nothing to split

2010-05-28 Thread Chas. Owens
On Fri, May 28, 2010 at 12:44, Uri Guttman wrote: >> "CO" == Chas Owens writes: > >  CO> On Fri, May 28, 2010 at 01:05, Uri Guttman wrote: >  CO> snip >  >>        $foo = $string =~ /^([^-])+-/ ? $1 : '' ; >  >> >  >> that will grab something from the start to the first - and grab it. if >  

Re: split value when there's nothing to split

2010-05-28 Thread Uri Guttman
> "CO" == Chas Owens writes: CO> On Fri, May 28, 2010 at 01:05, Uri Guttman wrote: CO> snip >>        $foo = $string =~ /^([^-])+-/ ? $1 : '' ; >> >> that will grab something from the start to the first - and grab it. if >> it matched it will assign it to $foo, otherwise assign

Re: How to set LD_LIBRARY_PATH

2010-05-28 Thread Paul Johnson
On Fri, May 28, 2010 at 06:14:38AM -0400, John Scoles wrote: > You will have to set those values before your modules load. > > So you should stick them in the BEGIN and that should work ... except where it doesn't, such as on Solaris for example. Here, LD_LIBRARY_PATH (at least) really does nee

Re: How to get environment variables from child shell

2010-05-28 Thread Paul Johnson
On Thu, May 27, 2010 at 04:51:45PM -0700, Bob Sadri wrote: > Hi > I have a perl script that calls a csh script. The csh script sources some > environment variables (among others). When the control comes back to my > perl script I like to use the environment variables set in the csh script. > How

Re: Setting PERL5LIB ... is this the expected behaviour ... ???

2010-05-28 Thread Chas. Owens
On Fri, May 28, 2010 at 02:53, newbie01 perl wrote: > Hi all, > > Just need to confirm if this is the expected behaviour when setting > PERL5LIB. > > If I have the folllowing in my script ... snip > #!/usr/bin/perl > > $ENV{PERL5LIB}="/oracle/product/db/11.1/perl/lib/site_perl/5.8.3/x86_64-linux-t

Re: split value when there's nothing to split

2010-05-28 Thread Chas. Owens
On Fri, May 28, 2010 at 01:05, Uri Guttman wrote: snip >        $foo = $string =~ /^([^-])+-/ ? $1 : '' ; > > that will grab something from the start to the first - and grab it. if > it matched it will assign it to $foo, otherwise assign ''. (and '' is > called the null string, not null. perl has

Re: How to set LD_LIBRARY_PATH

2010-05-28 Thread John Scoles
You will have to set those values before your modules load. So you should stick them in the BEGIN and that should work http://www.compuspec.net/reference/language/perl/BEGIN_and_END.shtml cheers John Scoles On Fri, May 28, 2010 at 3:45 AM, newbie01 perl wrote: > Hi all, > > Can someone advise

AW: Developer docs

2010-05-28 Thread Thomas Bätzler
Hi, Steve Bertrand asked: > Is there a POD system that can be used exclusively for 'developer' > documentation? Can I make devel docs 'hidden' from the rest of the POD? > > If not, can you recommend a decent practice that I can weave into my > current documentation methodology so that people can

Re: Setting PERL5LIB ... is this the expected behaviour ... ???

2010-05-28 Thread Shawn H Corey
On 10-05-28 02:53 AM, newbie01 perl wrote: If this the case, does that mean I should be using use lib instead of $ENV{PERL5LIB}="/oracle/product/db/11.1/perl/lib/site_perl/5.8.3/x86_64-linux-thread-multi"? Definitely yes. This statement is executed at run time. Modules are loaded at compile

Re: script output => color highlight to stdout

2010-05-28 Thread Eitan Adler
On Thu, May 27, 2010 at 6:22 PM, Harry Putnam wrote: > I wondered if anyone could steer me to some information about making > perl script output appear in color highlight on stdout. > > Something like what modern grep does on linux, where the searched term > appears in some color (red) in the outp

Re: script output => color highlight to stdout

2010-05-28 Thread trapd00r
On 27/05/10 22:16 -0500, Bryan Harris wrote: my $e = "\033[0m"; my %cc = ( white => "\033[1;37m", ltgray => "\033[0;37m", gray => "\033[1;30m", black => "\033[0;30m", red => "\033[0;31m", ltred => "\033[1;31m", green => "\033[0;32m", l

Re: Developer docs

2010-05-28 Thread Robert Wohlfarth
On Thu, May 27, 2010 at 8:37 PM, Steve Bertrand wrote: > Is there a POD system that can be used exclusively for 'developer' > documentation? Can I make devel docs 'hidden' from the rest of the POD? > > If not, can you recommend a decent practice that I can weave into my > current documentation met

Re: script output => color highlight to stdout

2010-05-28 Thread Bryan Harris
Try this > I wondered if anyone could steer me to some information about making > perl script output appear in color highlight on stdout. > > Something like what modern grep does on linux, where the searched term > appears in some color (red) in the output to tty. > > Try this code snippet

Re: execute and analyze unix command with perl

2010-05-28 Thread C.DeRykus
On May 27, 11:09 am, robertmorales...@gmail.com (Robert Morales) wrote: > Ok, now I added the: > >        my $regex = "^((?!total).)*\$"; > Using the 'qr' operator is a more efficient option (see "Regexp Quote-Like Operators " in perlop) and will take care of the $: my $regex = qr/^((?!total).)*$

Error with SVG::TT::Graph::TimeSeries

2010-05-28 Thread Filip Sneppe
Hi, I am running into problems with the SVG::TT::Graph::TimeSeries module. My script is looping through data sets and generating graphs from different datasets. Every second time I go though the loop, I get an error. I stripped my script down to this demo code that illustrates the problem: #!/u

Re: How to set LD_LIBRARY_PATH

2010-05-28 Thread Shlomi Fish
On Friday 28 May 2010 10:45:14 newbie01 perl wrote: > Hi all, > > Can someone advise how to set LD_LIBRARY_PATH from within the Perl scripts? > > If I set LD_LIBRARY_PATH from the command line, all is okay > > [oracle ~]$ perl -e 'use DBD::Oracle; print $DBD::Oracle::VERSION,"\n";' > Can't load

How to set LD_LIBRARY_PATH

2010-05-28 Thread newbie01 perl
Hi all, Can someone advise how to set LD_LIBRARY_PATH from within the Perl scripts? If I set LD_LIBRARY_PATH from the command line, all is okay [oracle ~]$ perl -e 'use DBD::Oracle; print $DBD::Oracle::VERSION,"\n";' Can't load '/oracle/product/db/11.1/perl/lib/site_perl/5.8.3/x86_64-linux-threa