perl equivalent of `trap'

2002-07-10 Thread Harry Putnam
Probably get horse whipped for this one, but what is the perl equivalent of shell `trap' function. `perldoc -f trap' lets me know there isn't one of the same name. Where does one read about it? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

MAIL

2002-07-10 Thread Javeed SAR
Hi, I am using a perl script which sends mail after certain activity, This script uses smtp, my question is i want a script which uses TCP/IP(X400) for sending mails. The script which i am using is given below, it works fine, but i need something which uses TCP/IP(X400) . my @MSG = ("Tr

Re: Avoiding Duplicate Entries

2002-07-10 Thread John W. Krahn
Drieux wrote: > > On Tuesday, July 9, 2002, at 06:25 , John W. Krahn wrote: > [..] > > One way would be to cache the last line read and the next time you read > > the file loop until that line is encountered and only process the lines > > after it. > > john, > > when you say 'cache the last lin

Re: removing qw( [ array ] ) seems to fix it?

2002-07-10 Thread John W. Krahn
Zachary Buckholz wrote: > > Original:: > avg_resp_time=> [ qw(@$avg_resp_time[0] > @$avg_resp_time[1] > @$avg_resp_time[2] > @$avg_resp_time[3] > @$

Re: Insert Var in Regex Problem

2002-07-10 Thread John W. Krahn
Connie Chan wrote: > > > > From: Connie Chan [mailto:[EMAIL PROTECTED]] > > > > > > Say, I have an input $x = "ABCDEF"; > > > and I will try to remove $x from a string, > > > what can I do ? > > > > > > Is there something like : > > > > > > $x =~ s/$x//g; > > Sorry everybody I've make a mist

Re: Avoiding Duplicate Entries

2002-07-10 Thread drieux
On Tuesday, July 9, 2002, at 06:25 , John W. Krahn wrote: [..] > One way would be to cache the last line read and the next time you read > the file loop until that line is encountered and only process the lines > after it. john, when you say 'cache the last line' - are you meaning #

Re: script wouldn't execute from .forward

2002-07-10 Thread drieux
On Wednesday, July 10, 2002, at 12:00 , lz wrote: > here is an example of my setup: > username: test > > -rwxr-xr-x 1 test test 32 Jun 6 13:53 .forward > > here is what I have inside of my forward: > |/home/test/test.pl you might want to look at the manpage again for vacation on linux/darwi

Re: libwww-perl and URI modules for 5.005_02

2002-07-10 Thread Peter Scott
At 06:42 PM 7/10/02 -0700, H. Victor Lim wrote: >Hello, > >I am working on a Solaris platform using version 5.005_02. Could >someone point me to libwww-perl and URI modules that would work with >5.005_02? I searched through www.cpan.org and the earliest versions >that I found are: > >libwww-

Re: Rquire '_h2ph_pre.ph'

2002-07-10 Thread jiangds
- Original Message - From: "jiangds" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Thursday, July 11, 2002 9:47 AM Subject: Rquire '_h2ph_pre.ph' > > > > > hi,all > > after my installation of redhat7.2,as root I do: > >cd /usr/includ

libwww-perl and URI modules for 5.005_02

2002-07-10 Thread H. Victor Lim
Hello, I am working on a Solaris platform using version 5.005_02. Could someone point me to libwww-perl and URI modules that would work with 5.005_02? I searched through www.cpan.org and the earliest versions that I found are: libwww-perl-5.10.tar.gz URI-1.18.tar.gz After installing the

Re: What is this string type? How to play with?

2002-07-10 Thread Felix Geerinckx
on Wed, 10 Jul 2002 22:50:56 GMT, Connie Chan wrote: > OO!!... Thanks a lot, I got the hint now !! =) > but I think what I want is uri_escape(uri_unescape($string)) > > Anyway, is that kind of string called "Escape String" ? An "URI Escaped string", to be correctly (hence the name of the mudul

removing qw( [ array ] ) seems to fix it?

2002-07-10 Thread Zachary Buckholz
Original:: avg_resp_time=> [ qw(@$avg_resp_time[0] @$avg_resp_time[1] @$avg_resp_time[2] @$avg_resp_time[3]

Re: more example code Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread Zachary Buckholz
Wow - what an improvment. Thanks very much. my $url_id_list = get_url_id_list(); foreach my $url_id(@$url_id_list) { my $config_details = get_config_details($url_id); my ($chk_freq, $url_timeout, $url, $url_protocol, $mc_email) = @{$config_details}; I changed selectall to selectcol and sele

Re: more example code Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread Zachary Buckholz
Thanks Bob - I tried switching to selectcol instead of selectall and returning that and changed the foreach as you said below but I get "Can't use string ("21185") as an ARRAY ref while "strict refs" in use at ./weeklyreport.pl line 14." So I must be trying to dereference an already dereferenced

Re: Stumped by "Learning Perl" example

2002-07-10 Thread Felix Geerinckx
on Wed, 10 Jul 2002 22:44:43 GMT, Drieux wrote: > then do remember to set your stty correctly or you get: There is no way to set stty on Win2K, let alone correctly. -- felix -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: What is this string type? How to play with?

2002-07-10 Thread Connie Chan
> > use URI::Escape; > > my $string="&message=%20%2F%15+...&..."; > print uri_unescape($string); > OO!!... Thanks a lot, I got the hint now !! =) but I think what I want is uri_escape(uri_unescape($string)) Anyway, is that kind of string called "Escape String" ? Rgds, Conni

RE: Stumped by "Learning Perl" example

2002-07-10 Thread Mark M. Andrich
Yep, that was exactly it. Perl Builder just wasn't cooperating. Thanks for your responses! Mark -Original Message- From: John Pitchko [mailto:[EMAIL PROTECTED]] Sent: Wednesday, July 10, 2002 5:33 PM To: Mark M. Andrich; [EMAIL PROTECTED] Subject: Re: Stumped by "Learning Perl" e

Re: Insert Var in Regex Problem

2002-07-10 Thread Connie Chan
Sorry everybody I've make a mistake on forgetting to add a /i operator... my problem happens just becasue of case not match Rgds, Connie > > > > > > > -Original Message- > > From: Connie Chan [mailto:[EMAIL PROTECTED]] > > Sent: Wednesday, July 10, 2002 3:06 PM > > To: [E

RE: Stumped by "Learning Perl" example

2002-07-10 Thread Timothy Johnson
If you're using Perl Builder, you should see the Debugger Status as RUNNING at the bottom of the screen if your script is still running. In the example given, you DO have to break out of the loop. Try entering a Ctrl-Z (Windows EOF) as the last character, and that should let you break out of i

Re: What is this string type? How to play with?

2002-07-10 Thread Felix Geerinckx
on Wed, 10 Jul 2002 22:21:55 GMT, Connie Chan wrote: > With get method from form, we always see that the > $ENV{QUERY_STRING} like this : > &message=%20%2F%15+...&... > > btw, what is the name of that string in types of ? Escape ? Unicode ? > > With simple tr/// and s///, I can get back wh

Re: How to do a consecutive grep?

2002-07-10 Thread Jeremy Vinding
> > @array = ; > @res_grep1 = grep /pattern1/, @array; > @res_grep2 = grep /pattern1/, @res_grep1; > @res_grep3 = grep /pattern1/, @res_grep2; > how about something like: @res = grep { /pattern1/ && /pattern2/ && /pattern3/ } ; jjv -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

Re: Stumped by "Learning Perl" example

2002-07-10 Thread John Pitchko
Seems to run fine on Solaris. Do like the other dude said and try it from the command line. PerlBuilder may not be intercepting the Ctrl-D/Z properly? John Pitchko Data Services Saskatchewan Government Insurance >>> "Mark M. Andrich" <[EMAIL PROTECTED]> 07/10/02 04:14pm >>> Chapter 3 Ex. 1:

Re: Insert Var in Regex Problem

2002-07-10 Thread George Schlossnagle
That example compiles and works fine (does what you want it to) as is. On Wednesday, July 10, 2002, at 06:26 PM, Connie Chan wrote: > >> It sounds like you want something more like: >> >> $string = "ABCDEFGHIJKLMNOP"; >> $x = "ABCDEF"; >> $string =~ s/$x//g; >> >> Or am I misunderstanding? >> >

Re: How to do a consecutive grep?

2002-07-10 Thread George Schlossnagle
@result = grep {/pattern1/ && /pattern2/ && /pattern3/} @array; On Wednesday, July 10, 2002, at 06:16 PM, Robert Kasunic wrote: > Hi, > > I am looking for an efficient way to do consecutive grep's in perl, i. > e. a possibility to resemble something like > 'cat some_file | grep pattern1 | gre

Re: Insert Var in Regex Problem

2002-07-10 Thread Connie Chan
> It sounds like you want something more like: > > $string = "ABCDEFGHIJKLMNOP"; > $x = "ABCDEF"; > $string =~ s/$x//g; > > Or am I misunderstanding? > YES!! That's exactly my case haha... sorry didn't telling in clear... (actually, logic error, my sample seem the var kills itself) Please

Re: Stumped by "Learning Perl" example

2002-07-10 Thread Felix Geerinckx
on Wed, 10 Jul 2002 22:14:04 GMT, Mark M. Andrich wrote: > [code snipped] > I'm using Perl Builder 2.2 on Win 2K. When I run the script, I get the > initial sentence and enter my input in the I/O box, after that nothing > happens. Either I can't seem to find the right combination to break out > o

What is this string type? How to play with?

2002-07-10 Thread Connie Chan
Hi all, With get method from form, we always see that the $ENV{QUERY_STRING} like this : &message=%20%2F%15+...&... btw, what is the name of that string in types of ? Escape ? Unicode ? With simple tr/// and s///, I can get back what exact the input is, but, how can I make a the input bac

Re: Insert Var in Regex Problem

2002-07-10 Thread Felix Geerinckx
on Wed, 10 Jul 2002 22:05:58 GMT, Connie Chan wrote: > Say, I have an input $x = "ABCDEF"; > and I will try to remove $x from a string, > what can I do ? > > Is there something like : > > $x =~ s/$x//g; That's just a complicated way to say $x = ''; But this works: #! perl -w u

RE: Insert Var in Regex Problem

2002-07-10 Thread Timothy Johnson
It sounds like you want something more like: $string = "ABCDEFGHIJKLMNOP"; $x = "ABCDEF"; $string =~ s/$x//g; Or am I misunderstanding? -Original Message- From: Connie Chan [mailto:[EMAIL PROTECTED]] Sent: Wednesday, July 10, 2002 3:06 PM To: [EMAIL PROTECTED] Subject: Insert Var in Re

How to do a consecutive grep?

2002-07-10 Thread Robert Kasunic
Hi, I am looking for an efficient way to do consecutive grep's in perl, i. e. a possibility to resemble something like 'cat some_file | grep pattern1 | grep pattern2 | grep pattern3'. I know I can do that as follows: @array = ; @res_grep1 = grep /pattern1/, @array; @res_grep2 = grep /pattern1

"require" returns no value ?

2002-07-10 Thread Connie Chan
Hi all, I have an array like this @path = ( 'C:\path1\script1.pl' , 'C:\path1\script2.pl' , 'C:\path2\script1.pl' , 'C:\path2\script2.pl' ); Then I tried this : require "$_" for (@path); It goes fail... Questions : 1. How can I know if a "require" is success or not ? 2. Anything wrong f

Stumped by "Learning Perl" example

2002-07-10 Thread Mark M. Andrich
Chapter 3 Ex. 1: They use the following code: print "Enter some lines and than use the ctrl set to end! \n" ; print reverse ; or print "blah blah blah. \n"; @lines = ; @reverse_lines = reverse @lines; print reverse_lines I'm using Perl Builder 2.2 on Win 2K. When I run the

Insert Var in Regex Problem

2002-07-10 Thread Connie Chan
Hi all, Say, I have an input $x = "ABCDEF"; and I will try to remove $x from a string, what can I do ? Is there something like : $x =~ s/$x//g; Rgds, Connie

Re: change where use warnings go..

2002-07-10 Thread Jenda Krynicky
From: Nikola Janceski <[EMAIL PROTECTED]> > I want to change where the warnings from use warnings goes. > I already screwed around with STDERR so don't give me those > suggestions (there are other things going to STDERR). and the same for > use strict if possible. > > =) > >

RE: Easy way to compare 2 perl lists (arrays)?

2002-07-10 Thread Bob Showalter
> -Original Message- > From: Rupert Heesom [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 10, 2002 10:18 AM > To: [EMAIL PROTECTED] > Subject: Easy way to compare 2 perl lists (arrays)? > > > I'm working with directories in which there should be a > number of graphs > files; one TIF

Re: Easy way to compare 2 perl lists (arrays)?

2002-07-10 Thread John W. Krahn
Rupert Heesom wrote: > > I'm working with directories in which there should be a number of graphs > files; one TIFF file, one PDF file. > > I'm wanting to find which TIFF files there is no corresponding PDF file for. > > One way to do this is to create 2 lists (arrays), one for all the TIFF fil

RE: change where use warnings go..

2002-07-10 Thread Bob Showalter
> -Original Message- > From: Nikola Janceski [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 10, 2002 4:33 PM > To: Beginners (E-mail) > Subject: change where use warnings go.. > > > I want to change where the warnings from use warnings goes. > I already screwed around with STDERR so

Re: Am I being stupid here... or?

2002-07-10 Thread drieux
On Wednesday, July 10, 2002, at 01:07 , Chris Knipe wrote: [..] > What I'd like to accomplish, is something in the lines of: > > if ($SiteType == "PHP3") { > do some stuff > } elsif ($SiteType == "PHP4") { > do different stuff > } elsif ($SiteType == "ASP") { > do different stuff > > }

Pulling multiple items out of a scrape

2002-07-10 Thread Tara Calishain
Is there a way I can pull multiple items out of a page scrape? I know I can do this: my $data = get("http://foo";) or die "ERROR: $!"; $data =~ / this is a (.*) page/i; my $scrape1 = $1; What I want to do is pull five bits of information off the page. I'm reasonably confident this would work:

change where use warnings go..

2002-07-10 Thread Nikola Janceski
I want to change where the warnings from use warnings goes. I already screwed around with STDERR so don't give me those suggestions (there are other things going to STDERR). and the same for use strict if possible. =) thanx if you have any ideas. Nikola Janceski Not until we dare to regard ou

RE: Am I being stupid here... or?

2002-07-10 Thread Mark Anderson
== is a numerical operator eq is a string operator "something" == "notsomething" looks at the numerical value of each string, and they are the same so it returns true. "something" eq "notsomething" looks at the actual strings, which are different and returns false. for more information: perldoc

RE: Am I being stupid here... or?

2002-07-10 Thread Nikola Janceski
use eq to compare strings not == == is to compare numerical values only perldoc perlop > -Original Message- > From: Chris Knipe [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 10, 2002 4:08 PM > To: [EMAIL PROTECTED] > Subject: Am I being stupid here... or? > > > Lo all, > > Very

Re: Using grep with Win32 perl?

2002-07-10 Thread John W. Krahn
Rupert Heesom wrote: > > Can I assume that it's not possible to use grep in a Win32 perl script? Yes it is. perldoc -f grep > I'm trying to filter the files that READDIR reads in from a directory. I > need to get one list of of TIFF files, and another list of all PDF files in > a particular

Re: Am I being stupid here... or?

2002-07-10 Thread Chris Knipe
On Wed, Jul 10, 2002 at 04:11:42PM -0400, Bob Showalter wrote: > > if ($SiteType == "notsomething") { > > Use eq for string comparison. == is for numeric comparison. Told you I was being stupid :p I guess after a well deserved 3 week holiday, I am allowed to be a bit rusty... Work's wonderf

Re: Am I being stupid here... or?

2002-07-10 Thread Thomas S. Dixon
Chris Knipe wrote: > Lo all, > > Very stupid it must be, but I can't see what I'm doing wrong here... > > The following if statement, always returns true (prints "a"), regardless > of what the value of $SiteType is... > > #!/usr/bin/perl > > $SiteType = "something"; > > if ($SiteType == "no

Re: Am I being stupid here... or?

2002-07-10 Thread Kevin Old
Chris, I wouldn't say stupid, but it is a common error.try using "eq" instead of "==" in all of your test cases. HTH, Kevin On Wed, 2002-07-10 at 16:07, Chris Knipe wrote: > Lo all, > > Very stupid it must be, but I can't see what I'm doing wrong here... > > The following if statement, a

Re: Am I being stupid here... or?

2002-07-10 Thread Jeff 'japhy' Pinyan
On Jul 10, Chris Knipe said: >#!/usr/bin/perl You are doing something stupid -- you're not using warnings. #!/usr/bin/perl -w Or, if you're using Perl 5.6, #!/usr/bin/perl use warnings; >$SiteType = "something"; > >if ($SiteType == "notsomething") { > print "a"; >} Now run your code

Re: Am I being stupid here... or?

2002-07-10 Thread George Schlossnagle
You're using a numerical comparison operator (==) when you should be using a lexigraphical comparison operator (eq). So your line should read if($SiteType eq "notsomething") { print "a"; } On Wednesday, July 10, 2002, at 04:07 PM, Chris Knipe wrote: > Lo all, > > Very stupid it must

RE: Am I being stupid here... or?

2002-07-10 Thread Bob Showalter
> -Original Message- > From: Chris Knipe [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 10, 2002 4:08 PM > To: [EMAIL PROTECTED] > Subject: Am I being stupid here... or? > > > Lo all, > > Very stupid it must be, but I can't see what I'm doing wrong here... > > The following if sta

Am I being stupid here... or?

2002-07-10 Thread Chris Knipe
Lo all, Very stupid it must be, but I can't see what I'm doing wrong here... The following if statement, always returns true (prints "a"), regardless of what the value of $SiteType is... #!/usr/bin/perl $SiteType = "something"; if ($SiteType == "notsomething") { print "a"; } Am I doing s

Re: question

2002-07-10 Thread Jose Malacara
Thanks for the help. I was actually able to get the end results I wanted with a little help. Here's the script: # while () { # chomp; # if ( (m|State=|)) { # $state = $'; # print "State=$state\n"; # } elsif ( (m|City=|)) { #

Error checking on data streams

2002-07-10 Thread Kevin Old
Hello all, I am currently streaming data from one of my servers via a custom client/server package we have. The client is written in C and is invoked by passing parameters to it. Currently I call it via the following syntax: myclient -start_time 12:00:00 -end_time 12:59:59 -host my_hostname_

Re: unix mail

2002-07-10 Thread George Schlossnagle
The unix mail command does not allow you to set the from address (that is your own user), but the syntax of the rest of it can be gotten from 'man mail', excerpted here: mail [-s subject] [-c cc-addr] [-b bcc-addr] to-addr But, since this is a perl list, I would be remiss if I didnt suggest yo

Re: script wouldn't execute from .forward

2002-07-10 Thread Peter Scott
At 12:00 PM 7/10/02 -0700, lz wrote: >When I send email to test@domain, for some reasons, >..forward wouldn't execute my script? > >Any ideas why? You might be running into the evil SMERSH... er, smrsh, that is. Do 'man smrsh'... here's the first bit: DESCRIPTION The smrsh program is

Re: question

2002-07-10 Thread Kristina Nairn
At 06:05 PM 7/8/2002 -0600, Jose Malacara wrote: >Hello all, >I am new to the list and have what I believe is a pretty basic question, >I'm just not sure where to begin. > >I have a file where I need to search for the occurences of two variables >(State and City) and then create another field (L

re: unix mail

2002-07-10 Thread William Black
Hi all, Does anyone know about the unix mail command and how to specify who the message is being sent to and the subject and where the message is from. Thanks, William Black _ Join the world’s largest e-mail service with MSN H

RE: Problem adding to @INC - it worked thanks!

2002-07-10 Thread perl
Thanks! That worked great. -Original Message- From: Tanton Gibbs [mailto:[EMAIL PROTECTED]] Sent: Tuesday, July 09, 2002 8:27 PM To: [EMAIL PROTECTED] Subject: Re: Problem adding to @INC Try use lib "C:/websites/blessinganimal/cgi-bin/makechanges"; at the top of your program. That w

script wouldn't execute from .forward

2002-07-10 Thread lz
Hi guys, I need to execute perl script from .forward file. Basically, whenever emails comes in, a script is executed. here is an example of my setup: username: test -rwxr-xr-x 1 test test 32 Jun 6 13:53 .forward here is what I have inside of my forward: |/home/test/test.pl permissions on

Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread Jeff 'japhy' Pinyan
On Jul 10, bob ackerman said: >you get a warning with @x[2] if 'x' is an array, >but no warning with @$x[2] where 'x' is an array ref. >so perl isn't handling quite the same. Well, let me refer to the source. toke.c is where the "scalar value @x[1] better written as $x[1]" comes from. To raise

POD question

2002-07-10 Thread Tim Musson
beginners, I am trying to add some docs to my code, and want to add a link to another document. I have seen it work, but can't figure it out. Running ActiveState Perl Trying pod2html example I am trying to follow perlpod.html has a link to perlsyn.html pod code for the

Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread bob ackerman
On Wednesday, July 10, 2002, at 09:05 AM, Jeff 'japhy' Pinyan wrote: > On Jul 10, bob ackerman said: > >> and, as someone pointed out, this does work: >> $x = ['abc','def','ghi']; >> print @$x[2]."\n"; # prints 'ghi' >> >> but i couldn't tell you how perl reads this, except to say that '@

RE: Roth

2002-07-10 Thread Timothy Johnson
Yep, much to the consternation of the Win32 Perl community. There has been no news, and his email address doesn't appear to be working. We can only hope that it's just down for mainenance or something. -Original Message- From: Meidling, Keith, CTR, OSD-C3I [mailto:[EMAIL PROTECTED]] Se

RE: Win32::AdminMisc Help!

2002-07-10 Thread Timothy Johnson
I believe the CPAN version is an older (much older) version than was on Dave Roth's site. If anyone wants it, I can email a version that works with ActiveState ActivePerl 5.6.1 (all builds that I know of). Just email me directly. -Original Message- From: Mike Garner [mailto:[EMAIL PROT

RE: Date and Time

2002-07-10 Thread Timothy Johnson
Don't take it out. It's a small pain at first, but it will pay off big time in the long run. Be sure to declare all variables with my. For example, ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); should be my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd

RE: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread Timothy Johnson
>Am I alone in thinking that $x->[2] is much more readable that @$x[2] or $$x[2]? IMHO, you are just asking for trouble whenever you use notation like "$$x[2]". You should always put the curly braces around the scalar being dereferenced to be sure that you or someone reading your code doesn't

Re: How to make the PC Speaker ring a beep sound?

2002-07-10 Thread Michael Fowler
On Wed, Jul 10, 2002 at 11:40:11AM +0800, Connie Chan wrote: > Actually, I hope the sound output is by my PC speaker. > and I would like to use the BEEP sound instead. Is that > possible ? Besides, can I control the alarm length and > the alarm tone ? This is OS dependent. What OS are you asking

RE: Date and Time

2002-07-10 Thread Peter Scott
At 12:46 PM 7/10/02 -0400, Kipp, James wrote: > > > > The only problem seems to be the > > use strict; directive > > if I take this out it works fine > > > > So I guess I need to know if the use strict; directive is really > > necessary and if so how do I get around it? > >either take it out or

Re: SMTP Module

2002-07-10 Thread George Schlossnagle
Firstly, the mail method allows you to set the MAIL FROM: line in the SMTP dialogue, which allows you to tell the remote mailer who is sending the mail. The additional options which can be passed in are (ripped from perldoc Net::SMTP) Size=> Return =>

RE: SMTP Module

2002-07-10 Thread William Black
Hi all, In the script below what does the mail parameter represent. What would be a valid param. sub email(){ my @contact; $contact[0]={name=>'WB',email=>'[EMAIL PROTECTED]'}; $contact[1]={name=>PE,email=>'[EMAIL PROTECTED]'}; my $data; $data ="To: Primary Contact"; print"Sending mail to: $

Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread Jeff 'japhy' Pinyan
On Jul 10, bob ackerman said: >> All lists get auto-cast into a scalar, in scalar context. An array slice >> is merely a list of array elements. >> >> $x = @y[2]; >> >> is the same as >> >> $x = ($y[2]); > >except you will get warnings on these lines. Perl warns about @x[$i] because it was

RE: more example code Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread Bob Showalter
> -Original Message- > From: Zachary Buckholz [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 10, 2002 12:26 PM > To: Timothy Johnson; [EMAIL PROTECTED] > Cc: Shawn; Connie Chan; [EMAIL PROTECTED] > Subject: more example code Re: help dereferencing arrayref so > I can put > the value i

Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread bob ackerman
On Wednesday, July 10, 2002, at 09:39 AM, Jeff 'japhy' Pinyan wrote: > On Jul 10, George Schlossnagle said: > >> Am I alone in thinking that $x->[2] is much more readable that @$x[2] >> or $$x[2]? > > No; I always use the $ref->... syntax, unless I'm golfing. > >> @b[2] is an array slice with

RE: Date and Time

2002-07-10 Thread Kipp, James
> > The only problem seems to be the > use strict; directive > if I take this out it works fine > > So I guess I need to know if the use strict; directive is really > necessary and if so how do I get around it? either take it out or declare ALL of your variables. -- To unsubscribe, e-m

Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread Jeff 'japhy' Pinyan
On Jul 10, George Schlossnagle said: >Am I alone in thinking that $x->[2] is much more readable that @$x[2] >or $$x[2]? No; I always use the $ref->... syntax, unless I'm golfing. >@b[2] is an array slice with a single element (which strangely seems to >get auto-cast as a scalar). All lists

Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread bob ackerman
On Wednesday, July 10, 2002, at 09:29 AM, George Schlossnagle wrote: >> and, as someone pointed out, this does work: >> $x = ['abc','def','ghi']; >> print @$x[2]."\n"; # prints 'ghi' > > > Am I alone in thinking that $x->[2] is much more readable that @$x[2] > or $$x[2]? i was only sa

more example code Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread Zachary Buckholz
Thanks for everyone who made recommendations and tried to help, I tried the various suggestions and I still get the same results. Maybe I should have included more example code to show how I built the initial arrayreference. So here goes. The idea behind this is my website www.securitysaint.com w

Re: Date and Time

2002-07-10 Thread jffusion
This is what I have now. #!C:/Perl/bin/perl.exe -w ### # Written by William S. Lyles # July 9 2002 # # The purpose of this program # is to generate a random username # and password, then write the # username and password to a # database file and .htpasswd file # an

Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread George Schlossnagle
> and, as someone pointed out, this does work: > $x = ['abc','def','ghi']; > print @$x[2]."\n"; # prints 'ghi' Am I alone in thinking that $x->[2] is much more readable that @$x[2] or $$x[2]? > > but i couldn't tell you how perl reads this, except to say that '@$x' > dereferences and

Re: Easy way to compare 2 perl lists (arrays)?

2002-07-10 Thread Robert Thompson
The code in these examples takes advantage of the fact that hash keys are unique. We create a key using the tiff filename or the pdf filename, and increment the hash's value. If the value of the hash is 2, that means there was a pdf and a matching tiff. If it equals 1, then there was on

Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread Jeff 'japhy' Pinyan
On Jul 10, bob ackerman said: >and, as someone pointed out, this does work: >$x = ['abc','def','ghi']; >print @$x[2]."\n"; # prints 'ghi' > >but i couldn't tell you how perl reads this, except to say that '@$x' >dereferences and then '[2]' gets the array element. >but i don't know why a '$

Re: help dereferencing arrayref so I can put the value into a hash

2002-07-10 Thread bob ackerman
On Wednesday, July 10, 2002, at 01:31 AM, Janek Schleicher wrote: > Shawn wrote at Wed, 10 Jul 2002 09:59:54 +0200: > >> I think what you are looking for is: >> $avg_resp_time->[0] >> >> if you want to have the '@' at the front, I think you would need >> something like this: >> @{$avg_resp_t

Re: Using grep with Win32 perl?

2002-07-10 Thread Connie Chan
I am not talking about grep, but for your purpose, will @list = `dir somedir\\*.tiff /b/s`; # giving what you want ? Rgds, Connie - Original Message - From: "Rupert Heesom" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, July 10, 2002 10:10 PM Subject: Using grep with Win32

Re: set intersections

2002-07-10 Thread zentara
On Wed, 10 Jul 2002 04:21:56 -0700 (PDT), [EMAIL PROTECTED] (Naomi And David Swidler) wrote: >i'm trying to find an algorithm that does the >following: given a long list of sets, i need to find >not *where* they intersect, but which intersect with >which. in the case of a intersects with b and b

Re: Easy way to compare 2 perl lists (arrays)?

2002-07-10 Thread Chas Owens
On Wed, 2002-07-10 at 10:17, Rupert Heesom wrote: > I'm working with directories in which there should be a number of graphs > files; one TIFF file, one PDF file. > > I'm wanting to find which TIFF files there is no corresponding PDF file for. > > One way to do this is to create 2 lists (arrays)

CPAN and PPM

2002-07-10 Thread Meidling, Keith, CTR, OSD-C3I
I just installed Activestate Perl 5.6.1 build 633 on a Win2K Pro system. When I type 'set' from PPM, it only showed the ActiveState repository. I thought it also came with the path to the CPAN repository. Does anyone know the path to the CPAN repository so I can add it to the PPM repository li

Re: Easy way to compare 2 perl lists (arrays)?

2002-07-10 Thread Janek Schleicher
Rupert Heesom wrote at Wed, 10 Jul 2002 16:17:41 +0200: > I'm working with directories in which there should be a number of graphs files; one >TIFF file, one > PDF file. > > I'm wanting to find which TIFF files there is no corresponding PDF file for. I wrote something similar to find ps not ye

Re: A few questions

2002-07-10 Thread Chas Owens
On Wed, 2002-07-10 at 09:01, Matija Papec wrote: > > How to refresh/redraw gtk-perl window? I have one script that shows > movie listing and when one item is selected via remote, 'system' > invokes mplayer which leaves main gtk window blank after it finishes? > :) Perl 5.6.x is not threaded, so

RE: Regex Not Matching Newline

2002-07-10 Thread Bob Showalter
> -Original Message- > From: John Pitchko [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, July 10, 2002 10:51 AM > To: [EMAIL PROTECTED] > Subject: Regex Not Matching Newline > > > Hello, > > I am using: > s/(.+?)<\/a>/ href="\/cgi-bin\/template\.cgi\?file=$1">$2<\/a>/igs; > > to match

Regex Not Matching Newline

2002-07-10 Thread John Pitchko
Hello, I am using: s/(.+?)<\/a>/$2<\/a>/igs; to match HTML in a file that is formatted like: System Backup/Restore - NetBackup Restore Document Sybase Backup/Restore - NetBackup Restore Document The problem is that the pattern will match the second (which is all on one line) but will

RE: Using grep with Win32 perl?

2002-07-10 Thread Anders Holm
[snip] > Why do you think you can't do this? The command is all right and > there is not reason why would grep() work differently under Unix and > Windows. > > Jenda Jenda, I think he's thinking of the command line version of grep as opposed to the Perl function grep()... :) Yes, grep() works i

Re: Using grep with Win32 perl?

2002-07-10 Thread Felix Geerinckx
on Wed, 10 Jul 2002 14:10:17 GMT, [EMAIL PROTECTED] (Rupert Heesom) wrote: > Can I assume that it's not possible to use grep in a Win32 perl > script? There is grep-the-command-line-tool, which you would call using e.g. $output = `grep whatever`; and which is not included with a Win3

Easy way to compare 2 perl lists (arrays)?

2002-07-10 Thread Rupert Heesom
I'm working with directories in which there should be a number of graphs files; one TIFF file, one PDF file. I'm wanting to find which TIFF files there is no corresponding PDF file for. One way to do this is to create 2 lists (arrays), one for all the TIFF files in a directory, the other list fo

Re: Using grep with Win32 perl?

2002-07-10 Thread Jenda Krynicky
> Can I assume that it's not possible to use grep in a Win32 perl > script? > > I'm trying to filter the files that READDIR reads in from a directory. > I need to get one list of of TIFF files, and another list of all PDF > files in a particular directory. > > A textbook example of what I'm try

Re: Win32::AdminMisc Help!

2002-07-10 Thread Mike Garner
I don't have a C compiler, but I get the impression looking at this download that the module is already compiled. I did see the file adminmisc.pll and thought maybe it was supposed to be *.dll so I changed the extension and the error that it can't locate a loadable object for Win32::AdminMisc

Re: getting a child process's pid

2002-07-10 Thread Jenda Krynicky
From: "John W. Krahn" <[EMAIL PROTECTED]> > "Daryl J. Hoyt" wrote: > > I have a problem I can not seem to figure out. I need run an > > executable > > from a Perl script and I want it to return the PID for the > > executable. I looked at the docs for fork(), but if I did something > > li

multiple queries, one output

2002-07-10 Thread Johnson, Shaunn
Howdy: Perl / DB question - I am running a PostgreSQL database and would like to count and sum tables and put that data into a new table for trending. I have a perl script that connects to the database and can do (I *think* this part is working) three separate queries, but now that I have th

Using grep with Win32 perl?

2002-07-10 Thread Rupert Heesom
Can I assume that it's not possible to use grep in a Win32 perl script? I'm trying to filter the files that READDIR reads in from a directory. I need to get one list of of TIFF files, and another list of all PDF files in a particular directory. A textbook example of what I'm trying to do is -

RE: Docs on how to use the Win32:ChangeNotify module

2002-07-10 Thread Rupert Heesom
Thanks for the reply. Regs Rupert Heesom Asst Distribution Engineer Adventist World Radio -Original Message- From: Jenda Krynicky [mailto:[EMAIL PROTECTED]] Sent: 09 July 2002 17:01 To: [EMAIL PROTECTED] Subject: Re: Docs on how to use the Win32:ChangeNotify module > I'm trying to put

A few questions

2002-07-10 Thread Matija Papec
How to refresh/redraw gtk-perl window? I have one script that shows movie listing and when one item is selected via remote, 'system' invokes mplayer which leaves main gtk window blank after it finishes? :) -- I want to make func

Roth

2002-07-10 Thread Meidling, Keith, CTR, OSD-C3I
Is roth.net down? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

  1   2   >