Re: Module download

2001-12-12 Thread Jon Molin
Have you tried CPAN.pm? /Jon Daniel Falkenberg wrote: > > Hello All, > > I don't know if this is possible but I want to be able to have a Perl > script check my server for modules that I need in my script. If the > modules don't exist. > > Is there a module that does this or similar? > > Re

How to interface perl with mysql

2001-12-12 Thread Herry Sukardi
Hi all, I have a problem interfacing Mysql with perl. I used red Hat linux 7.0 as the OS and it comes with perl built in (perl-5.6.0-9). I installed MySQL server and client downloaded from its web site (www.mysql.org), the versions are: MySQL-3.23.44-1 and MySQL-client-3.23.43-1. I also install

Re: killing object/process in 5 sec ,if not completed

2001-12-12 Thread Dexter Casey
Win32::Process allows you to create process that are controllable. This is all detailed in Dave Roth's book Win32 Perl Programming. There is also an example in the active perl documentation. I have pasted it below Win32::Process::Create($ProcessObj, "D:\\

killing object/process in 5 sec ,if not completed

2001-12-12 Thread Veeraraju_Mareddi
Dear Team, Is there any way to kill a process/Object in a specified time ,if it is not completed for Windows NT?. Even doing some other action is also helpful, when it is not finished in a finite time. Please tell me your valuable suggestions . Thank you each & every one of you.. With Best Re

HTML::Parser

2001-12-12 Thread walter valenti
Hi, i'm looking for some SIMPLE examples of HTML::Parser module. I'm find some examples but are complex. Thanks Walter _ Do You Yahoo!? Get your free @yahoo.com address at http://mail.yahoo.com -- To unsubscribe, e-mail:

RE: Environment Variables..

2001-12-12 Thread Lorne Easton
As in the attached code: The variables do not "unlink" when the program exits or when I specify to unlink. I.E: If I run this program once, then run it again with incorrect domain specified it gives the same information. Is there any way of gracefully "exiting" and removing all the variables fro

hello!! please help me!!

2001-12-12 Thread "이하연"
hello!! I'm a begginer of perl. so i have many problomes.(my english is poor.I'm sorry) please help me!!! my sever's config - window 2000 server and i installed activeperl 5.6.1 (i got it www.activeperl.com) - I installed oracle client8.0 (the remote db server consiste of oracle8.0)

Re: read backwards

2001-12-12 Thread Andrea Holstein
[EMAIL PROTECTED]: > > Hi, > > I have an ASCII file, running in DOS. > It is not a fixed file length. > Its lines of data have various lengths. (some lines are empty). > > The program reads line by line(), and processes the lines. > At a certain line I need to read the next line, > check what i

Re: regexp extraction

2001-12-12 Thread Andrea Holstein
Birgit Kellner wrote: > > I have an html file and would like to extract image file names and > extensions: > > my $content = qq| > aölkjd oiae lkajf lksjfkjs df src="http://wlaskjfd.sdlkj/sdlk/LKJ_slkdjf_lkdjfslkj.gif";>|; > > Image file names may contain numers, letters or underscores. > > my

Re: [PBML] (unknown)

2001-12-12 Thread Etienne Marcotte
1- Please put a describtive subject, most of us delete all non-descriptive subjects. 2- Sending your question to 3 mailing lists at a time is maybe not the best thing to do. Maybe start by one, then if you get no reply that day try another one. A lot I'm sure are on many mailing list. 3- There i

please take a look

2001-12-12 Thread Klaas
I'm a real beginner. I made a little program to copy files to an other folder (see below) # Remote resetten van ColdFusion server $interval=5; while (l) { sleep ($interval - time() % $interval ); if (-r 'c:\reset\spool\cfreset.bat') { print ("Bestand cfreset.bat gevonde

RE: Module download

2001-12-12 Thread Bob Showalter
> -Original Message- > From: Daniel Falkenberg [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, December 11, 2001 6:31 PM > To: [EMAIL PROTECTED] > Subject: Module download > > > Hello All, > > I don't know if this is possible but I want to be able to have a Perl > script check my server for

RE: hello!! please help me!!

2001-12-12 Thread Bob Showalter
> -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, December 12, 2001 3:58 AM > To: [EMAIL PROTECTED] > Subject: hello!! please help me!! > > > hello!! > I'm a begginer of perl. so i have many problomes.(my english > is poor.I'm sorry) > please

