RE: Regex command to remove deleted emails

2004-01-28 Thread Tim Johnson
I haven't had a chance to test this, but how about: use strict; use warnings; use File::Find; find(sub{unlink if /,ST$/},"/my/directory/"); -Original Message- From: news on behalf of John Schme

Re: Zip using Perl

2004-01-28 Thread Owen
On Wed, 28 Jan 2004 15:37:12 -0500 "RL" <[EMAIL PROTECTED]> wrote: > I would like to "zip" a file using perl script. I used following command:- > > system ("zip "); > > However this command fails when the filename is more than 8 characters. I really have no idea. have you tried system ("

Regex command to remove deleted emails

2004-01-28 Thread John Schmerold
I'm trying to use the following to remove deleted emails (deleted emails have file names that end in ",ST"): rm -f $(find /home/vmail Maildir | grep ,ST) This works well for the most part, however some files don't get deleted, I suspect because of their length or characters in the pathname.

RE: LOST - Win32::Process

2004-01-28 Thread Tim Johnson
I haven't used it much myself, but have you tried Win32::Process::KillProcess? I just got that from "perldoc Win32::Process". -Original Message- From: RL [mailto:[EMAIL PROTECTED] Sent: Wed 1/28/2004 12:29 PM To: [EMAIL PROTECTED] Cc:

LOST - Win32::Process

2004-01-28 Thread RL
Hi all, I am new and am lost with Win32::Process stuff. I want on perl script to start a process, then another perl script to terminate the same process. I can start a process using... --- use Win32::Process; use Win32; sub ErrorRe

Re: why "Bad file descriptor at line 94 "

2004-01-28 Thread drieux
On Jan 26, 2004, at 3:03 PM, mark123 wrote: [..] This script telnets into a telnet server (cisco) then telnets into other cisco router to grab there configs. I get these errors when trying to connect to certain routers (5, 11,12,13,14). If I look in my dump logs I see that the device didn't echo

Re: How to import symbols and semantics from one namespace into another

2004-01-28 Thread drieux
On Jan 28, 2004, at 10:32 AM, [EMAIL PROTECTED] wrote: Hi, this question has to do with importing names from one package into another. [..] outcome: This obviously won't work because 'use' expects a module name, not a package name. Same issue with 'require'. Can't locate SomePackage.p

Re: Passing several arguments

2004-01-28 Thread drieux
On Jan 27, 2004, at 3:26 AM, Jan Eden wrote: [..] I have a subroutine which fills into several hashes and arrays (%author_indexlines, %poem_lines, @alphabet_index etc). How can I return those variables and pass them to another subroutine? This does not work, of course [..] perldoc -q "How can I

Re: procedure entry point slcvs2ptr message

2004-01-28 Thread drieux
On Jan 28, 2004, at 10:01 AM, Johnson, Shaunn wrote: [..] I want to use Perl to connect to an Oracle 9i database on Windows 200x and have installed DBI v. 1.37 on my NT workstation. I am getting a message like so when I run the script: [snip] "The procedure entry point slcvs2ptr could not be locat

Re: help on regular expression

2004-01-28 Thread John McKown
On Tue, 27 Jan 2004, Madhu Reddy wrote: > Hi, >I need some help on regular expression... > i have following in variable $total_count > > $total_count = "##I USBP 01 10:38:09(000) > ETRACK_TOTAL_RECS : 100" > > Here in this ETRACK_TOTAL_RECS is fixed and common for > all and rest is chan

RE: Two-liner to one-liner

2004-01-28 Thread Tim Johnson
Just a small correction: In scalar context it returns 1 because there is 1 element in the list. If there were more parentheses it might return a higher number. -Original Message- From: Charles K. Clarkson [mailto:[EMAIL PROTECTED] Sent: Wednesday, January 28, 2004 6:13 PM To: 'Jan E

RE: Two-liner to one-liner

2004-01-28 Thread Charles K. Clarkson
Jan Eden <[EMAIL PROTECTED]> wrote: : : I tried to stuff the following two lines into one, but did : not succeed: : : my($teilnehmer) = $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s; : my(@teilzeilen) = split /\n/, $teilnehmer; Care to share a typical value for $eingabe with us? How about:

Re: How to import symbols and semantics from one namespace into another

2004-01-28 Thread Tassilo von Parseval
On Wed, Jan 28, 2004 at 01:32:14PM -0500 [EMAIL PROTECTED] wrote: > Hi, this question has to do with importing names from one package into > another. In my case, both packages reside in the same file, and I > simply want to import all the package-global symbols from the one > package into the oth

Re: Two-liner to one-liner

2004-01-28 Thread John W. Krahn
Jan Eden wrote: > > Hi all, Hello, > I tried to stuff the following two lines into one, but did not succeed: > > my($teilnehmer) = $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s; > my(@teilzeilen) = split /\n/, $teilnehmer; > > This does not work: > > my @teilnehmer = $eingabe =~ m/(?<=Teilnehmer:\

RE: Help with options

2004-01-28 Thread Tim
I realize there's no 'help' in this one, but maybe this will get you on your way...(it's a bit of a kluge; I had to check it twice) Here's one with GetOpt::Std : ## use Getopt::Std; my @ARGS; my %opts; eval { getopts('o:L', \%opts) or die "Usage: $0 -o [ mail || fi

Re: Subroutine interaction

2004-01-28 Thread R. Joseph Newton
Jan Eden wrote: > Hi all, > > the following structure does not work as intended: > > sub read_index { > > my $gedicht_path = shift; > my (%author_indexlines, %author_headlines, %gedicht_lines, @author_letters, > @gedicht_letters, @alphabet_index); > find (\&read_poem, $gedicht_path);

Re: [Q] How to eval an EXPR once and make it stick

2004-01-28 Thread John W. Krahn
Sam wrote: > > --- Rob Dixon <[EMAIL PROTECTED]> wrote: > > Sam wrote: > > > > > > But I'm not sure which is faster though. > > > > If you don't know, it doesn't matter. > > > > If your software is /too/ slow and you would die for a 10% speed increase > > then > > check out > > > > use Benchmark

Re: How to import symbols and semantics from one namespace into another

2004-01-28 Thread Wiggins d Anconia
> Hi, this question has to do with importing names from one package into another. In my case, both packages reside in the same file, and I simply want to import all the package-global symbols from the one package into the other. Can anyone say how to do this? Here's a bunch of tries that didn'

Re: using Perl to auto-login to capitalone.com

2004-01-28 Thread Wiggins d Anconia
> I am attempting to write a Perl script that can login to my account at capitalone.com, > grab my balance and available credit and email them to me. I did this successfully with my > online banking, but Capitalone's login is a pain in the ass to wrap my head around. It > redirects you through 3 or

rm $( locate Maildir | grep ,ST ) will not work to remove deleted emails

2004-01-28 Thread John Schmerold
I have a number of Outlook XP users that don't purge their deleted emails, so I want to remove them myselve with following regex command: rm $( locate Maildir | grep ,ST ) Outut is: rm: cannot remove `/home/vmail/jam/Maildir/.Personal': No such file or directory rm: cannot remove `item

Re: How to import symbols and semantics from one namespace into another

2004-01-28 Thread Paul Johnson
On Wed, Jan 28, 2004 at 01:32:14PM -0500, [EMAIL PROTECTED] wrote: > Hi, this question has to do with importing names from one package into > another. In my case, both packages reside in the same file, and I > simply want to import all the package-global symbols from the one > package into the ot

Re: change modified date?

2004-01-28 Thread John W. Krahn
Shaunn Johnson wrote: > > Howdy: Hello, > Is there a perl module that can change the modified > date of a file in Windows (or, Linux)? > > On my Linux box, I'm testing the 'touch -m' method, > but it isn't working very well. I have no idea > what there is for Windows. Perhaps there is a perl

Re: Zip using Perl

2004-01-28 Thread RL
I downloaded zip23xN.zip and unz550xN.exe from http://ftp.info-zip.org/pub/infozip/WIN32/ "Manish Uskaikar" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] Hi All, I would like to "zip" a file using perl script. I used following command:- system ("zip "); However this command fails

Re: Passing several arguments

2004-01-28 Thread Wiggins d'Anconia
Jan Eden wrote: Hi all, I have a subroutine which fills into several hashes and arrays (%author_indexlines, %poem_lines, @alphabet_index etc). How can I return those variables and pass them to another subroutine? This does not work, of course sub read_index { blablabla return (%author_ind

Re: Placing handmade modules

2004-01-28 Thread Jan Eden
Thanks Rob and drieux, you were both right. The package line read package Template; Since I noticed my error just one minute after asking for help on the list, I tried to send a followup, but - alas! - my provider's SMTP server denied connections for about two hours. Now I learned some more p

change modified date?

2004-01-28 Thread Johnson, Shaunn
Howdy: Is there a perl module that can change the modified date of a file in Windows (or, Linux)? On my Linux box, I'm testing the 'touch -m' method, but it isn't working very well. I have no idea what there is for Windows. Perhaps there is a perl method instead? Thanks! -X

RE: Clearing Arrays

2004-01-28 Thread Chris Mortimore
Colin wrote: > subscribe to. I save all my emails into a database (1,000s so far) so > I can search back if I have a problem. I did not find any reference to The link for this list's archives is http://www.nntp.perl.org/group/perl.beginners/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For addit

DBI question

2004-01-28 Thread max4o
Hello, my simple question is, how can I get the seconds returned by the MySQL after some select, update or insert with DBI.pm package. Thanks - This mail is from: <[EMAIL PROTECTED]> - -- To unsubscribe, e-mail: [EMAIL PRO

Passing several arguments

2004-01-28 Thread Jan Eden
Hi all, I have a subroutine which fills into several hashes and arrays (%author_indexlines, %poem_lines, @alphabet_index etc). How can I return those variables and pass them to another subroutine? This does not work, of course sub read_index { blablabla return (%author_indexlines, %poem

Two-liner to one-liner

2004-01-28 Thread Jan Eden
Hi all, I tried to stuff the following two lines into one, but did not succeed: my($teilnehmer) = $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s; my(@teilzeilen) = split /\n/, $teilnehmer; This does not work: my @teilnehmer = $eingabe =~ m/(?<=Teilnehmer:\n\n)(.+)/s; This does neither: my @teilnehm

Re: help on regular expression

2004-01-28 Thread Jan Eden
Hi, $total_count =~ s/.+ : (\d+)/$1/; HTH, Jan Madhu Reddy wrote: >Hi, > I need some help on regular expression... >i have following in variable $total_count > >$total_count = "##I USBP 01 10:38:09(000) > ETRACK_TOTAL_RECS : 100" > >Here in this ETRACK_TOTAL_RECS is fixed and common for

Re: capturing a webpage in a variable

2004-01-28 Thread John McKown
On Wed, 28 Jan 2004, Luinrandir Hernsen wrote: > IS this how I capture a web page code to a variable? > > > #!/usr/bin/perl > > > > use LWP::UserAgent; > > > > my $req; > > my $ua = LWP::UserAgent->new; > > $req = HTTP::Request->new(GET => 'http://www.yahoo.com'); > > print $req; ## ??

Re: Clearing Arrays

2004-01-28 Thread R. Joseph Newton
Support wrote: > Hi > I do not want to continue this thread to bag other users, but I do have a > number or perl books and it did take me some time to find out how to clear > an array. From the replies I got (and I thank those who did reply) > confirmed I was using ' @array=()' correctly. In the e

RE: Automated script to connect to a web site and change the Password

2004-01-28 Thread Charles K. Clarkson
Mallik <[EMAIL PROTECTED]> posted this reply: : : : -Original Message- : : From: Mallik [mailto:[EMAIL PROTECTED] : : Sent: Tuesday, January 27, 2004 5:26 AM : : To: Perl Beginners : : Subject: Automated script to connect to a web site and change : : the Password : : : : Dear Friends, :

procedure entry point slcvs2ptr message

2004-01-28 Thread Johnson, Shaunn
Howdy: Not sure if this is a duplicate message - sorry in advance if it is. I want to use Perl to connect to an Oracle 9i database on Windows 200x and have installed DBI v. 1.37 on my NT workstation. I am getting a message like so when I run the script: [snip] "The procedure entry point slcvs2

Re: [Q] How to eval an EXPR once and make it stick

2004-01-28 Thread John W. Krahn
Sam wrote: > > Thanks for all your responses; I learned a bit. > > 1. I wasn't clear on $_ in my email; that's being read elsewhere in program so > it's already set by the time print_lines is called. > > 2. Will you bet your life on this equivalence: "not /^\s*$/ == /\S/"? Yes I will. :-)

Re: [Q] How to eval an EXPR once and make it stick

2004-01-28 Thread Tassilo von Parseval
On Wed, Jan 28, 2004 at 09:11:51AM -0800 Sam wrote: > 4. As for the generalized case, I learned about using refs. Anonymous subs > also work. > > my $re = sub { return /^\s*$/; }; > my $nre = sub { return not &$re; }; > my $expr = $blank ? $re : $nre; > do ... while (&$expr and not eof); >

capturing a webpage in a variable

2004-01-28 Thread Luinrandir Hernsen
IS this how I capture a web page code to a variable? > #!/usr/bin/perl > > use LWP::UserAgent; > > my $req; > my $ua = LWP::UserAgent->new; > $req = HTTP::Request->new(GET => 'http://www.yahoo.com'); print $req; ## ? from here I can print at the code for the web page?

Re: Subroutine interaction

2004-01-28 Thread Rob Dixon
Jan Eden wrote: > > Learning more and more Just as it should be :) Well done, Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Help with options

2004-01-28 Thread Dan Muey
> Hi, > > I have a script that command options are taken and would like > to know how print out the options when the options are > missing from the command line. Or how to do a -h to print out > the options. > There are module sto help you process switches and what not. For really simple stuf

Re: [Q] How to eval an EXPR once and make it stick

2004-01-28 Thread Sam
--- Rob Dixon <[EMAIL PROTECTED]> wrote: > Sam wrote: > > > > Thanks for all your responses; I learned a bit. > > Good: well done. > > > 1. I wasn't clear on $_ in my email; that's being read elsewhere in > program so > > it's already set by the time print_lines is called. > > You /mustn't/ us

RE: Automated script to connect to a web site and change the Password

2004-01-28 Thread Mallik
Dear Friends, I need to write a Perl CGI script that connects to a website (like Yahoo) and change the Password for my user. I don't want to do it manually. It should be handled by the script. Please suggest any idea/code available. Thanks in advance, Mallik. -- To unsubscribe, e-mail: [EMAIL

Re: Subroutine interaction

2004-01-28 Thread Jan Eden
Jeff 'japhy' Pinyan wrote: >On Jan 28, Jan Eden said: > >>sub read_index { >>my $gedicht_path = shift; my (%author_indexlines, %author_headlines, >>%gedicht_lines, @author_letters, @gedicht_letters, @alphabet_index); >>find (\&read_poem, $gedicht_path); print %author_indexlines; # >>nothing is pr

Re: How to calculate elapsed time ?

2004-01-28 Thread Owen Cook
On Tue, 27 Jan 2004 [EMAIL PROTECTED] wrote: > I'm trying to determine how long an system operation takes. Anyone know > of a simple way to do this ? > > I wanted to establish the start time. Then run the operation. Then mark > the finish time. Then substract the start time from the finis

Re: array push

2004-01-28 Thread Rob Dixon
Wolf Blaum wrote: > > For Quality purpouses, Rob Dixon 's mail on Tuesday 27 January 2004 00:30 may > have been monitored or recorded as: > > > The right conclusion for the wrong reasons Wolf! The spaces are the result > > of interpolating the array into a string, and the presence of a newline o

RE: Help with options

2004-01-28 Thread Paul Kraus
Getopt::long http://search.cpan.org/~jv/Getopt-Long-2.34/lib/Getopt/Long.pm Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > From: Thomas Browner [mailto:[EMAIL PROTECTED] On Behalf Of > [EMAIL PROTECTED] > Sent: Tuesday, January 27,

Automated script to connect to a web site and change the Password

2004-01-28 Thread Mallik
Dear Friends, I need to write a Perl CGI script that connects to a website (like Yahoo) and change the Password for my user. I don't want to do it manually. It should be handled by the script. Please suggest any idea/code available. Thanks in advance, Mallik. -- To unsubscribe, e-mail: [EMAIL

How to import symbols and semantics from one namespace into another

2004-01-28 Thread mcdavis941
Hi, this question has to do with importing names from one package into another. In my case, both packages reside in the same file, and I simply want to import all the package-global symbols from the one package into the other. Can anyone say how to do this? Here's a bunch of tries that didn't

Re: Subroutine interaction

2004-01-28 Thread Rob Dixon
Jan Eden wrote: > > the following structure does not work as intended: > > sub read_index { > > my $gedicht_path = shift; > my (%author_indexlines, %author_headlines, %gedicht_lines, @author_letters, > @gedicht_letters, @alphabet_index); > find (\&read_poem, $gedicht_path); > print

Fwd: Perl Query

2004-01-28 Thread James Edward Gray II
(redirected to Perl Beginners by James) Begin forwarded message: From: atul ashpalia <[EMAIL PROTECTED]> Date: January 28, 2004 4:18:13 AM CST To: [EMAIL PROTECTED] Subject: Perl Query hi there, i am a beginner in perl and have done some basic exercises in perl covering fundamentals, references,

Re: using Perl to auto-login to capitalone.com

2004-01-28 Thread Rob Dixon
Kevin Old wrote: > > Have you look at WWW::Mechanize on CPAN. It seems to make navigating > sites (virtually) and using forms, etc. much easier. > > It's worth a shot. Seconded. It's definitely worthwhile for well-behaved sites, but can be tricky to debug if the site doesn't behave as you expect

Re: [Q] How to eval an EXPR once and make it stick

2004-01-28 Thread Rob Dixon
Sam wrote: > > Thanks for all your responses; I learned a bit. Good: well done. > 1. I wasn't clear on $_ in my email; that's being read elsewhere in program so > it's already set by the time print_lines is called. You /mustn't/ use $_ like that. It's meant to be an 'it' in places like For e

Re: using Perl to auto-login to capitalone.com

2004-01-28 Thread Kevin Old
Have you look at WWW::Mechanize on CPAN. It seems to make navigating sites (virtually) and using forms, etc. much easier. It's worth a shot. HTH, Kevin On Wed, 2004-01-28 at 02:37, Andrew Gaffney wrote: > I am attempting to write a Perl script that can login to my account at > capitalone.com,

Re: function that reads line numbers?

2004-01-28 Thread Trina Espinoza
Thanks to everyone who responded to my question. You guys really are a bunch of fast fingers out there. I got great examples no sooner than a blink of an eye! Can I learn how to code that fast? ;) I have more than enough material to work with. I'm going to run through each of my examples and see

Re: [Q] How to eval an EXPR once and make it stick

2004-01-28 Thread Sam
Thanks for all your responses; I learned a bit. 1. I wasn't clear on $_ in my email; that's being read elsewhere in program so it's already set by the time print_lines is called. 2. Will you bet your life on this equivalence: "not /^\s*$/ == /\S/"? I believe it's safer to negate an EXPR than

Re: [Q] How to eval an EXPR once and make it stick

2004-01-28 Thread Rob Dixon
John W. Krahn wrote: > > Sam wrote: > > > > # Print lines (or not) until a blank line is found (or not) > > # This function works fine. But in the spirit of learning...read on. > > > > sub print_lines_ok { > > my ($output, $blank_lines) = @_; > > if ($blank_lines) { > > do { > >

Help with options

2004-01-28 Thread tbrowner
Hi, I have a script that command options are taken and would like to know how print out the options when the options are missing from the command line. Or how to do a -h to print out the options. Thanks, Thomas Browner -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-m

Re: function that reads line numbers?

2004-01-28 Thread John W. Krahn
Trina Espinoza wrote: > > So this may be wishful thinking, but I would be kicking myself > later if I didn't ask. Is there a function in perl where you give > the function exact line numbers and it would only read the data > in the range of lines you gave it? You can use integer literals with th

RE: WinNT perl scripts - adding modules on all machines

2004-01-28 Thread Bakken, Luke
> Just a question or doubt I had. Now using > activestate's activeperl if I deploy it on all > machines on my network. And I have certain scripts for > those machines. If I release a new script that depends > on a perl module not on the activeperl distribution by > default how can I distrub

RE: Automated script to connect to a web site and change the Password

2004-01-28 Thread Dan Muey
> Dear Friends, > > I need to write a Perl CGI script that connects to > a website (like Yahoo) and change the Password for > my user. I don't want to do it manually. It should > be handled by the script. > I've done similar thigns using LWP::UserAgent to log in and submit forms with certain da

Re: WinNT perl scripts - adding modules on all machines

2004-01-28 Thread DJ Meyer
"Saadat Saeed" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > Just a question or doubt I had. Now using > activestate's activeperl if I deploy it on all > machines on my network. And I have certain scripts for > those machines. If I release a new script that depends > on a perl

Subroutine interaction

2004-01-28 Thread Jan Eden
Hi all, the following structure does not work as intended: sub read_index { my $gedicht_path = shift; my (%author_indexlines, %author_headlines, %gedicht_lines, @author_letters, @gedicht_letters, @alphabet_index); find (\&read_poem, $gedicht_path); print %author_indexlines; # no

Re: [Q] How to eval an EXPR once and make it stick

2004-01-28 Thread John W. Krahn
Sam wrote: > > # Print lines (or not) until a blank line is found (or not) > # This function works fine. But in the spirit of learning...read on. > > sub print_lines_ok { > my ($output, $blank_lines) = @_; > if ($blank_lines) { > do { > print if $output; You are prin

RE: can i do it with perl ?

2004-01-28 Thread Dan Muey
> I there, > Ello! > I need to write a web database application using > perl, and i need a way that when the users logs into > the system i download all the information regarding > to the user to its local computer and make all the > transaction locally. After that, when the user logs

Re: How to calculate elapsed time ?

2004-01-28 Thread stuart_clemons
Thanks guys. You're the Best ! I used "time" instead of "localtime" and it's exactly what I need for now. Perl is quickly becoming a very useful tool for me. Thanks also for the doc info: perldoc -f time & perldoc Benchmark - Stuart Stuart Clemons/Westford/IBM wrote on 01/27/2004 07:50:30 PM

Re: function that reads line numbers?

2004-01-28 Thread Rob Dixon
Trina Espinoza wrote: > > So this may be wishful thinking, but I would be kicking myself later if I didn't > ask. Is there a function in perl where you give the function exact line numbers > and it would only read the data in the range of lines you gave it? My other > alternative would be using a

Re: function that reads line numbers?

2004-01-28 Thread Owen Cook
On Tue, 27 Jan 2004, Trina Espinoza wrote: > So this may be wishful thinking, but I would be kicking myself later if I didn't > ask. Is there a function in perl where you give > the function exact line numbers and it would only read the data in the range of > lines you gave it? My other altern

Re: help on regular expression

2004-01-28 Thread Kenton Brede
On Tue, Jan 27, 2004 at 07:49:02AM -0800, Madhu Reddy ([EMAIL PROTECTED]) wrote: > Hi, >I need some help on regular expression... > i have following in variable $total_count > > $total_count = "##I USBP 01 10:38:09(000) > ETRACK_TOTAL_RECS : 100" > > Here in this ETRACK_TOTAL_RECS is fix

RE: help on regular expression

2004-01-28 Thread Mark Anderson
> Hi, >I need some help on regular expression... > i have following in variable $total_count > > $total_count = "##I USBP 01 10:38:09(000) > ETRACK_TOTAL_RECS : 100" > > Here in this ETRACK_TOTAL_RECS is fixed and common for > all and rest is changing... > > like following > > $total_coun

RE: Dump Excel File to Database table

2004-01-28 Thread Paul Kraus
This may be off the mark but I have always found it easier to save the table as a csv file and use Text::CSV to then parse that. I always prefer working with text but that's me. HTH, Paul Kraus --- PEL Supply Company Network Administrator > -Original Message- > F

Re: Top-of-the-page format

2004-01-28 Thread John W. Krahn
Perl wrote: > > I am printing a report and use this FORMAT function. However, I just > want it to print once, not the default of once every 60 lines. I've read > the special variable "$=" is what governs it but not matter what I put > in there, it still doesn't stop it. > > How do I disable this

Re: help on regular expression

2004-01-28 Thread Rob Dixon
Madhu Reddy wrote: > Hi, >I need some help on regular expression... > i have following in variable $total_count > > $total_count = "##I USBP 01 10:38:09(000) > ETRACK_TOTAL_RECS : 100" > > Here in this ETRACK_TOTAL_RECS is fixed and common for > all and rest is changing... > > like follow

RE: Automated script to connect to a web site and change the Password

2004-01-28 Thread Mallik
Dear Friends, I need to write a Perl CGI script that connects to a website (like Yahoo) and change the Password for my user. I don't want to do it manually. It should be handled by the script. Please suggest any idea/code available. Thanks in advance, Mallik. -- To unsubscribe, e-mail: [EMAIL

Re: How to calculate elapsed time ?

2004-01-28 Thread James Edward Gray II
On Jan 27, 2004, at 6:50 PM, [EMAIL PROTECTED] wrote: Hi all: Howdy. I'm trying to determine how long an system operation takes. Anyone know of a simple way to do this ? You were on the right track. Try this: my $start = time; # do something to time here my $time_taken = time - $start; If

Re: function that reads line numbers?

2004-01-28 Thread James Edward Gray II
On Jan 27, 2004, at 8:55 PM, Trina Espinoza wrote: So this may be wishful thinking, but I would be kicking myself later if I didn't ask. Is there a function in perl where you give the function exact line numbers and it would only read the data in the range of lines you gave it? My other alterna

Re: How to calculate elapsed time ?

2004-01-28 Thread James Edward Gray II
On Jan 27, 2004, at 6:50 PM, [EMAIL PROTECTED] wrote: Hi all: Howdy. I'm trying to determine how long an system operation takes. Anyone know of a simple way to do this ? You were on the right track. Try this: my $start = time; # do something to time here my $time_taken = time - $start; If

Re: function that reads line numbers?

2004-01-28 Thread Jeff 'japhy' Pinyan
On Jan 27, Trina Espinoza said: >So this may be wishful thinking, but I would be kicking myself later if I >didn't ask. Is there a function in perl where you give the function exact >line numbers and it would only read the data in the range of lines you >gave it? My other alternative would be usin

Re: [Q] How to eval an EXPR once and make it stick

2004-01-28 Thread Jeff 'japhy' Pinyan
On Jan 27, Rob Dixon said: >Sam wrote: >> >> sub print_lines_ok { >> my ($output, $blank_lines) = @_; >> if ($blank_lines) { >> do { >> print if $output; >> $_ = <>; >> } while (/^\s*$/ and not eof); >> } else { >> do { >> pri

using Perl to auto-login to capitalone.com

2004-01-28 Thread Andrew Gaffney
I am attempting to write a Perl script that can login to my account at capitalone.com, grab my balance and available credit and email them to me. I did this successfully with my online banking, but Capitalone's login is a pain in the ass to wrap my head around. It redirects you through 3 or pages

Re: Best Encyption module for this task/goal

2004-01-28 Thread Wiggins d Anconia
> Howdy list, > > I made a script that use Crypt::OpenPGP to > encrypt/decrypt some data. > > I was thinking about testing out some other Encryption > modules to see if any worked faster/ were more portable. > Since I'm not an encyption master I thoguht I'd ask for > input from any experience

Re: array push

2004-01-28 Thread Rob Dixon
Wolf Blaum wrote: > > For Quality purpouses, Rob Dixon 's mail on Tuesday 27 January 2004 12:42 may > have been monitored or recorded as: > > > Didn't you mean to put spaces before the last three records? This will be > > the result of > > > .. > well - in Anthonys original mail there were spaces