Re: Perl 5.whatever....

2003-01-06 Thread George P.
On Tue, 7 Jan 2003, Jenda Krynicky wrote: > > Since you are using MS Outlook I assume you want a Windows version, > right? > Cool!! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: [OT] Verbose code

2003-01-06 Thread David T-G
Wiggins, et al -- Perhaps not so off-topic, actually... Style is important. ...and then Wiggins d'Anconia said... % % R. Joseph Newton wrote: % ... % >those posting here seem particularly fascinated by tightly packed ... % % This is an interesting comment (and I agree to a point). I am curio

Re: Help with Hello world

2003-01-06 Thread Wiggins d'Anconia
Jenda Krynicky wrote: I think C is prettymuch useless for normal sysadmins. There already is a Perl module for almost anything and if there is not Win32::API, FFI or something like that can most probably get you there as well. And since it takes ten times longer to do anything in C than in

Re: Help with Hello world

2003-01-06 Thread Jenda Krynicky
From: Wiggins d'Anconia <[EMAIL PROTECTED]> > David Leathers wrote: > > > After reading some of the post just was wondering if I'm starting to > > learn the right language first. I am studying to be a network > > administrator or a job in that field. Is this the best language for > > me to start

Re: Perl 5.whatever....

2003-01-06 Thread Wiggins d'Anconia
What OS is your machine running?? If windows you should check out either the cygwin project, or ActivePerl from Active State. If RedHat the rpms should come with your distro (and should have been installed), if another linux distro, you should check out apt on your platform, or whatever other

Re: Perl 5.whatever....

2003-01-06 Thread Jenda Krynicky
From: "Damian Wader" <[EMAIL PROTECTED]> > I am learning perl with cgi and I am curious how to install perl on my > machine. Right now I just upload my scripts to my server and run them > from there. Since you are using MS Outlook I assume you want a Windows version, right? Go to http://www.act

Re: Help with Hello world

2003-01-06 Thread Wiggins d'Anconia
David Leathers wrote: After reading some of the post just was wondering if I'm starting to learn the right language first. I am studying to be a network administrator or a job in that field. Is this the best language for me to start on? That is basically un-answerable :-). Unix, Windows,

Perl 5.whatever....

2003-01-06 Thread Damian Wader
I am learning perl with cgi and I am curious how to install perl on my machine. Right now I just upload my scripts to my server and run them from there. A. Damian Wader www.endlessfollowup.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

[OT] Verbose code (was: Re: Why Perl kicks but!)

2003-01-06 Thread Wiggins d'Anconia
R. Joseph Newton wrote: One nice thing about Perl is that you can choose your own style. Many of those posting here seem particularly fascinated by tightly packed one-liners. The language supports such constructs quite well. It also supports my coding style, which tends more towards the ste

Phantom Line Numbers

2003-01-06 Thread Christopher D . Lewis
I'm writing a little toy tool to teach myself more Perl than I have used before, and I am puzzled by error messages I get when trying to run and debug it: syntax error at ./nudice-01c line 187, near "sub displayResults " syntax error at ./nudice-01c line 305, near "sub rollRequest" syntax error

RE: fh duping

2003-01-06 Thread Beau E. Cox
Thamks david - Yep, fileno did the trick! Aloha => Beau. -Original Message- From: david [mailto:[EMAIL PROTECTED]] Sent: Monday, January 06, 2003 12:26 PM To: [EMAIL PROTECTED] Subject: Re: fh duping Beau E. Cox wrote: > Hi - > > I give up. Can someone help? I want to 'dup' an > IO::

Re: fh duping

2003-01-06 Thread david
Beau E. Cox wrote: > Hi - > > I give up. Can someone help? I want to 'dup' an > IO::xxx handle to STDIN. My latest try is: > > #/usr/bin/perl > use strict; > use warnings; > use IO::File; > my $fh = new IO::File; > $fh->open("< some.file") or die "cannot open some.file"; > open (STDI

fh duping

2003-01-06 Thread Beau E. Cox
Hi - I give up. Can someone help? I want to 'dup' an IO::xxx handle to STDIN. My latest try is: #/usr/bin/perl use strict; use warnings; use IO::File; my $fh = new IO::File; $fh->open("< some.file") or die "cannot open some.file"; open (STDIN, "<&$fh") or die "cannot dup \$fh: $!\n";

Re: passing array ref to subroutine

2003-01-06 Thread Paul Johnson
On Mon, Jan 06, 2003 at 04:29:41PM -0500, Paul Kraus wrote: > I don't understand why the output of the two print statements inside the > subroutine is different. The one only prints the new line. Hmm, I get "Use of uninitialized value in concatenation (.) or string at qw" for both. > #!/usr/bin/

RE: passing array ref to subroutine

