RE: threads in perl

I have no problem to alarm when timeout occurs in specific thread, I have a difficulty to abort a "system" command in that thread. -Original Message- From: david [mailto:[EMAIL PROTECTED] Sent: Tuesday, January 20, 2004 9:14 PM To: [EMAIL PROTECTED] Subject: RE: threads in perl Igor Rya

Re: Filehandles stored in hashes

On Wed, Jan 21, 2004 at 12:40:39AM -0500, Steve Grazzini wrote: > But you have a syntax error as well, because the hash-dereference > <$self->{filehandle}> > ^..^ Ahh, I didn't notice that at all, I was wondering why it was complaining about it...shoulda twigged :) > You've already fo

Re: Filehandles stored in hashes

On Tuesday, January 20, 2004, at 11:34 PM, Robin Sheat wrote: Hey there, I'm not a total beginner to Perl, but am far enough into it to have a lot of questions, so I hope this is a suitable place for them :) Fire away! sub getResponse { my $self = shift; my $incoming = <$self->{filehandle}

Re: Filehandles stored in hashes

Hi, Robin. 1st Situation. I think the problem with " my $incoming = <$self->{filehandle}>; " it's that Perl thinks that the expresion inside the < > is $self- and then expects a semicolon but that semicolon isn't there. 2nd Situation. Do you like this option ? sub mySub { $foo = shift;

Filehandles stored in hashes

Hey there, I'm not a total beginner to Perl, but am far enough into it to have a lot of questions, so I hope this is a suitable place for them :) My current one is this. I have a method: sub getResponse { my $self = shift; my $fh = $self->{filehandle}; my $incoming = <$fh>; ...

OT: Re: exit perl script and cd in bash?

Kenton Brede wrote: On Sun, Jan 18, 2004 at 05:44:25PM -0600, Kenton Brede ([EMAIL PROTECTED]) wrote: I've been searching the archives and google for an answer. I suspect it can't be done but thought I'd ask. What I'm trying to do is create a tool such as "cdargs", in perl, to simplify moving

Re: exit perl script and cd in bash?

On Sun, Jan 18, 2004 at 05:44:25PM -0600, Kenton Brede ([EMAIL PROTECTED]) wrote: > I've been searching the archives and google for an answer. I suspect it > can't be done but thought I'd ask. > > What I'm trying to do is create a tool such as "cdargs", in perl, to > simplify moving between dir

RE: File::Copy

Of course if it is using a system copy and you are using NT/2000/XP/2003, then standard rules apply, i.e. copying from one device to another won't necessarily copy the permissions, etc. -Original Message- From: Wagner, David --- Senior Programmer Analyst --- WGO [mailto:[EMAIL PROTECTED]

Re: File::Copy

Larry Guest wrote: Anyone know how to get File::Copy module to keep file permissions when it copies from one location to another? Thanks "File::Copy also provides the "syscopy" routine, which copies the file specified in the first parameter to the file specified in the second parameter, prese

RE: File::Copy

This is what I found in ActiveState Doc concerning File::Copy: Special behaviour if syscopy is defined (OS/2, VMS and Win32) If both arguments to copy are not file handles, then copy will perform a ``system copy'' of the input file to a new output file, in order to preserve file attribut

File::Copy

Anyone know how to get File::Copy module to keep file permissions when it copies from one location to another? Thanks -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Reg Ex help...

On Jan 20, 2004, at 4:28 PM, Lewick, Taylor wrote: Thanks to everyone's help so far, I think I am getting better with Regular expressions... Need a little help on this one This is sample data, not accurate.. 1. St Joes (15-0) .875 (2-0) 2. Kentucky (12-2) .850 (1-0) 10. Kansas (12-2)

Re: Reg Ex help...

Lewick, Taylor wrote: Thanks to everyone's help so far, I think I am getting better with Regular expressions... Don't know if they have been mentioned, if not: perldoc perlretut perldoc perlre Need a little help on this one This is sample data, not accurate.. 1. St Joes (15-0) .875 (2-0)

Re: Loop Runners

> Can people please contribute on other ways to do the same thing. Please begin by > #3, #4.. etc as you read on different ways. use strict; use sub; my @a = @ARGV; my @array = @a; # 1 while (scalar (@array)) { my $element = shift (@array); main::process($element); } @a = @ARGV; #2 main:

Loop Runners

To run through a loop there more than one ways (a lot actually!) in PERL. The ones I'm aware of are: To run through @array #1 $size = @array; for($i=0;$i<$size;$i++) { print "$array[$i]\n"; } #2 foreach $i (@array) { print "$i\n"; } Can people please contribute on other ways to do the sam

RE: Writing custom cookies using LWP::UserAgent

> I am having LWP::UserAgent fetch information from a site that uses > Javascript to write a cookie like this: > > document.cookie = "jscript=1; path=/;"; > > Is there any way to tell my User Agent to add that cookie to > the cookie > jar? I had to do something similar, and rather than mess wit

Writing custom cookies using LWP::UserAgent

I am having LWP::UserAgent fetch information from a site that uses Javascript to write a cookie like this: document.cookie = "jscript=1; path=/;"; Is there any way to tell my User Agent to add that cookie to the cookie jar? Thanks, Dan -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addition

Reg Ex help...

Thanks to everyone's help so far, I think I am getting better with Regular expressions... Need a little help on this one This is sample data, not accurate.. 1. St Joes (15-0) .875 (2-0) 2. Kentucky (12-2) .850 (1-0) 10. Kansas (12-2) .778 (1-1) 198 Crappy School (2-9) .233 an

RE: Use of "System"

Someone kindly pointed out that perldoc is a handy thing. - Tony -Original Message- From: Akens, Anthony Sent: Tuesday, January 20, 2004 4:31 PM To: [EMAIL PROTECTED] Subject: RE: Use of "System" Sorry all, I seem to be having problems with our company's chosen mail client (Outlook).

Re: counters for lines

> On Tue, 20 Jan 2004 13:39:44 -0500 > "Anthony J Segelhorst" <[EMAIL PROTECTED]> wrote: > > > I have the following output, and each value that is separated by comma is > > a variable: > > > > servera,serverb,109,aix4-r1,server > > servera,serverb,109,aix4-r1,server > > servera,serverb,109,aix4-

RE: Use of "System"

Sorry all, I seem to be having problems with our company's chosen mail client (Outlook). Trying this again, hopefuly it will preserve my EOL characters this time. - Tony I'm attempting to use the following code on an AIX machine to monitor the error log (using the errpt command). I'm sure

Re: counters for lines

On Jan 20, 2004, at 2:52 PM, Anthony J Segelhorst wrote: James Edward Gray II <[EMAIL PROTECTED]> 01/20/2004 02:11 PM I got this script written from James gave me: Right here you left out: use strict; use warnings; While not required, they're and important step in gaining Perl mastery. Start fo

Re: counters for lines

On Tue, 20 Jan 2004 13:39:44 -0500 "Anthony J Segelhorst" <[EMAIL PROTECTED]> wrote: > I have the following output, and each value that is separated by comma is > a variable: > > servera,serverb,109,aix4-r1,server > servera,serverb,109,aix4-r1,server > servera,serverb,109,aix4-r1,server > server

Use of "System"

I'm attempting to use the following code on an AIX machine to monitor the error log (using the errpt command). I'm sure parts of it are very ugly, but it's (mostly) working. The part that isn't is the foreach loop. What it's supposed to do is as follows: #read in the "summary" error report, whi

Re: counters for lines

James Edward Gray II <[EMAIL PROTECTED]> 01/20/2004 02:11 PM To: "Anthony J Segelhorst" <[EMAIL PROTECTED]> cc: [EMAIL PROTECTED] Subject:Re: counters for lines On Jan 20, 2004, at 12:39 PM, Anthony J Segelhorst wrote: > I have the following output, and

Re: Perl C module compile fails

Steve, [EMAIL PROTECTED] wrote: Hi ppl :-) I now use CPAN to install modules. I have to install the DBI module but when installing I get this error when it's about to compile a C file : cc -c-D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=16384 -qnoansialias -DUSE_NATIVE_DLOPEN -I/us

Re: Delete multiple blank lines

On Jan 20, 2004, at 1:01 PM, Paul Johnson wrote: perl -i~ -p00e0 file1 file2 ... Wow! I've been over here trying to explain to myself why that works. Help me out a little. Broken down those switches are: -i~ -p -00e0 Right? No problems with the first two here. The third sets the input reco

RadioButton question

Hello all.. the radiobuttons execute the code in the command whether I select OK or Cancel.. How can I execute on ok only? I have the following code: sub OnPowerSearchDialog { # Construct the DialogBox my $setpwrsrch = $mw->DialogBox( -title=>"Set Node Dialog", -buttons=>["OK", "Cancel"] );

Perl C module compile fails

Hi ppl :-) I now use CPAN to install modules. I have to install the DBI module but when installing I get this error when it's about to compile a C file : cc -c-D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=16384 -qnoansialias -DUSE_NATIVE_DLOPEN -I/usr/local/include -q32 -D_LARGE_FILE

Re: counters for lines

On Jan 20, 2004, at 12:39 PM, Anthony J Segelhorst wrote: I have the following output, and each value that is separated by comma is a variable: servera,serverb,109,aix4-r1,server servera,serverb,109,aix4-r1,server servera,serverb,109,aix4-r1,server servera,serverb,109,aix4-r1,server servera,serv

Re: Delete multiple blank lines

On Jan 20, 2004, at 12:39 PM, Lewick, Taylor wrote: Hi all, I could use some help with an expression or code to delete multiple blank lines and replace it with only one blank line... I know how this can be done in sed, but am not sure how to do it in perl... Well, if slurping is okay (read: file s

Re: Delete multiple blank lines

On Tue, Jan 20, 2004 at 12:39:55PM -0600, Lewick, Taylor wrote: > Hi all, I could use some help with an expression or code to delete > multiple blank lines and replace it with only one blank line... > > I know how this can be done in sed, but am not sure how to do it in > perl... perl -i~ -p00e0

Re: packing array of binary (1 and 0)

Nagendra wrote: > All, > > Can anybody tell me , how to pack binary array into string of 32 bit words > adn print into hexa, > > $word2 = pack ("C", @line1[32 .. 63]); > try: #!/usr/bin/perl -w use strict; my $c = pack('C*',map ord,split(//,'a line of text')); print join('',unpack('a*',$c))

Re: Delete multiple blank lines

> Hi all, I could use some help with an expression or code to delete > multiple blank lines and replace it with only one blank line... > > I know how this can be done in sed, but am not sure how to do it in > perl... > > Thanks, > Taylor Well you could do this the simple way, use a switch that

Re: counters for lines

> > I have the following output, and each value that is separated by comma is > a variable: > > servera,serverb,109,aix4-r1,server > servera,serverb,109,aix4-r1,server > servera,serverb,109,aix4-r1,server > servera,serverb,109,aix4-r1,server > servera,serverb,109,aix4-r1,server > servera,serve

File::Repl help !!

Ok, I have written a script that uses the File::Repl module. I am pretty much done and was just doing some final tests when I realized that the module does not keep the permissions on the files when it replicates them. This is not good since I am using it for web content pushes from staging to p

RE: threads in perl

Igor Ryaboy wrote: > Hi, > I have a thread that invokes system("command") that may stuck. I can't let > this thread die because it may take a lot of time. Example: > > threads->new(\&srun); > .. > .. > sub srun { > system(""); > threads->self->join; > } > I need to kill the system command i

Delete multiple blank lines

Hi all, I could use some help with an expression or code to delete multiple blank lines and replace it with only one blank line... I know how this can be done in sed, but am not sure how to do it in perl... Thanks, Taylor -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-ma

counters for lines

I have the following output, and each value that is separated by comma is a variable: servera,serverb,109,aix4-r1,server servera,serverb,109,aix4-r1,server servera,serverb,109,aix4-r1,server servera,serverb,109,aix4-r1,server servera,serverb,109,aix4-r1,server servera,serverb,109,hpux10,server se

Re: On import v. Just Do It.

Oops left out a sentence > p0: yes, one can use an import() from a package > to make something like the scam of 'require in line' Why is it a scam if that's what I want to do for myself? > for the twin pragma of 'use strict' and 'use warnings' > { oye! } > > p1: But there is this minor tech

Re: exit perl script and cd in bash?

John W. Krahn wrote: It is very easy to change the directory from inside a Perl program however as soon as the program exits the changes will be lost. This is true of Perl or C or Bash or anything that runs as a child of the shell. A child process cannot change its parent's environment. This woul

RE: On import v. Just Do It.

> p0: yes, one can use an import() from a package > to make something like the scam of 'require in line' Why is it a scam if that's what I want to do for myself? > for the twin pragma of 'use strict' and 'use warnings' > { oye! } > > p1: But there is this minor technical overhead that > comes wi

Re: CPAN question

On Tuesday 20 January 2004 4:21 pm, Gary Stainburn wrote: > On Tuesday 20 January 2004 4:05 pm, Tim McGeary wrote: > > Maybe this isn't the right place to ask this question, but I'm a little > > desparate. Does anyone know how to edit the CPAN config to add other > > mirrors to download CPAN modul

RE: Use strict inside module to apply to entire script?

> On Saturday, January 17, 2004, at 06:21 PM, Dan Muey wrote: > > I was curious if it's possible to have a module like so: > > > > package Foo:Monkey; > > > > use strict; > > use warnings; > > You can call "strict->import" like this: > > package Foo::Monkey; > sub import { > fo

Re: CPAN question

In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Tim McGeary) writes: >Maybe this isn't the right place to ask this question, but I'm a little >desparate. Does anyone know how to edit the CPAN config to add other >mirrors to download CPAN modules from? The mirror that my CPAN >installation

Re: CPAN question

On Tuesday 20 January 2004 4:05 pm, Tim McGeary wrote: > Maybe this isn't the right place to ask this question, but I'm a little > desparate. Does anyone know how to edit the CPAN config to add other > mirrors to download CPAN modules from? The mirror that my CPAN > installation is looking for is

Re: use strict and filehandles

I had a similar problem passing a filehandle to a sub and learned that I had to use the typeglob instead. HTH, Jan B McKee wrote: >Hi All, >I'm having trouble understanding what use strict is trying to tell me. > >If I have run this program > >-CODE--- >#!/u

CPAN question

Maybe this isn't the right place to ask this question, but I'm a little desparate. Does anyone know how to edit the CPAN config to add other mirrors to download CPAN modules from? The mirror that my CPAN installation is looking for is down and I can't figure out how to change it. Thanks, Tim

Re: usage of Net::Telnet

Try using input_log and output_log when you instantiate your telnet class. $obj = new Net::Telnet ([Binmode=> $mode,] [Cmd_remove_mode => $mode,] [Dump_Log => $filename,] [Errmode=> $errmode,]

Re: How to send results to more than one recipient

On Jan 20, 2004, at 8:47 AM, Sander wrote: James, Thanks for the response but that doesn't seem to work either. Maybe it would be easier just to create a distribution list on the email server and just put that address in my script. That's definitely a way to go. Other choices: Send us the par

RE: Terminating script if file does not exist

> Basically the script runs and looks for a file in a certain > directory. If the file is there, the script continues to run > and process the file, but if the file is not there the script > should just exit. > > Any ideas on how to do this? Beside die() you may also want to check it. if(-e

use strict and filehandles

Hi All, I'm having trouble understanding what use strict is trying to tell me. If I have run this program -CODE--- #!/usr/bin/perl -wT # use warnings and turn on data tainting use CGI qw(:standard); $CGI::POST_MAX=1024 * 100; $CGI::DISABLE_UPLOADS = 1; use stric

RE: How to send results to more than one recipient

I use Mail::Sender on a daily basis for several things in a production environment and it works beautifully. Its easy to use and allows for email attachments as well!!! Bradley -Original Message- From: Dan Muey [mailto:[EMAIL PROTECTED] Sent: Tuesday, January 20, 2004 10:26 AM To: Sander;

RE: How to send results to more than one recipient

> > Thanks for the response but that doesn't seem to work either. > Maybe it would be easier just to create a distribution list > on the email server and just put that address in my script. > It doesn't work, looping over an array does not work? for(@emaillist) { # pipe $_ to qmail i

RE: Terminating script if file does not exist

> Perlwannabe wrote: > > > > Basically the script runs and looks for a file in a certain > directory. > > If the file is there, the script continues to run and process the > > file, but if the file is not there the script should just exit. > > > > Any ideas on how to do this? > > open FILE,

Re: How to send results to more than one recipient

"James Edward Gray II" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > On Jan 19, 2004, at 3:23 PM, Sander wrote: > > > I have a simple form that I have been using for a while, but now I > > need to > > send the data to two email addresses. What is the simplest way to > > achieve > >

Re: Day of the week by accepting date from User

On Jan 20, Mallik said: >How to calculate the Day of the week for a given date >in PERL. > >Please provide me any code available that doesn't require >any other modules to be installed. You can do it with the standard module Time::Local. You already have this; it doesn't need to be installed.

Re: Passing Hash table to function?

On Jan 20, 2004, at 5:09 AM, Tushar Gokhale wrote: Thanks James for your prompt reply and sorry for my poor english. I'll get back to the point to clear the confusion. There are 5 scripts which I'm running and each script has %enumerations with its own values. There is one library where

Re: Re: How t o sort haskeys by numbersize??

Thank´s a lot people! Have a nice day, Bastian -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Passing Hash table to function?

Thanks James for your prompt reply and sorry for my poor english. I'll get back to the point to clear the confusion. There are 5 scripts which I'm running and each script has %enumerations with its own values. There is one library where most of my functions are stored. My each script has th

Re: Day of the week by accepting date from User

On Tue, 20 Jan 2004 13:36:39 +0530 "Mallik" <[EMAIL PROTECTED]> wrote: > Dear Friends, > > How to calculate the Day of the week for a given date > in PERL. > > Please provide me any code available that doesn't require > any other modules to be installed. Try this #!/usr/bin/perl -w @t = loca

usage of Net::Telnet

Hi , I am trying to use the Net::Telnet module after installing in my solaris 2.8 machine. But I am unable to get the output. There is no error messages either.The program just exists. Could you help me out on this please... #!/usr/bin/perl -w use Net::Telnet (); $t = new Net::Telnet (Timeout

Re: Redirect stdout, stderr to file and stdout

From: "Larry Guest" <[EMAIL PROTECTED]> > What I need to do now is not only have is display information to > STDERR and STDOUT but also write the same information I see when I run > the command to a file. Strange you only got a few Unix-only solutions when there are at least two modules that do t

Re: Saying an item is empty

From: "Trina Espinoza" <[EMAIL PROTECTED]> > I would like to know how I would say if $item equals $tempitem OR if > $item is empty(the variable is a placeholder that has nothing in it), > execute command. I'd revert the tests. First see whether it's empty, then whether it equals something:

Day of the week by accepting date from User

Dear Friends, How to calculate the Day of the week for a given date in PERL. Please provide me any code available that doesn't require any other modules to be installed. Thanks in advance, Mallik. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <

packing array of binary (1 and 0)

All, Can anybody tell me , how to pack binary array into string of 32 bit words adn print into hexa, $word2 = pack ("C", @line1[32 .. 63]); But nothing happens here. Also I want to do it character by character packing $word1 = pack("C", $line1[316], $line1[318], $line1[320], $line1[322], $li

RE: How to sort hashkeys by numbersize??

Bastian Angerstein <[EMAIL PROTECTED]> wrote: : : I got the following Problem: : : My hashkeys looks like "number:string" . : : For example "10530:fileparameter-sa1" : "10529:fileparameter-mv1" : "10531:fileparameter-tx4" : : (without the " signs...) : : I would like

Re: How to sort hashkeys by numbersize??

Bastian Angerstein wrote: > > I got the following Problem: > > My hashkeys looks like "number:string" . > > For example "10530:fileparameter-sa1" > "10529:fileparameter-mv1" > "10531:fileparameter-tx4" > > (without the " signs...) > > I would like to sort the hashke

Re: Terminating script if file does not exist

Perlwannabe wrote: > > Basically the script runs and looks for a file in a certain directory. If > the file is there, the script continues to run and process the file, but > if the file is not there the script should just exit. > > Any ideas on how to do this? open FILE, '<', 'certain/directory

Re: How to sort hashkeys by numbersize??

On Tue, 20 Jan 2004, Bastian Angerstein wrote: > > I got the following Problem: > > My hashkeys looks like "number:string" . > > For example "10530:fileparameter-sa1" > "10529:fileparameter-mv1" > "10531:fileparameter-tx4" > > (without the " signs...) > > I would li

poweroff remote PC

Does anyone know of a way to power off a remote computer (Win 2K)? I've tried "Win32::InitiateSystemShutdown ($MACHINE,30,0,1)" but that leaves the PC in a "It is now safe to turn off your computer" state. This doesn't do me much good if I have to go out and manually power them off, then on aga

How to sort hashkeys by numbersize??

I got the following Problem: My hashkeys looks like "number:string" . For example "10530:fileparameter-sa1" "10529:fileparameter-mv1" "10531:fileparameter-tx4" (without the " signs...) I would like to sort the hashkeys by the number before the doublepoint. Any Idea

RE: threads in perl

Hi, I have a thread that invokes system("command") that may stuck. I can't let this thread die because it may take a lot of time. Example: threads->new(\&srun); .. .. sub srun { system(""); threads->self->join; } I need to kill the system command if it takes more than define timeout. Thank

Re: threads in perl

CPAN http://search.cpan.org El Tue January 20 2004 03:44 Igor Ryaboy dijo : > Hi, > Thanks for your tips, > Where can I get those modules? > Igor > > -Original Message- > From: david [mailto:[EMAIL PROTECTED] > Sent: Monday, January 19, 2004 9:15 PM > To: [EMAIL PROTECTED] > Subject: RE: