hash increament

Hi, What is the reason this following works $hours{$hour}->{count} + 1 but this not works? $hours{$hour}->{count}++ it actually part of this code: $hours{$hour} = { occur => $occur_utc, delay => $hours{$hour}->{delay} + $delay, count =>

making do work with strict

I just want to load variable from config file: config.pl: $basedir = '/home/user/'; myprog.pl: #use strict; do 'config.pl' or die "can not open config\n"; # do some stuff here the problem is, i have to disable strict in myprog.pl. any other way to do it? Thanks. --budhi -- To unsubscrib

hash keys

Hi All, Why this following code has not working as expected? print "Number of element(s) : " . sprintf("%10d", keys(%hash) ) . "\n"; Thanks. --budhi -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

perl daemon program

Hi All, 1. Does Perl program suitable for long running process or daemon? 2. Is this considered as daemon program? $ cat myprog.pl while($true) { # do something } $ ./myprog.pl & Thanks. --budhi -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail:

parsing SQL statement

Anyone having suggestion parsing SQL statement? It should able to parse: BLA BALA BALA... VALUES( 'abcd efg',,999, 'some \"STRING\" and \'STR2\' STR3' 'abcd, def, fghi' ) I'm using tr and then split by "," but it will fall when seeing comma inside the single quote. Thanks. --budhi --

Re: Comparing file contents, the perl way

On Thu, May 22, 2008 at 2:52 PM, John W. Krahn <[EMAIL PROTECTED]> wrote: > 32134 > $ grep -f A.txt -wv B.txt > 82134 > Ouch, i never think that it can be so easy!! Thanks. --budhi -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.

Comparing file contents, the perl way

Good morning, I have 2 files which contains some IDs. Basically I want to search ID in the file A which is missing on the file B. This program is ugly, but its work :-) use strict; my $target_file = "B.txt"; while(<>) { chomp; my $res = `grep $_ $target_file`; print "$_ is

Re: OT: help crle ruin my solaris :-(

On Mon, May 5, 2008 at 10:38 AM, beast <[EMAIL PROTECTED]> wrote: > I've just want to avoid setting $LD_LIBRARY_PATH everytime i run my perl, > however after doing crle (i forgot the -u !) > > root# crle -l /usr/local/rrdtool-1.2.19/lib > > now all command refused to

OT: help crle ruin my solaris :-(

I've just want to avoid setting $LD_LIBRARY_PATH everytime i run my perl, however after doing crle (i forgot the -u !) root# crle -l /usr/local/rrdtool-1.2.19/lib now all command refused to run (ls, cd etc) Somebody kind enough to help fix this pls? Now i can't do su or login as root, but still

Re: remove duplicate lines

Dr.Ruud wrote: while ( ) { next if $d{$_}; print; $d{$_} = 1; } Got the idea. Many thanks! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: remove duplicate lines

Mumia W. wrote: On 01/10/2007 01:35 AM, beast wrote: [...] It will only remove duplicate key. Is this still acceptable in perl (its very ugly =( [...] This would remove duplicate lines: use List::MoreUtils qw(uniq); use File::Slurp; my @list = uniq read_file 'rm_dup_line

Re: remove duplicate lines

Owen Cook wrote: my %data_hash; while(){ chomp; # Get rid of line feeds my @bits = split; $data_hash{$bits[0]} = $bits[1]; } It will only remove duplicate key. Is this still acceptable in perl (its very ugly =( while (<>) { chomp; my ($k, $v) = split /,/; my $tmp_key =

Re: remove duplicate lines

Mathew Snyder wrote: The way I would do it is to place the initial data instance into a hash if it doesn't already exist. Just do a next if it does. It will remove duplicate key, not line. my %hash=(); while (<>) { chomp; my ($key, $val) = split /,/; $hash{$key} = $val; } while ( m

remove duplicate lines

I have these following data: a 100 a 102 c 100 a 102 b 111 c 100 c 102 c 100 c 100 a 102 ... I would like to have a list (either array or hash) with unique line . Any help would appreciated. Thanks. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECT

help on log parser

arsing 1000 lines, so it must be run quickly before the next schedule. Any idea would be appreciated. --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: foolprof regex

Chad Perrin wrote: At a wild guess, I'd say that you're probably getting the matches you want, plus getting the "my name =" as a match. The reason is that you didn't specify that the leading spaces before the word "name" must be at the beginning of the line. For that, use "^". Use "perldoc pe

foolprof regex

Hi All, Basically I want these input : name= name= name= name = But I did not want these input: my name = name is = my name is = -- if ( /\s*name\s*=/) { print "Match: $_"; } did not works as i expected. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

validating SSHA pasword

Hello, Using Digest::MD5 i could simply using "eq" to validating user password, but how do I validate SSHA since encrypted results are always different? TIA --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://l

solved [was Re: Net::LDAP]

This aparently because of input is coming from and LANG=utf8 chomp($username=); my $exists = ldap_search($username); after set "LANG=en_US" it works. Anyone know the reason? Beast wrote: I have script which running fine on FC5 (perl v 5.8.1) but not working on RH9(5.8.0). --

Net::LDAP

I have script which running fine on FC5 (perl v 5.8.1) but not working on RH9(5.8.0). --- my $ldap = Net::LDAP->new($ldap_host); die "Unable to contact $ldap_host\n" unless defined $ldap; my $mesg = $ldap->bind; $mesg = $ldap->search( base => $ldap_base, scope => 'one', filter => "u

CPAN help

figuration file (http://cpan.cbn.net.id/, http://komo.vlsm.org/CPAN/) are valid. The urllist can be edited. E.g. with 'o conf urllist push ftp://myurl/' Could not fetch modules/03modlist.data.gz Going to write /root/.cpan/Metadata Warning: Cannot install Mail::SpamAssassin, don't kn

using shared lib?

Hello all, Just curious, is it possible to use shared library in perl? Suppose I want to use libexample.so and doesn't want to invoke the client command using system() TIA. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: sorting?

Beast wrote: Hi, I have some rather big chunk of data, returned from ldap server. The format is simple: "Displa name" <[EMAIL PROTECTED]> Simply displying data "as is" is simple, but how do I sorted by "display name"? pls note that "display name&

sorting?

Hi, I have some rather big chunk of data, returned from ldap server. The format is simple: "Displa name" <[EMAIL PROTECTED]> Simply displying data "as is" is simple, but how do I sorted by "display name"? pls note that "display name" contains space and might not unique so I can't put it on

sub never called

I have these following code. It seems that sub is_exist never called more than once. I've checked ldap server log, the client never request for second search. Putting $ldap object inside every sub will solve the problem, but doesn't it expensive to create ldap connection object for every search?

Re: pseudohash

Tom Phoenix wrote: On 2/10/06, Beast <[EMAIL PROTECTED]> wrote: Could someone explain what is pseudohash means? A "pseudohash", much like "the macarena", "N-rays", "Herbalife", "Paris Hilton", "New Coke", and "Intel

pseudohash

Could someone explain what is pseudohash means? SOL. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: : shared

d details my $instaQuit : shared = FALSE; # used to pass back and forth quitting data my $vol : shared = 100; # volume my $mute : shared = 0; # used to store volume when jukebox is muted my $dofades : shared = 1; # should we use the fade effect? ...

: shared

I saw code which has something like : my $foo : shared = ''; my @bar : shared = (); ... What is that means? -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

use vars

uire "/etc/myprogram/myconfig"; # etc... # -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: weird external program output

rl? I'm using fping (http://www.fping.com/) which is merely ping in steroid. Later the helper script is not executing ping only, but can be any program. -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/

weird external program output

works (gives the correct output), but when scheduled using cron results is null/blank. If try to redirect the stderr and stdout also, no luck. my $ret = `/tmp/ping_yahoo.sh 2>&1`; -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Useless use of lc

Xavier Noria wrote: On Dec 1, 2005, at 12:48, Beast wrote: How do I avoid this kind of warning? Useless use of lc in void context at ./myscript.pl line 87. Tried to use : lc $string if $string; but still gives warning. I can count with my fingers the times a warning was not triggered

Useless use of lc

How do I avoid this kind of warning? Useless use of lc in void context at ./myscript.pl line 87. Tried to use : lc $string if $string; but still gives warning. -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <h

why not die?

-- It doesn't die or print any error even $log did not exist. why? -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

config parser

] subject = "Test mkt" body = "this is a test msg for mkt" group = accounting recipient = [EMAIL PROTECTED] subject = "Test acc" body = "this is a test msg for acct" -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail:

add timer to program

ot;$rcpt_number" 2>&1`; --- -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: Use of uninitialized value

Charles K. Clarkson wrote: Beast <mailto:[EMAIL PROTECTED]> wrote: : my $value = get_value_from_external_program; : : How do avoid such warning, because value is coming from : external program thus I can't make sure that it will : return a string or null. What do you want

Use of uninitialized value

null. -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: getting the most efficient ways

Beast wrote: As you can see, the step will increase as the number of manager increase. Sorry, it should be: foreach my $emp (@employees) { foreach my $mgr (@managers) { if ($mgr eq $emp) { print "$emp is Manager\n"; next; } print "

getting the most efficient ways

$emp (@employees) { foreach my $mgr (@managers) { if ($mgr eq $emp) { print "$emp is Manager\n"; } else { print "$emp is Staff\n"; } } } ... As you can see, the step will increase as the number of manager increase. -- --beast -- To un

pointer

I found this code on some script : *test = \&show; What is "*" means? Isn't that reference/pointer is using "\" symbol? -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

OO in perl

Perl Object Oriented Programming is very confusing (to me at least :) --- package Test; sub new {} sub f_one{} sub f_two{} 1; --- I can call using my $test = Test->new->f_one; But why this not works? my $test = Test->new->f_one->f_two; -- --beast -- To unsu

Re: Limit memory used by perl

Brent Clark wrote: Beast wrote: Hi all, Is it possible to limit memory used by perl? I don't want perl program to eat all memory causing OS to freeze. Hi Maybe you should relook / think yout app and see where you can make it more effienct Yes maybe :-p I have prototype

Limit memory used by perl

Hi all, Is it possible to limit memory used by perl? I don't want perl program to eat all memory causing OS to freeze. -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

0; and 1;

I coudn't find any reference (yet) the meaning of 0; or 1; in the end of perl program. It means exit or return value? when I explicitly type "return 0;" it gives error, but when I give "exit 100;" the value of $$ isn't 100 anyway. -- --beast -- To unsubsc

Re: sorting list of array

my @sorted = sort { $a->[0] <=> $b->[0] } @employees; Thank you. However, is this scalable if, for example list is more than 5000 ? (ie. obtain data from ldap which we can not ask data provider to sort the entry for us) -- --beast -- To unsubscribe, e-mail: [EMAIL PROTECTED] F

sorting list of array

I have an array: my @employee = ( [29243, 'john', 'John doe'], [24322, 'jane', 'Jane doe'], [27282, 'james', 'James doe'] ); Is there any builtin function in perl to sort the ab