re:Outlook Contacts

2001-12-12 Thread Chas Owens
>Is there a Module available that will let me read in a contacts list >from an outlook .pst file, or off of an exchange server, make changes to >it, and write it back? The area code in my state is changing, and it >would be nice to be able to script this using a regex. Thanks in >advance for any

fun with regex/split

2001-12-12 Thread Pete Emerson
I'd appreciate it if someone could help me wrap my brain around this one. I've got a string like this: $string='"one two" three "four five six"'; I'd like to wind up with an array like this: one two three four five six Essentially, I would like to split up the string on spaces, but ignore spaces

Re: fun with regex/split

2001-12-12 Thread Etienne Marcotte
why don't you split on /"/ ? then regex to remove the leading and trailing spaces. Etienne Pete Emerson wrote: > > I'd appreciate it if someone could help me wrap my brain around this one. > I've got a string like this: > $string='"one two" three "four five six"'; > > I'd like to wind up with

RE: Data::Dumper and eval question

2001-12-12 Thread John . Brooking
Robert, I haven't been following your thread too closely, and have no knowledge of Data::Dumper, but your description of your task makes me wonder if the AnyData module would be of any assistance to you. It's on CPAN, and is a module which allows you to work with a database-style text files (CS

Re: fun with regex/split

2001-12-12 Thread Jon Molin
i bet there's way of doing this on one line: my $a = '"one two" three "four five six" seven eight nine'; my @ar = ($a =~ /((?:\"[^\"]*\"|[^\s]*))\s?/g); #should be possible to remove " s/\"//g foreach (@ar); print "$_\n" foreach (@ar); /Jon Pete Emerson wrote: > > I'd appreciate it if someo

Re: fun with regex/split

2001-12-12 Thread Pete Emerson
Thank you all for your quick responses. Splitting on the " was the key. I'm intrigued by Jon Molin's response, though: > my @ar = ($a =~ /((?:\"[^\"]*\"|[^\s]*))\s?/g); #should be possible to remove " > s/\"//g foreach (@ar); > print "$_\n" foreach (@ar); This works, too, but I don't understand w

Re: fun with regex/split

2001-12-12 Thread Etienne Marcotte
I don't know about regexes, Jeff Pinyan is the master and can probably give you the right answer. But for me I can't understand the regex he made, and if your code will be read by someone else, I suggest the split for clarity and for speed (well this would need to be benchmarked but I'm sure it's

RE: Passing arrays across forms

2001-12-12 Thread John . Brooking
Sharat, I tend to prefer hidden form variables to pass data, as cookies could be unsupported or turned off by the client browser. The CGI.pm module provides an easy way to access form variables from your Perl script. The O'Reilly book _CGI Programming with Perl_ has several chapters dedicated

Re: fun with regex/split

2001-12-12 Thread Jeff 'japhy' Pinyan
On Dec 12, Pete Emerson said: >I'm intrigued by Jon Molin's response, though: >> my @ar = ($a =~ /((?:\"[^\"]*\"|[^\s]*))\s?/g); #should be possible to remove " The (?: ... ) isn't even NEEDED in this regex, though. ((?:X|Y)) can be written as (X|Y) >> s/\"//g foreach (@ar); The " is no

benchmarking

2001-12-12 Thread Patrick.Griffin
hey, Any tool available for benchmarking scripts? (In idiotville I could think of using the time in some fashion...but again welcome to idiotville.) Thanks. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Passing arrays across forms

2001-12-12 Thread Etienne Marcotte
Passing them in hidden fields lets user change them at will. It's ok if you are doing all your validity checks at the end of all forms, but if you're doing them after each section you need to keep those variables unaccessible to the user, or re-check them at the end. You do a imple validity check

Re: benchmarking

2001-12-12 Thread Etienne Marcotte
use Benchmark; http://www.perlmonks.org/index.pl?node_id=8745&lastnode_id=3628 for a little tutorial on using benchmarks Etienne [EMAIL PROTECTED] wrote: > > hey, > Any tool available for benchmarking scripts? (In idiotville I could > think of using the time in some fashion...but again welcom

Re: benchmarking

2001-12-12 Thread Jeff 'japhy' Pinyan
On Dec 12, [EMAIL PROTECTED] said: >Any tool available for benchmarking scripts? (In idiotville I could >think of using the time in some fashion...but again welcome to >idiotville.) You're gonna hate me for this... It's called Benchmark.pm, and it's a standard module (so you've already got it)

documentation about perl / email

2001-12-12 Thread Johnson, Shaunn
Howdy: Where can i find documentation about using email addresses in perl scripts? I believe this has to do with regex, but I'd like to read it for myself. Not finding much but flames at the FAQ sites ... TIA -X

Re: benchmarking

2001-12-12 Thread Brett W. McCoy
On Wed, 12 Dec 2001 [EMAIL PROTECTED] wrote: > Any tool available for benchmarking scripts? (In idiotville I could > think of using the time in some fashion...but again welcome to > idiotville.) There's a CPAN module called Benchmark. It's pretty easy to use. -- Brett

Re: documentation about perl / email

2001-12-12 Thread Brett W. McCoy
On Wed, 12 Dec 2001, Johnson, Shaunn wrote: > Where can i find documentation about using email > addresses in perl scripts? What is you are trying to do? Are you parsing email addresses, sending email, harvesting email? -- Brett http://www.chapelperilo

Re: fun with regex/split

2001-12-12 Thread Pete Emerson
Jeff 'japhy' Pinyan wrote: > For the task of parsing quoted strings, my book suggests the inchworm > method: > > push @terms, $1 while > /\G\s*"([^"]*)"/g or > /\G\s*(\S+)/g; Hmmm...mine seems to go into an infinite loop: #!/usr/bin/perl -w use strict; my @terms; $_='"one two three"

Re: fun with regex/split

2001-12-12 Thread Jeff 'japhy' Pinyan
On Dec 12, Pete Emerson said: >Jeff 'japhy' Pinyan wrote: > >> For the task of parsing quoted strings, my book suggests the inchworm >> method: >> >> push @terms, $1 while >> /\G\s*"([^"]*)"/g or >> /\G\s*(\S+)/g; > >Hmmm...mine seems to go into an infinite loop: Oops. That'll teach m

RE: Passing arrays across forms

2001-12-12 Thread John . Brooking
Etienne, How can users change hidden fields on a form using POST (not GET)?? I also find the CGI.pm syntax for writing HTML annoying. I think it was you in a recent post who noted Perl's "here document" technique (print< -Original Message- > From: Etienne Marcotte [mailto:[EMAIL PR

RE: documentation about perl / email

2001-12-12 Thread Johnson, Shaunn
--sending email. --when i look at the example from perldoc -q 'mail' i get the example: Use the `sendmail' program directly: open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq") or die "Can't fork for sendmail: $!\n"; print SENDMAIL <<"EOF";

Re: Passing arrays across forms

2001-12-12 Thread Etienne Marcotte
You take the source, modify the value of hidden fields, and then hit enter when your browser points to c:/local/path/file.html For sure the script can check the referring adress to see if it's on the server, but as Jenda stated a while ago, a "good" hacker will be able to telnet your webserver an

RE: documentation about perl / email

2001-12-12 Thread Brett W. McCoy
On Wed, 12 Dec 2001, Johnson, Shaunn wrote: > [excerpt] > > In string, @server now must be written as \@server at ./email_sys_users.pl > line 17, near "@server" > In string, @bcbsm now must be written as \@bcbsm at ./email_sys_users.pl > line 17, near "@server.fred.com > email: admin@fred" > Exec

RE: Passing arrays across forms

2001-12-12 Thread John . Brooking
> -Original Message- > From: Etienne Marcotte [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, December 12, 2001 10:53 AM > To: [EMAIL PROTECTED] > Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED] > Subject: Re: Passing arrays across forms > > > You take the source, modify the value of hidden field

RE: documentation about perl / email

2001-12-12 Thread Johnson, Shaunn
--i know. i *know* i must be doing something goofy. --here's my code: [code] #!/usr/bin/perl $debug=2; open DATE, "date |"; $date=; chop $date; #$addr=`cat /tmp/email_users.txt`; $addr='[EMAIL PROTECTED]'; $addr_frm='[EMAIL PROTECTED]'; $boundary='!*@&#^$% HMP web server MIME boundary %$^

[OT] Security (was: Passing arrays across forms)

2001-12-12 Thread Etienne Marcotte
Well yes it is now kinda off topic, people with filter on OT will now miss our replies:) Modifying the source is a Netscap friend.. How many times I had to clear some CSS from the source because goddam Netscape can't render all css attributes.. How many times I modify the source to close an endin

RE: documentation about perl / email

2001-12-12 Thread Brett W. McCoy
On Wed, 12 Dec 2001, Johnson, Shaunn wrote: > --i know. i *know* i must be doing something goofy. > #$addr=`cat /tmp/email_users.txt`; > $addr='[EMAIL PROTECTED]'; ^ > $addr_frm='[EMAIL PROTECTED]'; ^ You need to escape the @ with \ here -- Brett

RE: documentation about perl / email

2001-12-12 Thread Johnson, Shaunn
--yeah, i just remembered that i didn't put it in the example i sent you. --i took it out when i mailed you what i had tested. however, i did put it back in and i got the same error message. --should i be using some escape sequence (control something)? just putting the '\' isn't working for

Re:How to make a local variable a global variable in Perl

2001-12-12 Thread Jorge Goncalvez
Hi I have this code: ... sub MakeEth() { unless ($_Globals{NICIP_ADRESS}==$IPREAL[0]) { $_Globals{ETH_NETIF} eq "eth0"; } else{ $_Globals{ETH_NETIF} eq "eth0:1"; } } ... sub StartDhcp() { my $_cmd = $_Os{$_Globa

Deleting lines of a file

2001-12-12 Thread Mark Mclogan
Hi every body I want delete some lines of a file I desire to erase the lines that contain the word " home " since I can make to eliminate these lines in the text if I have this word content in a variable $var Thanks all Over Mark McLogan ___

client-server communication

2001-12-12 Thread Michael McQuarrie
I am trying to get a client to communicate with a server located on another host. I can get the 2 to connect, the server to send data, and the client to receive the data on the other end but I can not get the client to respond to the server. I am a beginner with this so I don't really know wh

Password form

2001-12-12 Thread Juan Manuel Espinoza
Hi everybody! How can i do a file that process a password form. and if the pass is correct open a URL. Thanks MCperl _ Con MSN Hotmail súmese al servicio de correo electrónico más grande del mundo. http://www.hotmail.com/ES -

Re: Deleting lines of a file

2001-12-12 Thread Jeff 'japhy' Pinyan
On Dec 12, Mark Mclogan said: >I want delete some lines of a file >I desire to erase the lines that contain the word " home " since I can >make to eliminate these lines in the text if I have this word content in a >variable $var The Perl FAQ (perldoc -q 'delete a line') suggests the followin

win32 console input problem

2001-12-12 Thread Nathaniel Wert
Here's the code: use Win32::Console; $con = Win32::Console->new(STD_INPUT_HANDLE); @event = $con->Input(); $tmp = $event[6]; print "\n The character typed was: $tmp \n"; For some reason $event[6] is always returning the ascii value of the space character no matter what I type. I am not really s

Re: HTML::Parser

2001-12-12 Thread _brian_d_foy
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Walter Valenti) wrote: > Hi, i'm looking for some SIMPLE examples of HTML::Parser module. > > I'm find some examples but are complex. look at some of its subclasses, like HTML::LinkExtor. Gisle has also posted some examples on comp.lang.per

Re: Passing arrays across forms

2001-12-12 Thread Randal L. Schwartz
> "John" == John Brooking <[EMAIL PROTECTED]> writes: >> You take the source, modify the value of hidden fields, and then hit >> enter when your browser points to c:/local/path/file.html John> [JOHN] Oh... I never thought of doing that. Thanks for the John> education! You've no

Sending script from WIndows to Dec Alpha Environment and NOT working

2001-12-12 Thread Wagner-David
Sorry, but I am not sure what to do. I have sent a script to an individual which works fine on my pc (w2k), but when run on dec/alpha setup fails. I assume it has to do with end of line, but unsure what to do? I sent as a straight attachment. The script was renamed on the other machine

lib lost

2001-12-12 Thread Jerry Preston
Hi, I have installed Date::Calc under another folder. I am trying to access it by the following: use lib qw( /export/home/kthmgr/lib/perl5/site_perl/5.6.0/sun4_solaris/Date::Calc qw( :all ) ); I want to use $days = Delta_Days( $yy1, $m1, $d1, $y2, $m2, $d2 ); I do not what syntext to us

Re: lib lost

2001-12-12 Thread Jeff 'japhy' Pinyan
On Dec 12, Jerry Preston said: > use lib qw( >/export/home/kthmgr/lib/perl5/site_perl/5.6.0/sun4_solaris/Date::Calc >qw( :all ) ); You're confusing the two. use lib "path/to/module"; use Module ...; so you want: use lib '/export/home/kthmgr/lib/perl5/site_perl/5.6.0/sun4_solaris'; us

how do I send a email reply back to my HTML form:

2001-12-12 Thread AMORE,JUAN (HP-Roseville,ex1)
Hello Perl Gurus, Do's anyone have any examples as to how to send a email reply back to my HTML if someone selects the my email value;ie ($form_name, $email) = split (/=/, $fields[1]) on my HTML form and if not to send a Thankyou. Best Rgds; JA #!/usr/bin/perl -w # Get the submitted data $c

Re: lib lost

2001-12-12 Thread Jerry Preston
Jeff, No luck! I get the following: Can't locate Date/Calc.pm in @INC (@INC contains: /export/home/kthmgr/lib/perl5/site_perl/5.6.0/sun4_solaris /usr/local/lib/perl5/5.6.0/sun4-solaris /usr/local/lib/perl5/5.6.0 /usr/local/lib/perl5/site_perl/5.6.0/sun4-solaris /usr/local/lib/perl5/site_perl/5.

Re: lib lost

2001-12-12 Thread Jerry Preston
Jeff, Got it to work, had a typo in the path! Thanks, Jerry Jerry Preston wrote: > Jeff, > > No luck! I get the following: > > Can't locate Date/Calc.pm in @INC (@INC contains: > /export/home/kthmgr/lib/perl5/site_perl/5.6.0/sun4_solaris > /usr/local/lib/perl5/5.6.0/sun4-solaris > /usr/local

Perl and tk, where and what?

2001-12-12 Thread Hal Johnson
Hello, I am trying to create windows interfaces for perl programs, and I've been told that the TK extension is what to get. I searched the internet and found tk800.023.tar.gz but I'm not sure if that will work with Windows 2000. Also, it seems I need a Visual C++ compiler to get it to work. I do

Re: Perl and tk, where and what?

2001-12-12 Thread Brett W. McCoy
On Wed, 12 Dec 2001, Hal Johnson wrote: > I am trying to create windows interfaces for perl programs, and I've > been told that the TK extension is what to get. I searched the > internet and found tk800.023.tar.gz but I'm not sure if that will work > with Windows 2000. Also, it seems I need a Vi

Re: Perl and tk, where and what?

2001-12-12 Thread Brett W. McCoy
On Wed, 12 Dec 2001, Brett W. McCoy wrote: > When that's done, type 'pktsh' at the command-line, and you get a little > interactive shell to play with stuff. That's 'ptksh', rather. -- Brett http://www.chapelperilous.net/ ---

quick regex question

2001-12-12 Thread Booher Timothy B 1stLt AFRL/MNAC
o.k. another regex issue . . . I want a one-liner that can remove everything after a given character: i.e. in this case everything after ! (fortran comment): would this work: perl -npe 's/\!.+$//' my thinking is that \! Is the literal character and . would count for anything + would represent

Re: What's installed?

2001-12-12 Thread Elaine -HFB- Ashton
[EMAIL PROTECTED] [[EMAIL PROTECTED]] quoth: *>Hi, *>I'm guessing this has been asked before, but is there a way to tell which *>modules you have installed? My system guys are picky about new ones, so *>I would like to know what we already have... http://www.cpan.org/misc/cpan-faq.html#How_insta

RE: quick regex question

2001-12-12 Thread Bob Showalter
> -Original Message- > From: Booher Timothy B 1stLt AFRL/MNAC > [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, December 12, 2001 2:57 PM > To: [EMAIL PROTECTED] > Subject: quick regex question > > > o.k. another regex issue . . . I want a one-liner that can > remove everything > after a

Re: quick regex question

2001-12-12 Thread Curtis Poe
--- Booher Timothy B 1stLt AFRL/MNAC <[EMAIL PROTECTED]> wrote: > o.k. another regex issue . . . I want a one-liner that can remove everything > after a given character: i.e. > > in this case everything after ! (fortran comment): > > would this work: > > perl -npe 's/\!.+$//' > > my thinking i

Re: quick regex question

2001-12-12 Thread Curtis Poe
--- Booher Timothy B 1stLt AFRL/MNAC <[EMAIL PROTECTED]> wrote: > o.k. another regex issue . . . I want a one-liner that can remove everything > after a given character: i.e. > > in this case everything after ! (fortran comment): > > would this work: > > perl -npe 's/\!.+$//' > > my thinking i

Re: quick regex question

2001-12-12 Thread Curtis Poe
--- Curtis Poe <[EMAIL PROTECTED]> wrote: > with the caveat that any > exclamation points that don't mark quotes are going to cause problems. Ooh. That was coherent. Time for more caffeine. :) = Senior Programmer Onsite! Technology (http://www.onsitetech.com/) "Ovid" on http://www.perlmon

RE: quick regex question

2001-12-12 Thread Booher Timothy B 1stLt AFRL/MNAC
Hello and thanks so much for your replies, but don't I need a \! To denote a literal ! and what about spaces before the bang - don't I want to lose them too - what about: perl -pi.bak -e 's/\s\!.*$//' would that get rid of the spaces too? tim ___

Reading config file issues

2001-12-12 Thread Yacketta, Ronald
Folks, I am using the ConfigReader.pm and have the following setup... yes, I am using -w and strict ;) my ($g_all_cl,$g_p5_cl,$g_p299_cl,$g_imp143_cl,$g_imp5_cl,$g_imp_14_cl,$g_val_c l, $g_all_cl_think,$g_p5_cl_think,$g_p299_cl_think,$g_imp143_cl_think,$g_imp5_c l_think, $g_imp_14_cl_think,$g_v

RE: quick regex question

2001-12-12 Thread Curtis Poe
--- Booher Timothy B 1stLt AFRL/MNAC <[EMAIL PROTECTED]> wrote: > Hello and thanks so much for your replies, but don't I need a \! To denote a > literal ! and what about spaces before the bang - don't I want to lose them > too - what about: I don't know. Do you want to lose them? Up to you. Yo

Re: win32 console input problem

2001-12-12 Thread Herb Hall
Try this: use Win32::Console; $con = Win32::Console->new(STD_INPUT_HANDLE); @event = $con->Input(); print "$event[0] - event type: 1 for keyboard\n"; print "$event[1] - key down: TRUE if the key is being pressed, FALSE if the key is being released\n"; print "$event[2] -

RE: win32 console input problem

2001-12-12 Thread Wert, Nathaniel
Thank you. This worked. I was incorrectly figuring the breakdown of the array. Next question, isn't peekinput supposed to work the same way. The program runs without any error, but the array is not populated with peekinput. Thanks again. -Original Message- From: Herb Hall [mailto:[

Problems with a long string

2001-12-12 Thread James Ferree
Hi, I am using Perl win32 and when I read in a long string with multiple lines, my computer gets hung up when I try to print the string, it get part way through the string and hangs in the middle of the line. Has anyone seen this? Thanks, Jim __

RE: Reading config file issues

2001-12-12 Thread Yacketta, Ronald
But the values HAVE to be read in.. Each run is different and could have different values.. I could set a default set of values, but still need to read in a .cfg to get the actual Values. Tis why I went down this ugly road Any insight as to how to make it work as I would like? Being able to r

Re: Reading config file issues

2001-12-12 Thread Curtis Poe
Okay, this is really, really sloppy, but it's much closer in intent to what Randal was talking about (only relevant code is presented): my @data = qw/ all_clp5_cl p299_cl imp143_cl imp5_cl all_cl_think p5_cl_think p299_cl_think imp143_cl

dereferencing

2001-12-12 Thread F.H
Hi There, I am trying to get a count of elements of a reference to an array. $reftest = \@test $#reftest, doesn't seem to yield the number of arry elements. I appreciate if someone can help Thanks I.S -- __ Your favorite stores,

Re: dereferencing

2001-12-12 Thread Curtis Poe
--- "F.H" <[EMAIL PROTECTED]> wrote: > Hi There, > I am trying to get a count of elements of a reference to an array. > $reftest = \@test > $#reftest, doesn't seem to yield the number of arry elements. > I appreciate if someone can help > Thanks > I.S In any event, "print $#test" will print the v

Re: how do I send a email reply back to my HTML form:

2001-12-12 Thread zentara
On Wed, 12 Dec 2001 12:57:25 -0500, [EMAIL PROTECTED] (Juan Amore) wrote: >Hello Perl Gurus, > >Do's anyone have any examples as to how to send a >email reply back to my HTML if someone selects the >my email value;ie ($form_name, $email) = split (/=/, $fields[1]) on my > HTML form and if not to s

Re: Modules for creating graphics and images

2001-12-12 Thread zentara
On Tue, 11 Dec 2001 17:37:16 -0500, [EMAIL PROTECTED] (Pankaj Warade) wrote: >GlacierHi Group, >I had been working on generating graphic images (want to plot some graphs >like pie-chart, bar-graph). Is there any-way of getting this done in perl. >Came to know about GD module. Is there any other m

Re: Can I use PERL to add/remove /etc/passwd entries

2001-12-12 Thread zentara
On Tue, 11 Dec 2001 13:24:58 -0700, [EMAIL PROTECTED] (Joshua Colson) wrote: >I'm curious to know if someone could point me in the right direction to find >out how to manipulate the /etc/passwd file and/or the /etc/shadow file. > >I know about getpwent, getpwnam, getpwuid, but these just let me r

RE: Can I use PERL to add/remove /etc/passwd entries

2001-12-12 Thread Daniel Falkenberg
Hey all, I have just finally finished a WWW based Perl program that can add/delete and change users password from a WWW based script. I have tried to make this script as secure as I can. The script can modify the /etc/passwd files has any one seen a script like this before? Thx, Dan -

Cpan.pm

2001-12-12 Thread Daniel Falkenberg
Hello All! Just playing around with Cpan.PM and I have come accross an error that I am a little unsure about... When I complie the following code... # install my favorite programs if necessary: for $mod (qw(Net::FTP MD5 Data::Dumper)){ my $obj = CPAN::Shell->expand('Module',$mod); $obj->ins

help any with hash

2001-12-12 Thread Lance Prais
#open a file with the filehandle open WORKFLOW, "..\\..\\workflow.txt" or die "Cannot open Workflow $!\n"; my $data = for (1..21); while (){# loop through the workflow.txt chomp; #a) my $line=$_; print STDERR "\nline: $line"; } The above code is reading a txt file beginning at line

RE: Can I use PERL to add/remove /etc/passwd entries

2001-12-12 Thread Curtis Poe
--- Daniel Falkenberg <[EMAIL PROTECTED]> wrote: > Hey all, > > I have just finally finished a WWW based Perl program that can > add/delete and change users password from a WWW based script. I have > tried to make this script as secure as I can. The script can modify the > /etc/passwd files

Re: dereferencing

2001-12-12 Thread John W. Krahn
Curtis Poe wrote: > > --- "F.H" <[EMAIL PROTECTED]> wrote: > > Hi There, > > I am trying to get a count of elements of a reference to an array. > > $reftest = \@test > > $#reftest, doesn't seem to yield the number of arry elements. > > I appreciate if someone can help > > Thanks > > I.S > > In a

RE: Can I use PERL to add/remove /etc/passwd entries

2001-12-12 Thread Daniel Falkenberg
Hi Curtis, Yes, I have considered as much as I can about this entire project. Firstly... 1 - Thepage is transfered over SSL. 2 - The user must login with a username and password. 3 - Apache can be set so it only allows users from within a private network to access the page. 4 - Can only c

Re: dereferencing

2001-12-12 Thread Curtis Poe
--- "John W. Krahn" <[EMAIL PROTECTED]> wrote: > $ perl -le'$[=5; > @test = qw(one two three four five); > $reftest = \@test; > print $#$reftest + 1; > print scalar @$reftest; > ' > 10 > 5 Yes, but $[ is deprecated and therefore cheating. You deserve what you get if you use it :) Cheers, Curti

How would I E-Mail something in perl.

2001-12-12 Thread Michael Eggleton
Hi All, I'm looking for some advice on how to e-mail a log file that my Perl script creates. So here it is, I have a script that runs as an AT job on a Micro$oft Windoz 2000 server. What I would like to do is e-mail a list of users when it kicks off, and then e-mail them again with the lo

RE: Perl and tk, where and what?

2001-12-12 Thread Gary Hawkins
> > When that's done, type 'pktsh' at the command-line, and you get a little > > interactive shell to play with stuff. > > That's 'ptksh', rather. Type 'widget' for cool demos. Text > Hypertext > 4. Arrows' for example. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e

RE: Can I use PERL to add/remove /etc/passwd entries

2001-12-12 Thread Curtis Poe
--- Daniel Falkenberg <[EMAIL PROTECTED]> wrote: > Hi Curtis, > > Yes, I have considered as much as I can about this entire project. > Firstly... > > 1 - Thepage is transfered over SSL. Good. Can you set it up so that it breaks if you try to send it over an insecure channel? > 2 - The u

Re: Reading config file issues

2001-12-12 Thread Randal L. Schwartz
> "Ronald" == Ronald Yacketta <[EMAIL PROTECTED]> writes: Ronald> my Ronald> ($g_all_cl,$g_p5_cl,$g_p299_cl,$g_imp143_cl,$g_imp5_cl,$g_imp_14_cl,$g_val_c Ronald> l, Ronald> $g_all_cl_think,$g_p5_cl_think,$g_p299_cl_think,$g_imp143_cl_think,$g_imp5_c Ronald> l_think, Ronald> $g_imp_14_cl_think

Re: Cpan.pm

2001-12-12 Thread Daniel Gardner
Hello Daniel, Wednesday, December 12, 2001, 11:31:13 PM, Daniel Falkenberg wrote: > # install my favorite programs if necessary: > for $mod (qw(Net::FTP MD5 Data::Dumper)){ > my $obj = CPAN::Shell->expand('Module',$mod); > $obj->install; > } > I recieve the following error... > Can't locate

Re: How would I E-Mail something in perl.

2001-12-12 Thread Daniel Gardner
Wednesday, December 12, 2001, 11:57:53 PM, Michael Eggleton wrote: > I'm looking for some advice on how to e-mail a log file that my Perl > script creates. So here it is, I have a script that runs as an AT job > on a Micro$oft Windoz 2000 server. What I would like to do is e-mail a > list of

Re: Cpan.pm

2001-12-12 Thread Elaine -HFB- Ashton
Daniel Falkenberg [[EMAIL PROTECTED]] quoth: *>Hello All! *> *>Just playing around with Cpan.PM and I have come accross an error that I *>am a little unsure about... *> *>When I complie the following code... Add use CPAN; at the top of your script. e. -- To unsubscribe, e-mail: [EMAIL PROTE

Re: How would I E-Mail something in perl.

2001-12-12 Thread Michael Eggleton
Thanks I will check it out. Michael D. Eggleton http://www.gorealnetworks.com mailto:[EMAIL PROTECTED] -Original Message- From: Daniel Gardner <[EMAIL PROTECTED]> To: "Michael Eggleton" <[EMAIL PROTECTED]> Date: Thu, 13 Dec 2001 00:44:30 + Subject: Re: How would I E-Mail something i

Re: Reading config file issues

2001-12-12 Thread Randal L. Schwartz
> "Ronald" == Ronald Yacketta <[EMAIL PROTECTED]> writes: Ronald> Any insight as to how to make it work as I would like? Being able to Ronald> read in the values Ronald> Via a .cfg ??? Yes. Use a hash. See Curtis Poe's response, for example. Or look for "config" in the CPAN. There are ma

Database access

2001-12-12 Thread Allison Davis
Can anyone tell me if you can have all the members of our origanization access our database on the web to change their personal information only. We want each member to have their own user id and password. Thanks for your help Allison -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional

thanks

2001-12-12 Thread Murzc
I posted my first PERL question last night. I was surprised that someone was up and sent me a solution. It worked and I saved a lot of time. Thanks to Casey, Kevin, and Ask for putting this list together, plus all the work that they do behind the scenes. All of us who benefit from this list, can

Re: Reading config file issues

2001-12-12 Thread _brian_d_foy
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] wrote: > Okay, this is really, really sloppy, but it's much closer in intent to what Randal >was talking > about (only relevant code is presented): > sub doConf > { > my ($conf, $directives, $config_data) = @_; > while (($directive, $co

Re: Can I use PERL to add/remove /etc/passwd entries

2001-12-12 Thread _brian_d_foy
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] (Daniel Falkenberg) wrote: > I have just finally finished a WWW based Perl program that can > add/delete and change users password from a WWW based script. I have > tried to make this script as secure as I can. The script can modify the > /etc/p

Re: Can I use PERL to add/remove /etc/passwd entries

2001-12-12 Thread Karthik Krishnamurthy
I have coded a module, which I plan on releasing soon. It has routines to add/remove/update users (/etc/passwd, /etc/shadow, /etc/group, /etc/gshadow), and handles locking issues correctly on a Linux machine. The code will be updated soon to work transparently on Solaris, FreeBSD too. If you wou