Re: are state objects ok?

"Chas. Owens" writes: > State variables are just like my variables but with a different lifetime, > so it is safe (assuming it would be safe to use my variables that life for > the lifetime of the program). Thanks! What's a safe alternative? If you need to have

Re: are state objects ok?

State variables are just like my variables but with a different lifetime, so it is safe (assuming it would be safe to use my variables that life for the lifetime of the program). In this case, what happens if you lose database access and then reconnect? What happens if you have two database

are state objects ok?

Hi, is it ok to assign an object to a state variable? Or does doing so involve a chance of causing problems because objects are not supposed or designed to be used with the state-feature? Example: use feature qw(state); use DBI; sub foo { my ($dbh, $q, $finish) = @_; state $sth = $dbh

Re: deprecated idiom to simulate state variables

On Tue, Jan 10, 2017 at 09:04:00AM +0100, Luca Ferrari wrote: > Hi all, > I guess it was in Modern Perl that I saw this deprecated idiom to > simulate state <http://perldoc.perl.org/functions/state.html> > variables: > > sub foo{ >my $initialized_once = 1 if 0; &

deprecated idiom to simulate state variables

Hi all, I guess it was in Modern Perl that I saw this deprecated idiom to simulate state <http://perldoc.perl.org/functions/state.html> variables: sub foo{ my $initialized_once = 1 if 0; ... } Now, why is that working and initializing the variable the first time? I mean, each time su

Re: Will Strawberry Perl installation cause any conflicts with pre-existing Actoive State Perl on W2008 server?

-Original Message- From: Kenneth Wolcott Sent: Wednesday, November 18, 2015 5:23 AM To: sisyph...@optusnet.com.au Cc: Perl Beginners Subject: Re: Will Strawberry Perl installation cause any conflicts with pre-existing Actoive State Perl on W2008 server? Apparently Strawberry Perl

Re: Will Strawberry Perl installation cause any conflicts with pre-existing Actoive State Perl on W2008 server?

e any conflicts with >> pre-existing Actoive State Perl on W2008 server? >> >>> Can I install Strawberry Perl on a W2008 Server without adversely >>> affecting a currently installed Active State Perl? >> >> >> Yes. >> >> Best way, imo, i

Re: Will Strawberry Perl installation cause any conflicts with pre-existing Actoive State Perl on W2008 server?

On Fri, Nov 13, 2015 at 3:57 PM, wrote: > -Original Message- From: Kenneth Wolcott > Sent: Saturday, November 14, 2015 6:11 AM > To: Perl Beginners > Subject: Will Strawberry Perl installation cause any conflicts with > pre-existing Actoive State Perl on W2008 server? >

Re: Will Strawberry Perl installation cause any conflicts with pre-existing Actoive State Perl on W2008 server?

-Original Message- From: Kenneth Wolcott Sent: Saturday, November 14, 2015 6:11 AM To: Perl Beginners Subject: Will Strawberry Perl installation cause any conflicts with pre-existing Actoive State Perl on W2008 server? Can I install Strawberry Perl on a W2008 Server without adversely

Will Strawberry Perl installation cause any conflicts with pre-existing Actoive State Perl on W2008 server?

Hi; Can I install Strawberry Perl on a W2008 Server without adversely affecting a currently installed Active State Perl? Thanks, Ken Wolcott -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: authentication & maintaining state

On Sep 19, 2012, at 8:38 PM, Bill Stephenson wrote: > I want my scripts to maintain state when a user's session expires. > > When that happens I send them to a login page and here's what I am working on > in the module that does the authentication: Well, after a bit mor

authentication & maintaining state

I want my scripts to maintain state when a user's session expires. When that happens I send them to a login page and here's what I am working on in the module that does the authentication: my @names = $cgi->param(); my $hiddens; foreach my

RE: How to implement ping script to monitor server up/down state in perl ?

Amit Saxena wrote: > I want a perl ping script (console based) to monitor server up/down state. Here's something I wrote ~2000 FWIW. It looks like I was still on dial-up, and wanted to ping an Internet host every ~10 seconds or so to prevent my connection from being dropped due to in

Re: How to implement ping script to monitor server up/down state in perl ?

Hi Bob, It seems there is some confusion. I just want to monitor remote server connectivity (either through ping or something else) but I don't want to call my programs every few intervals etc. What I want is a daemon sort of a thing in Perl running either on the source system (preferably) or on

Re: How to implement ping script to monitor server up/down state in perl ?

Thanks Thomas, I will surely look at mon to know about how to write monitoring code in Perl. Thanks & Regards, Amit Saxena On Tue, Jul 21, 2009 at 5:25 AM, Thomas Bätzler wrote: > Amit Saxena wrote: > > Hi Thomas, > > > > Thanks for the response. > > > > The client for which I am working will

Re: How to implement ping script to monitor server up/down state in perl ?

Amit Saxena : Hi all, I want a perl ping script (console based) to monitor server up/down state. I once made that a subroutine based on Net::Ping: use Net::Ping; sub pinghost { my $host = shift; my $type = shift || 'icmp'; my $port = shift || 7; # for syn pi

RE: How to implement ping script to monitor server up/down state in perl ?

From: Amit Saxena > > The client for which I am working will not allow any external utility / > modules to be installed on their development / production environments. > Moreover they want the solution implemented using Perl only. If they won't allow any utilities, how will you install this one?

AW: How to implement ping script to monitor server up/down state in perl ?

Amit Saxena wrote: > Hi Thomas, > > Thanks for the response. > > The client for which I am working will not allow any external utility / > modules to be installed on their development / production environments. > Moreover they want the solution implemented using Perl only. Actually, mon ist pure

Re: How to implement ping script to monitor server up/down state in perl ?

Subject:Re: How to implement ping script to monitor server up/down state in perl ? Hi Thomas, Thanks for the response. The client for which I am w

Re: How to implement ping script to monitor server up/down state in perl ?

9 at 4:43 AM, Thomas Bätzler wrote: > Amit Saxena asked: > > I want a perl ping script (console based) to monitor server up/down > > state. > > Why re-invent the wheel when there's already stuff like mon ( > http://mon.wiki.kernel.org/index.php/Main_Page) or

AW: How to implement ping script to monitor server up/down state in perl ?

Amit Saxena asked: > I want a perl ping script (console based) to monitor server up/down > state. Why re-invent the wheel when there's already stuff like mon (http://mon.wiki.kernel.org/index.php/Main_Page) or nagios (http://www.nagios.org/)? HTH, Thomas -- To unsubscribe, e-mail

How to implement ping script to monitor server up/down state in perl ?

Hi all, I want a perl ping script (console based) to monitor server up/down state. So far I have tried two different approaches, though none of them were successful. *First Approach* Call the operating system "ping" command from the Perl program and get the server up/down state.

Make substitution output depend on buffer state

Hi, I have a list of different text patterns and I'm only interested in a certain part of their content, which is different for each pattern. The main constraint is doing this within a substitution statement. $split_regex has 4 different expressions with one buffer each. Each input string conta

Invalid cursor state on second $sth->execute

the message : DBD::DB2::db disconnect failed: [IBM][CLI Driver] CLI0116E Invalid transaction state. SQLSTATE=25000 If I go back to prepare and execute each time through the loop there is no problem, but I think I am going to need the efficiency of using a pre-prepared SQL statement, so I would

DFA::Simple,State Machine Implementation

Hi All, I have created Final State Machine , using DFA::Sample. My quest` is: how I can use MORE than one instances of my FSM simultaneously. something like this: I have: my $fsm = new DFA::Simple [EMAIL PROTECTED]; I need my $fsm[0] = new DFA::Simple [EMAIL PROTECTED]; # FIRST

RE: !$state

Thank you, yes. That is an important distinction. -Original Message- From: Randal L. Schwartz [mailto:[EMAIL PROTECTED] Sent: Fri 7/16/2004 7:17 AM To: [EMAIL PROTECTED] Cc: Subject: Re: !$state >>&g

Re: !$state

>>>>> "Tim" == Tim Johnson <[EMAIL PROTECTED]> writes: Tim> "$state = ()" assigns the value of an empty list to the scalar $state, so it would evaluate to false. No, it doesn't. It evaluates () in a scalar context, which returns a scala

RE: !$state

David Arnold wrote: > All, > > If: > > $state={}; Now state is a reference to an anonymous HASH > > Then, what is: > > !$state This is '' (i.e. "false"), because the ! operator returns 1 ("true") only for the values '

Re: !$state

gt;b) evaluates to 0 >c) evaluates to '' (empty string) > >and evaluates to true if it is not false. > >"$state = ()" assigns the value of an empty list to the scalar $state, so it would >evaluate to false. >"$state = []", however, assigns a referen

RE: !$state

ing) and evaluates to true if it is not false. "$state = ()" assigns the value of an empty list to the scalar $state, so it would evaluate to false. "$state = []", however, assigns a reference to an anonymous array to $state. It looks something like this: ARRAY 0x99

Finding perl documentation (was: Re: !$state)

Harald Richard Ashburner wrote: Question: How do I get an index or a table of contents? How do I find out how to search the perldocs for "control structures" I've tried: perldoc perldoc perldoc -f if perldoc -q control perldoc -q index perldoc -q contents perldoc -q perldoc eg perldoc perltoot g

Re: !$state

Hi Team, Tested code that prints a value for !$state when $state is initialized with my $state = (); #!/usr/local/bin/perl # #set $state to () to find out what !$state is use strict; use warnings

RE: !$state

$state evaluates as true (I think that's what you're asking). #### $state = {}; if($state){ print "\$state is true: $state\n"; }else{ print "\$state is false"; } #### $state is true be

!$state

All, If: $state={}; Then, what is: !$state -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>

Re: testing state of filehandle

"Michael C. Davis" wrote: > At 07:22 PM 2/11/04 -, Rob Dixon wrote: > >Please guys, not in an existing thread. > > Not sure I undestand, looks like a new thread ... ? > Nope. You OP on this subject was sent as a response to Rob's post "Re: Array containment", with references to a couple othe

Re: testing state of filehandle

"Michael C. Davis" wrote: > > Hi all, Hello, > Here's a simple question I should probably already know the answer to but I > don't and the documentation thus far has not been useful. How can I tell > if a given filehandle is open? perldoc -f fileno fileno FILEHANDLE Retu

Re: testing state of filehandle

>That's fine, but the Usenet (NNTP) protocol keeps track of the >tree structure of posts and responses. Most News client software >shows that structure, and both Daniel and I can see your original >post as the tail end of a thread of thirty or so postings. Woops, sorry! Thx for making the distinc

Re: testing state of filehandle

Michael C. Davis wrote: > > At 07:30 PM 2/11/04 -, Rob Dixon wrote: > > > >You built your OP by replying to 'Array containment'. > > > > True, but I'm looking at my original post and I don't see even a single > reference to 'Array con

Re: testing state of filehandle

At 07:30 PM 2/11/04 -, Rob Dixon wrote: > >You built your OP by replying to 'Array containment'. > True, but I'm looking at my original post and I don't see even a single reference to 'Array containment'. The subject shows to me as 'testing state o

Re: testing state of filehandle

--As off Wednesday, February 11, 2004 1:25 PM -0600, Michael C. Davis is alleged to have said: At 07:22 PM 2/11/04 -, Rob Dixon wrote: Please guys, not in an existing thread. Not sure I undestand, looks like a new thread ... ? --As for the rest, it is mine. Erm, no. Not to those of us with

Re: testing state of filehandle

Michael C. Davis wrote: > > At 07:22 PM 2/11/04 -, Rob Dixon wrote: > >Please guys, not in an existing thread. > > Not sure I undestand, looks like a new thread ... ? You built your OP by replying to 'Array containment'. Threads in perl.beginners can get very long: it's best to keep them pure

Re: testing state of filehandle

At 07:22 PM 2/11/04 -, Rob Dixon wrote: >Please guys, not in an existing thread. Not sure I undestand, looks like a new thread ... ? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: testing state of filehandle

At 11:18 AM 2/11/04 -0800, drieux wrote: > perldoc IO::Handle Thank you. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: testing state of filehandle

Michael C. Davis wrote: > [stuff] Please guys, not in an existing thread. Thx Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: testing state of filehandle

On Feb 11, 2004, at 11:13 AM, Michael C. Davis wrote: [..] This suggests doing it in an eval (so the error message gets trapped) and testing the result, but that seems like a complicated solution for a simple problem. Can anyone suggest a better way? Thanks very much in advance. have you look

testing state of filehandle

ins about a bareword. This doesn't work: - print "Can test: ", (LOGFILE ? "true" : "FALSE" ), "\n"; I thought maybe one of the -X operators could let you ping the state of the filehandle but if it's not o

Re: check process state

Zentara wrote: > > My top command dosn't allow for -U or $user. Maybe you > meant to use ps ? > the -U argument only exist for a certain version of top Top version 3.4 has it in my UNIX machine in my Linux box: [david@panda]$ top -V top (procps version 2.0.7) doesn't have it. david --

Re: check process state

... > > Thanks, > jp. > > > > sub isSleeping{ > > # get PID of process to check > my $pid = shift || return 0; > > # get user name > my $user; > if(`id` =~ /\((\w+)\)/) {$user=$1}; > > # the 7th field (starting at 0) of top output is

Re: check process state

user=$1}; > > # the 7th field (starting at 0) of top output is the state. > # top -b (for batch mode) -U $user (processes of $user). > my $state = (split /\s+/, (grep {/$pid/} `top -b -U $user`)[0])[7]; > > return $state eq "sleep"; >} > Try this Proc::Proc

RE: check process state

you could use the Proc::ProcessTable module > -Original Message- > From: Sylvanie, Jean-Pierre [mailto:[EMAIL PROTECTED]] > Sent: Monday, September 30, 2002 11:39 AM > To: '[EMAIL PROTECTED]' > Subject: check process state > > > Hi guys, > > I

check process state

$pid = shift || return 0; # get user name my $user; if(`id` =~ /\((\w+)\)/) {$user=$1}; # the 7th field (starting at 0) of top output is the state. # top -b (for batch mode) -U $user (processes of $user). my $state = (split /\s+/, (grep {/$pid/} `top -b -U $user`)[0])[7]; return

Re: State Variables

Grant Hansen wrote: > > Can anyone provide an example of how to use a state variable to break > out of a > > loop? > > > > Thanks > >I smell homework. > >But to be fair: what do you have so far? Why doesn't it do what you want? >If you showed us your

Re: State Variables

On Fri, Sep 27, 2002 at 08:29:53PM -0500, Grant Hansen wrote: > Can anyone provide an example of how to use a state variable to break out of a > loop? > > Thanks I smell homework. But to be fair: what do you have so far? Why doesn't it do what you want? If you showed us yo

Re: State Variables

Grant Hansen wrote: > > Can anyone provide an example of how to use a state variable to break out of a > loop? Can you provide an example or explanation of what you are trying to do? John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

State Variables

Can anyone provide an example of how to use a state variable to break out of a loop? Thanks -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Active State

> Looks like you got an incomplete download. >Try re-dl-ing it. I think it wouldn't have gunzipped in the first place if the file was incomplete. gzip -t ActivePerl-5.6.1.633-sun4-solaris.tar.gz returns success. But just to be on the safe side, I repeated the download/unzip process 3 times..

Re: Active State

o: drieux; begin begin >> Subject: RE: Active State >> >> gzip -d/gunzip ActivePerl-5.6.1.633-sun4-solaris.tar.gz (tried both) >> tar -xvf ActivePerl-5.6.1.633-sun4-solaris.tar >> >> Segment error!! sounds right - assuming that ActivePerl's "sun4-s

RE: Active State

Looks like you got an incomplete download. Try re-dl-ing it. > -Original Message- > From: Shishir K. Singh [mailto:[EMAIL PROTECTED]] > Sent: Thursday, August 15, 2002 11:36 AM > To: drieux; begin begin > Subject: RE: Active State > > gzip -d/gunzip Acti

RE: Active State

> p0: which rev of Solaris are you working with? > eg: both the OS rev 5.X and the Arch - sparc XOR i386 Machine hardware: sun4u OS version: 5.8 Processor type: sparc Hardware: SUNW,Ultra-5_10 > p1: are you using gunzip to deal with unpacking them? gzip -d/gunzip

Re: Active State

On Thursday, August 15, 2002, at 07:31 , Shishir K. Singh wrote: [..] > I am tried to install The AS Package for Solaris on > Solaris..however..seems tat the *.gz file is not complete. Gives a > checksum error when I try to untar it. Has anyone else had the same > problem ? p0: which rev of S

RE: Active State

> pkgadd is one of the tools used in the Solaris implementation > of the SYS V packages model. > cf man pkgadd > For my money - it would be simpler to use the pkgadd command > on a Solaris Box. >f also the regular suite of tools > pkginfo > pkgrm . > if the folks at A

Re: Active State

On Thursday, August 15, 2002, at 07:10 , Shishir K. Singh wrote: > I am trying to download ActivePerl5.6.1 for solaris from active states > perl's site. However there are two options..pkgadd and AS package. What > does pkgadd mean ? Which one do I need to install ? pkgadd is one of the tool

Active State

Hello, I am trying to download ActivePerl5.6.1 for solaris from active states perl's site. However there are two options..pkgadd and AS package. What does pkgadd mean ? Which one do I need to install ? Thanks Shishir -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-ma

restoring state from a file

I'm working for the first time on saving state to a file based on Lincoln Stein's example and I'm having problems. Test code excerpts are below. save_state() is successfully creating and writing a file in the STATES directory holding several keyword=value pairs. The pro

Re: A Switch Case for multi-state returns.

> > What if there is HUNDREDS of items, then > > it'd be really slow. For a better approach > > using hashes then see what I did in: > > > > http://groups.yahoo.com/group/perl-beginner/message/9583 > > The question that now comes to mind is why > not put all of the 'response functions' > into a P

Re: A Switch Case for multi-state returns.

ainability. >> this way as the @state list grows or shrinks the one simply >> adds in one more switch statement > > What if there is HUNDREDS of items, then it'd be really slow. For a > better approach using hashes then see what I did in: > > http://groups.yahoo.com

Re: A Switch Case for multi-state returns.

> >If ( $data{$statefield} ) { > ># OR If ( $data{uc($rs->Fields('state')->value)} ) { > > # Process data > >} Arg! Don't do that nesting of the if!, use: if (condition1) { #action 1 } elsif (condition2) { #a

Re: A Switch Case for multi-state returns.

>> ??- >> @state="MA CI DE IN OH"; let me try that another way - without the bugs: vladimir: 81:] perl Switch.pl MA CI bob OH Process Says: MA_response Process Says: CI_response we do not know about state bob Mr Wizard the stateField OH unguarded at Switch.pl line 41.

A Switch Case for multi-state returns.

On Sunday, March 31, 2002, at 08:25 , Zeus Odin wrote: > #!D:\perl\bin\perl -w > use strict; > my %data; > > # fill in 11 other states > my @state = qw(MA CI DE IN OH); > @data{ @state } = (1) x @state; [..] >If ( $data{$statefield} ) { ># OR If ( $data{uc(

Re: Activ state Perl Dev Kit

Perl Script. -- Rex - Original Message - From: "Martin Pfeffer" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, November 09, 2001 4:11 AM Subject: Activ state Perl Dev Kit > does anywone has experience about Activ state Perl Dev Kit? > > > -

Activ state Perl Dev Kit

does anywone has experience about Activ state Perl Dev Kit? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: State of pseudo-hashes, typed lexicals

On Mon, Sep 10, 2001 at 11:27:51AM +0200, Edwin G?nthner wrote: > The pseudo-hashes have no autovivification - therefore > $self->{recieve} will result in an error. When using > hashes, the new hash entry is created without my knowledge. [snip] > And as far as I understand there is no way to avoi

Re: State of pseudo-hashes, typed lexicals

Michael Fowler wrote: > Tearing out the pseudohash code gives an across the board 10-15% > gain in speed in basic benchmarks. That means if we didn't have > pseudohashes, normal hashes would be just as fast as fully declared > pseudohashes! > > So don't mourn their passing.

Re: State of pseudo-hashes, typed lexicals

On Mon, Sep 10, 2001 at 10:39:51AM +0200, Edwin G?nthner wrote: > > They are experimental, and it's not a good idea to rely on them in > > production code. In fact, pseudo-hashes are on their way out. Typed > > Sorry to hear that. I liked the idea to have something more efficient > than hashes

Re: State of pseudo-hashes, typed lexicals

Hello Michael, > They are experimental, and it's not a good idea to rely on them in > production code. In fact, pseudo-hashes are on their way out. Typed Sorry to hear that. I liked the idea to have something more efficient than hashes ... on the other hand it is apparent that implementing ps

Re: State of pseudo-hashes, typed lexicals

On Mon, Sep 10, 2001 at 10:08:15AM +0200, Edwin G?nthner wrote: > Are pseudo-hashes and typed lexicals still "experimental" > or is it save to use them in a project that will might > be used for 3 to 5 years? They are experimental, and it's not a good idea to rely on them in production code. In

State of pseudo-hashes, typed lexicals

Hi there, I am reading "object oriented perl" from Damian Conway (execellent book btw.) and he is using pseudo-hashes and typed lexicals. But he says that these features are experimental ... on the other hand, his book is some two years old, so I am wondering: Are pseudo-hashes and typed lexical

RE: zipping files with Active State Perl

ers as necessary. In fact, I believe that its compression engine is what powers Compress::Zlib. Again, you can just use a system call for this. -Original Message- From: Rich Fernandez [mailto:[EMAIL PROTECTED]] Sent: Tuesday, July 31, 2001 2:51 PM To: [EMAIL PROTECTED] Subject: zipping fil

zipping files with Active State Perl

Does anyone know how to zip files with Perl on a windows platform? I have a couple of directories that I want to zip up and archive periodically. Thanks! richf -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]