2003-01-06 Thread Dan Muey
-Original Message- From: Paul Kraus [mailto:[EMAIL PROTECTED]] Sent: Monday, January 06, 2003 3:30 PM To: Perl Subject: passing array ref to subroutine Because the second one is printing the '0' item fo an array called 'temp' you need to do $$temp[0] the same as you did $$_[0] Dan I d

RE: passing array ref to subroutine

2003-01-06 Thread Timothy Johnson
You should always include "use strict" and "use warnings" when you are writing code. Take a look at the subryoutine and you will see: $temp = $_[0] means that temp is now a reference to @array $temp[0] is the first element of the array @temp, which was created when you used the element $$_[0][0

passing array ref to subroutine

2003-01-06 Thread Paul Kraus
I don't understand why the output of the two print statements inside the subroutine is different. The one only prints the new line. #!/usr/bin/perl -w @array=qw/paul david kraus/; $arrayref=\@array; print "$arrayref\n"; print "$$arrayref[0]\n"; &suby($arrayref); sub suby { $temp=$_[0]; p

Re: perl-5.8.0 and Tk800.24v make test failure

2003-01-06 Thread Paul Johnson
On Mon, Jan 06, 2003 at 12:29:47PM -0800, bioinfo Gu wrote: > Hello, > > I want install Tk800.024 for perl5.8.0, when I 'make test', there is error: > > # make test > cd pTk && make DEFINE="" > PERL_DL_NONLAZY=1 /usr/bin/perl5.8.0 "-MExtUtils::Command::MM" "-e" "test_harness(0, >'blib/lib', 'bl

perl-5.8.0 and Tk800.24v make test failure

2003-01-06 Thread bioinfo Gu
Hello, I want install Tk800.024 for perl5.8.0, when I 'make test', there is error: # make test cd pTk && make DEFINE="" PERL_DL_NONLAZY=1 /usr/bin/perl5.8.0 "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/ Require.t t/Trace.t t/X.t t/autoload.t t/balloon.t t/browseen

Re: Problems installing Tk

2003-01-06 Thread Paul Johnson
On Mon, Jan 06, 2003 at 12:52:15PM -0700, Lance Murray wrote: > Hello: > > Try as I might I cannot seem to get the Tk module to install on either Solaris > or NT. As I fought the thing, I think I got the dependencies modules loaded > (i.e., ExtUtils-MakeMaker-6.05.tar.gz, File-Spec-0.82.tar.gz).

Re: Autoresoponders with Perl

2003-01-06 Thread Jenda Krynicky
From: "Damian Wader" <[EMAIL PROTECTED]> > somehow the link did not work so here is the URL for the code of my > previous message: > > I created an autoresponder with perl. Here is the code: > http://www.farinfrared.com/efuwelcome.cgi.txt > > However I would like body of the message to reflect HT

Problems installing Tk

2003-01-06 Thread Lance Murray
Hello: Try as I might I cannot seem to get the Tk module to install on either Solaris or NT. As I fought the thing, I think I got the dependencies modules loaded (i.e., ExtUtils-MakeMaker-6.05.tar.gz, File-Spec-0.82.tar.gz). However, when I try to install Tk-800.024.tar.gz (tK module), it always

Autoresoponders with Perl

2003-01-06 Thread Damian Wader
somehow the link did not work so here is the URL for the code of my previous message: I created an autoresponder with perl. Here is the code: http://www.farinfrared.com/efuwelcome.cgi.txt However I would like body of the message to reflect HTML code which I cannot get it to do. My server does not

Re: Sent time in a Net::SMTP mail

2003-01-06 Thread Jenda Krynicky
From: "LRMK" <[EMAIL PROTECTED]> > why don't u try MIME::Lite to create mail massage > and send it using Net::SMTP or anything > it has ready mate attachment adding facility and it adds > date and time automatically. Modules have their authors. The authors must implement the mo

Re: sorting an id like a.12.34

2003-01-06 Thread david
Konrad Foerstner wrote: > Hi Folks! > > My problem: I have a file of ids like a.12.34 or z.9.234 and want to sort > it into a new file. As the sort function sorts digit by digit I can't use > it (not so easy). Additionally the data file is quite big (11M) so I don't > know if it is okay to work w

Re: Sent time in a Net::SMTP mail

2003-01-06 Thread LRMK
why don't u try MIME::Lite to create mail massage and send it using Net::SMTP or anything it has ready mate attachment adding facility and it adds date and time automatically. Sign L Rakhitha Malinda Karunarathne Web :- rakhitha.cjb.net Email :[EMAIL PROTECTED] Rakhitha Malinda Karunarathne. --

Re: Selecting a Static HTML page

2003-01-06 Thread LRMK
Variabalizing the action will get the job done but best will be using a cgi to do it because you can process some other input data with cgi if u r not using cgi then u can only forward to another static page Sign L Rakhitha Malinda Karunarathne Web :- rakhitha.cjb.net Email :[EMAIL PROTECTED] Ra

RE: Help!!!

2003-01-06 Thread Russ Foster
If you want to do things yourself, check into MRTG and/or rrdtool. Their websites and mailing lists are full of scripts to monitor all sorts of stuff--or at least suggestions on how to do so. You'll still end of reinventing a lot, but sometimes even the open source projects can't meet everyone's

Tk800.024 + perl-5.8.0

2003-01-06 Thread bioinfo Gu
I want install Tk800.024 for perl5.8.0, when I 'make test', there is error: # make test cd pTk && make DEFINE="" PERL_DL_NONLAZY=1 /usr/bin/perl5.8.0 "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/ Require.t t/Trace.t t/X.t t/autoload.t t/balloon.t t/browseentry.t t

RE: sorting an id like a.12.34

2003-01-06 Thread Dan Muey
Not sure about size. Basically I would split the id into an array then creat a hash with the entire id as the value and whichever part of the array as the key then sort by the keys opf that hash. How to do all of that you ask? Depends on how the file is formatted and what you want to do with t

Re: Help!!!

2003-01-06 Thread George Schlossnagle
Just to clarify: Of course you can do this in perl. However, there are great, robust open source products for performing these tasks. So, excluding self-education, why re-invent the wheel if you don't need to. George On Monday, January 6, 2003, at 11:46 AM, Paul Kraus wrote: You could do i

RE: Help!!!

2003-01-06 Thread Paul Kraus
You could do it with Perl. Dump the output of the system call ping to a log file. Set it up to run however often you want to check. In Linux you could do this by setting up cron job. Not sure how you would do it in windows. kind of doing this from memory so let me know if I am wrong. $var=`ping x

RE: Help!!!

2003-01-06 Thread Dan Muey
Very vague but basically you can do all kinds of network monitoring with perl. Go tho CPAN and look for modules. I think there is one called NET::Ping . Write a script that does what you want and displays results (current stats) in html or a script that writes results to a database/file and the a

RE: Help!!!

2003-01-06 Thread Paul Kraus
I don't understand are you asking someone to write the script for you or are you asking for material to read to learn to do it. if you want to learn get learning Perl from oriely. If you want someone to do it for you then check out www.webtrends.com. > -Original Message- > From: Jose Vic

Re: Help!!!

2003-01-06 Thread George Schlossnagle
Not in Perl (though you can write extensions for it in Perl), but try Netsaint (now Nagios): http://www.nagios.org/. George On Monday, January 6, 2003, at 11:55 AM, Jose Vicente Paredes Loor wrote: Hi, friends. I am looking for a script(or a group of them) to monitor my network,i mean, i w

Help!!!

2003-01-06 Thread Jose Vicente Paredes Loor
Hi, friends. I am looking for a script(or a group of them) to monitor my network,i mean, i want to ping from one server and collect the data in some web page maybe, and show the ping result from all my servers in only one page. I have scripts to make ping from the server, but i dont know how to c

RE: sorting an id like a.12.34

2003-01-06 Thread Wagner, David --- Senior Programmer Analyst --- WGO
How do you want to sort the data? by second field, third field, first field? YOu haven't really stated your problem as such. Wags ;) -Original Message- From: Konrad Foerstner [mailto:[EMAIL PROTECTED]] Sent: Monday, January 06, 2003 08:23 To: [EMAIL PROTECTED] Subject: sorting an

sorting an id like a.12.34

2003-01-06 Thread Konrad Foerstner
Hi Folks! My problem: I have a file of ids like a.12.34 or z.9.234 and want to sort it into a new file. As the sort function sorts digit by digit I can't use it (not so easy). Additionally the data file is quite big (11M) so I don't know if it is okay to work with such big array. I hope someone c

RE: Why Perl kicks but!

2003-01-06 Thread Dan Muey
Exactly! I think the main point of all of these replies is to let this die and if there are still issues then go else where. My main point was that this is a perl list, for help with perl. I agree that flame wars are pointless but I can't sit by and let somebody trash our stuff. No you can't

RE: Adding Fields

2003-01-06 Thread Dan Muey
Hmmm, somebody else recently had this exact same issue. If you are needing the user to, say, enter '10' in field one and '20' in field two then see '30' instantly displayed on the page without submitting the information then you need to use javascript or something else. Perl processes info that

RE: Adding Fields

2003-01-06 Thread wiggins
You will have to use a client-side scripting language, most likely Javascript, for this functionality if the page must be the same as originally sent. http://danconia.org On Mon, 06 Jan 2003 09:33:41 -0600, "Janfek Esquivel" <[EMAIL PROTECTED]> w

RE: return date/time in required format

2003-01-06 Thread Bob Showalter
John Dunn wrote: > I need to return the current date and time in the following format > > MMDDHHMMSS > > but am struggling to do this using the localtime function Use the POSIX strftime() function: use POSIX 'strftime'; print strftime("%Y%m%d%H%M%S", localtime); This works on both

Re: return date/time in required format

2003-01-06 Thread John W. Krahn
"John W. Krahn" wrote: > > John Dunn wrote: > > > > I need to return the current date and time in the following format > > > > MMDDHHMMSS > > > > but am struggling to do this using the localtime function > > > > In perticular, how do I get the month number(e.g. 09 for Sep)? > > my ( $year, $m

RE: References ch 8 programming Perl

2003-01-06 Thread Dan Muey
That code ( foreach $file(@files) { )was an example *of* use not an example *to* use. To help understand what referneces are. I use a similar idea but it checks for existing names so as to avoid the problem mentioned below. Obviously as with any programming it's good to avoid code that can cause

Re: return date/time in required format

2003-01-06 Thread John W. Krahn
John Dunn wrote: > > I need to return the current date and time in the following format > > MMDDHHMMSS > > but am struggling to do this using the localtime function > > In perticular, how do I get the month number(e.g. 09 for Sep)? my ( $year, $mon, @time ) = reverse (localtime)[0..5]; my

Adding Fields

2003-01-06 Thread Janfek Esquivel
I'm working with a dbm in perl and I have some forms that only have numeric fields, each field has a variable so it's value can be accesed later, the result of the submit button is a text archive that stores all the information from a single form. The user will see an HTML created by a cgi that

RE: return date/time in required format

2003-01-06 Thread wiggins
Probably not the prettiest, but it should work... my ($sec,$min,$hour,$mday,$mon,$year) = (localtime(time))[0..5]; my $date = sprintf("%04d",$year+1900) . sprintf("%02d",$mon+1) . sprintf("%02d",$mday) . sprintf("%02d",$hour) . sprintf("%02d",$min) .

RE: return date/time in required format

2003-01-06 Thread Timothy Johnson
If you don't want to shell out for this, or if you are not on UNIX, just use the sprintf() function. E.g. sprintf("%02d",$month); #should pad the left side with one zero #if the number is less than 10. In addition I believe that if you 'use POSIX', there is a strftime() function tha

Re: Sent time in a Net::SMTP mail

2003-01-06 Thread John W. Krahn
Jenda Krynicky wrote: > > From: "John W. Krahn" <[EMAIL PROTECTED]> > > > > $ perl -MPOSIX -MTime::Local -e' > > $local = time; > > $gm = timelocal( gmtime $local ); > > $sign = qw( + + - )[ $local <=> $gm ]; > > $calc = sprintf "%s%02d%02d", $sign, (gmtime abs( $local - $gm > > ))[2,1]; > > > > p

RE: return date/time in required format

2003-01-06 Thread Dan Muey
Print `date +%m`; Prints '01' for january, '02' for February etc You can format all kinds of time with this. Unix> man date Dan -Original Message- From: John Dunn [mailto:[EMAIL PROTECTED]] Sent: Monday, January 06, 2003 8:58 AM To: [EMAIL PROTECTED] Subject: return date/time in requi

return date/time in required format

2003-01-06 Thread John Dunn
I need to return the current date and time in the following format MMDDHHMMSS but am struggling to do this using the localtime function In perticular, how do I get the month number(e.g. 09 for Sep)? John Dunn Sefas Innovation Ltd 0117 9154267 www.sefas.com -- To unsubscribe, e-mail: [EMA

Re: Sent time in a Net::SMTP mail

2003-01-06 Thread Jenda Krynicky
From: "John W. Krahn" <[EMAIL PROTECTED]> > Jenda Krynicky wrote: > > > > From: "John W. Krahn" <[EMAIL PROTECTED]> > > > Or, you could do it the "correct" way. :-) > > > > > > use POSIX 'strftime'; > > > > > > my $date = strftime '%a, %d %b %Y %H:%M:%S %z', localtime; > > > $smtp->datasend( "Dat

applescript power for perl on macintosh

2003-01-06 Thread Aman Thind
Hi all Is there a module which would give me the power of applescripts on Mac OS 9 / 10 ? How can I invoke an application and pass it parameters like I can using applescript with methods provided in that application's dictionary ? Eg. I want to invoke Mac Metrowerks CodeWarrior, tell it the path

Re: Perl Help

2003-01-06 Thread Rob Dixon
Hi Adam You certainly seem to have got yourself confused :) I'm not certain what it is you're trying to do either. Remember the following: $xxxis a _scalar_ value, which will hold a single number, string etc. @xxxis an _array_ value, which will hold a list of scalar values Since