Re: grep and regex

2010-05-21 Thread Jim Gibson
On 5/21/10 Fri May 21, 2010 12:13 PM, "Akhthar Parvez K" scribbled: > On Friday 21 May 2010, Jim Gibson wrote: >> You are getting undefs because you >> have alternation (|) between two >> sub-patterns and capturing parentheses in >> each sub-pattern. You also have >> nested parentheses, with

system compilation error

2010-05-21 Thread mustafa rifaee
Hello; thanks for your reply; i am sorry for my error questions, but i have another error now when i request the: http://127.0.0.1/srs/registrar i get this erro: [Thu May 20 17:04:43 2010] [error] [client 127.0.0.1] failed to resolve handler `SRS::RequestHandler': ModPerl::Util::exit: (12) ex

Re: AW: Good/best practice - pre-declare variables

2010-05-21 Thread Brandon McCaig
On Fri, May 21, 2010 at 5:15 AM, Shlomi Fish wrote: > On Friday 21 May 2010 07:43:07 HACKER Nora wrote: >> I still have a (meta) question referring to your advice to set it up as >> a global variable: I read that "Global variables are bad [...] >> (http://perldoc.perl.org/perlfaq7.html) - so when

Re: grep and regex

2010-05-21 Thread Akhthar Parvez K
On Friday 21 May 2010, Jim Gibson wrote: > You are getting undefs because you have alternation (|) between two > sub-patterns and capturing parentheses in each sub-pattern. You also have > nested parentheses, with a capturing parenthese pair around the whole. > > Your regular expression is this: >

Re: append to a hash?

2010-05-21 Thread Uri Guttman
> "HP" == Harry Putnam writes: HP> Uri will want to scalp me for commenting on something a good bit over HP> my head... but just looking at your push notion. consider yourself scalped! :) HP> I think it might actaully be possible to do. i think you don't understand the OP's goal. t

Re: append to a hash?

2010-05-21 Thread Shawn H Corey
On 10-05-21 02:40 PM, Harry Putnam wrote: Then the pairs are reversed but more importantly they become accessable as: @( $inv_hash{ $key } } Which is then an array. Or at least acts like an array in some circumstances. @{ $inv_hash{ $key } } -- Just my 0.0002 million dollars worth,

Re: append to a hash?

2010-05-21 Thread Harry Putnam
Bryan R Harris writes: >> >>I have code that looks like this: >> >>** >>if ($props =~ /\S/) { >>%{$ptr[-1]->[-1]} = ($props =~ m/\s*([^=]+)="([^"]+)"/g); >> >> where is @ptr set? what are you using it for? > > Earlier, of course. Probabl

Re: grep and regex

2010-05-21 Thread Jim Gibson
On 5/21/10 Fri May 21, 2010 8:42 AM, "Akhthar Parvez K" scribbled: > On Friday 21 May 2010, Akhthar Parvez K wrote: > I am stuck with regex again, this time I really need to *fix* it: > > Code: > > my @data = ( 'Twinkle twinkle little star > How I wonder what you are > Up above the world so

Re: grep and regex

2010-05-21 Thread Akhthar Parvez K
On Friday 21 May 2010, Akhthar Parvez K wrote: > Look at this code: > > my @data = ( 'Twinkle twinkle little star > How I wonder what you are > Up above the world so high > Like a diamond in the sky. > 123 > Twinkle twinkle little star > How I wonder what you are'); > my $rx1 = qr{ world.*diamond

Re: AW: Good/best practice - pre-declare variables

2010-05-21 Thread Shlomi Fish
Hi Nora, On Friday 21 May 2010 07:43:07 HACKER Nora wrote: > Hi Shlomi, > > Thanks for your reply. > > > From a cursory look at your program, it seems that you can just set up > > $mode > > as a global variable, and keep it at that instead of just passing it > > around. > > Alternatively, maybe

Re: AW: print sub code

2010-05-21 Thread Shlomi Fish
On Friday 21 May 2010 09:42:35 Thomas Bätzler wrote: > Tech list asked: > > Let's say I have a module XYZ with a sub in it call ABC. I'd like to > > print the source code of XYZ::ABC. > > > > My reason for this is I accidentally overwrote a module with an older > > version, but I still have http

AW: Good/best practice - pre-declare variables

2010-05-21 Thread HACKER Nora
Hi Thomas, > Let's see if I understand this correctly: > > You have a global variable $mode that's deciding the mode of operation > in your sub dblog(), to quote: > > > # DBLOG sub-function > > sub dblog { > >my ( $backup, $dbvers, $sdb ) = @_; > >SWITCH: { > >( $mode eq