RE: Question about dates

2002-08-27 Thread Kipp, James
here's a good link that i used to format Dates: http://www-db.stanford.edu/~ullman/fcdb/oracle/or-time.html -Original Message- From: Soheil Shaghaghi [mailto:[EMAIL PROTECTED]] Sent: Monday, August 26, 2002 7:20 PM To: [EMAIL PROTECTED] Subject: RE: Question about dates Thanks

Re: Open new window.

2002-08-27 Thread zentara
On Mon, 26 Aug 2002 13:48:40 -0500, [EMAIL PROTECTED] (Mikeblezien) wrote: Hello all, this maybe bit off topic, but was hoping someone may have some suggestions. I have simple form that a person makes a selection from a drop box and we would like to open a new window, and resize it similar to

telnet/ssh web interface

2002-08-27 Thread David T-G
Hi, folks -- Has anyone seen or written some code that will talk to a shell or ssh socket on one side and a web page on the other? I'd like to build a web ssh script for those times when I have nothing but a web browser available and want to get to my shell. This seems quite complex but

Retrieving data from files

2002-08-27 Thread Soheil Shaghaghi
Hi everyone, I am using a program that gets the user information and stores them. The program stores each user data in a separate file, like userid.tmp The data that is in each file looks like this: username#!#fullname#!#email#!#userid#!#registratingdate#...#!#n What I need to do is get the

Hello and question

2002-08-27 Thread martin1
Hello, I am Martin Schaaf, Forth hacker and Perl mystified. I'm taking on a volunteer project to create a cgi script to maintain a simple flat file database and generate reports through email. Passwords and commands would be passed through the email Subject: line. The unique identifier for

Re: Retrieving data from files

2002-08-27 Thread Janek Schleicher
Soheil Shaghaghi wrote at Tue, 27 Aug 2002 18:33:42 +0200: I am using a program that gets the user information and stores them. The program stores each user data in a separate file, like userid.tmp I hope, all users you have stored have acknowledged that their data is collected and munged to

Re: Retrieving data from files

2002-08-27 Thread Felix Geerinckx
on Tue, 27 Aug 2002 16:33:42 GMT, Soheil Shaghaghi wrote: I am using a program that gets the user information and stores them. The program stores each user data in a separate file, like userid.tmp The data that is in each file looks like this:

RE: Retrieving data from files

2002-08-27 Thread Soheil Shaghaghi
I am using a program that gets the user information and stores them. The program stores each user data in a separate file, like userid.tmp The data that is in each file looks like this: username#!#fullname#!#email#!#userid#!#registratingdate#...#!#n Seems strange to me, storing one of

sendmail command line (without queuing)

2002-08-27 Thread Anthony E.
i want to send an email with sendmail from my perl script without queueing the email. What's the command line? Thanks, Anthony __ Do You Yahoo!? Yahoo! Finance - Get real-time stock quotes http://finance.yahoo.com -- To unsubscribe, e-mail:

Create an output file using Perl

2002-08-27 Thread Allen Wang
i want to generate an output file using perl open (OFILE, /tmp/aa.lst) or die Can't write $p_OutputFile: $! ; Everytime I ran it, I got the following error message. Can't write /tmp/aa.lst: No such file or directory at compare.pl line 71. Any suggestions? Thanks, Allen

Re: Create an output file using Perl

2002-08-27 Thread Joe Raube
Does the /tmp directory exist? does the user running this script have write permissions to that directory? --- Allen Wang [EMAIL PROTECTED] wrote: i want to generate an output file using perl open (OFILE, /tmp/aa.lst) or die Can't write $p_OutputFile: $! ; Everytime I ran it, I

RE: Create an output file using Perl

2002-08-27 Thread Allen Wang
Yes, we do have /tmp diretory and everyone has write permission to /tmp Thanks, allen -Original Message- From: Joe Raube [mailto:[EMAIL PROTECTED]] Sent: Tuesday, August 27, 2002 11:47 AM To: [EMAIL PROTECTED] Subject: Re: Create an output file using Perl Does the /tmp directory

Perl Programmers Needed.

2002-08-27 Thread Jeremy M.
Hello folks, I'm not entirely sure this is the correct forum to post this in, but in all reality there isn't exactly an overwhelming community of Perl programmers out there. I along with my co-Creator Morgana run a Wheel Of Time Multi-User Domain for Roleplaying. It's a MUD to those who know

RE: Create an output file using Perl

2002-08-27 Thread Allen Wang
I think there should not be any spaces between and , and that's the reason why it failed. Thanks anyway. open (OFILE, /tmp/aa.lst) or die Can't write $p_OutputFile: -Original Message- From: Allen Wang [mailto:[EMAIL PROTECTED]] Sent: Tuesday, August 27, 2002 11:50 AM To: 'Joe

RE: No cache

2002-08-27 Thread John Mooney
Also, some proxy servers (notably AOL) ignore HTTP_EQUIV directives set in META tags. aol HTTP header info: http://webmaster.aol.com/index.cfm?article=556expand=0sitenum=2menuid=56 Bob Showalter [EMAIL PROTECTED] 8/25/2002 4:11:25 PM -Original Message- From: Octavian

RE: Create an output file using Perl

2002-08-27 Thread David Zhuo
does the file aa.lst already exists in /tmp? if so, does your script have permission to write to it? the error doesn't seem like a permission problem... david On Tue, 2002-08-27 at 11:49, Allen Wang wrote: Yes, we do have /tmp diretory and everyone has write permission to /tmp Thanks,

Re: sendmail command line (without queuing)

2002-08-27 Thread Wiggins d'Anconia
man sendmail??? (or possibly try a sendmail group) You might be looking for DeliveryMode=x where x is b but I am not a sendmail expert. You might also check the perldoc for Net::SMTP as this is probably safer than using sendmail command line (or one of the many other SMTP modules).

Re: sendmail command line (without queuing)

2002-08-27 Thread Wiggins d'Anconia
Would be interesting to know which book and what reasons they stated for using sendmail directly. I would imagine most of the people on the list and myself included would advocate using the module in almost all cases. There are a couple of big reasons, mainly that understanding sendmail is a

Re: Hello and question

2002-08-27 Thread Wiggins d'Anconia
Remember to reply all so the list gets your posts as well... [EMAIL PROTECTED] wrote: At 06:48 PM 8/27/2002 -0400, you wrote: This doesn't sound like a CGI script You're absolutely right. This is my second iteration, I've dropped the CGI implementation for security reasons and

Re: Perl Programmers Needed.

2002-08-27 Thread Todd Wade
Jeremy M. [EMAIL PROTECTED] wrote in message 000401c24dfb$1124ce30$0302a3c0@mithril">news:000401c24dfb$1124ce30$0302a3c0@mithril... Hello folks, I'm not entirely sure this is the correct forum to post this in, but in all reality there isn't exactly an overwhelming community of Perl

Re: Create an output file using Perl

2002-08-27 Thread Alex B.
try using: open (OFILE, + /tmp/aa.lst) or die Can't write $p_OutputFile: $! ; if that is still making problems, then visit: http://www.perldoc.com/perl5.6.1/pod/func/open.html - ... '+' mode would clobber the file first. cheers, Alexmailto:[EMAIL

is there any way to redirect a format to TK::Text

2002-08-27 Thread alex chen
hi,everyone: i have a trouble in TK,please help me.i have a format like this format ALARMLABEL_TOP = ALARM REPORT ___ NodeName :@||| $node Time :@ ,Priority: @ $time, $priority Alarm_d

Re: Best way to save nested data structure.

2002-08-27 Thread John W. Krahn
Rowan Reid wrote: I'm learning as best I can using every book orielly makes. I am trying to saved a complex data structure (hash). I'm trying to use Berkly DBFile and tie. I am unable to store the file ie retrieve info once I have exited the program. Once I tie a hash toe the file access

Problems with SNMP::Multi

2002-08-27 Thread Angerstein
Hello, I have some Questions regarding SNMP::Multi. Does someone have some more documentated Examples? I need pairs of the $result-values and the corresponding $result-varlist item; For example: myrouter.mynet.com: .1.3.6.1.2.1.2.2.1.5.5 = 1550 It would be perfect if I could get the type

Multidimensional Associative Arrays --- do they exist ?

2002-08-27 Thread Q
Greetings. Is there such a thing as mutlidimensional associative array ? The reason I ask this is that I intent copy the contents of a time stamped file into one big file which will be used to update fields of a database. I intend using the filename ( remember it is time stamped) and use it

Re: Multidimensional Associative Arrays --- do they exist ?

2002-08-27 Thread Felix Geerinckx
on Tue, 27 Aug 2002 11:20:32 GMT, [EMAIL PROTECTED] (Q) wrote: @myFileNameArray = (23_59_54_20_08_2002, 23_59_55_20_08_2002); @myMultiDimArray = ([20, 40, 60], [30, 20, 45]); I guess what I am really asking here is can i combine the two arrays in such a way that the Filename array becomes

RE: Best way to save nested data structure.

2002-08-27 Thread Bob Showalter
-Original Message- From: Rowan Reid [mailto:[EMAIL PROTECTED]] Sent: Monday, August 26, 2002 6:51 PM To: [EMAIL PROTECTED] Subject: Best way to save nested data structure. I'm learning as best I can using every book orielly makes. I am trying to saved a complex data

eval on a $SIG{KILL}- newbie question

2002-08-27 Thread Chad Kellerman
Hello, I am writing a script on a linux server use Net::SSH::Perl. Every once in a while the ssh connection to a remote server dies or it just can't connect. the perl module send a $SIG{KILL} to the script when ever this happens. Which isn't what I want. I am trying to put the kill in an

RE: eval on a $SIG{KILL}- newbie question

2002-08-27 Thread Bob Showalter
-Original Message- From: Chad Kellerman [mailto:[EMAIL PROTECTED]] Sent: Tuesday, August 27, 2002 8:33 AM To: [EMAIL PROTECTED] Subject: eval on a $SIG{KILL}- newbie question Hello, I am writing a script on a linux server use Net::SSH::Perl. Every once in a while the ssh

Printing perldocs

2002-08-27 Thread James Campbell
Hi all Dumb question but... Does anyone know how to print a perldoc page displayed in the Windows DOS prompt? I can't seem to find the html version of a page I need to print. Hope one of you can help cheers James =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= James Campbell Tel:+44-(0)20-7848-5111

Re: Multidimensional Associative Arrays --- do they exist ?

2002-08-27 Thread Michael Lamertz
On Tue, Aug 27, 2002 at 01:20:32PM +0200, Q wrote: Greetings. Is there such a thing as mutlidimensional associative array ? FILE 1 ( Filename = 23_59_54_20_08_2002) = FIELD1FIELD2FIELD3 204060 FILE 2 (Filename = 23_59_55_20_08_2002) =

Re: eval on a $SIG{KILL}- newbie question

2002-08-27 Thread Chad Kellerman
Bob, Thanks for the responce. I did not realize you can't trap a $SIG{kill}. I guess the only way around this is to change the perl module. Change it so it doesn't die but return a value and grab that value in the eval statement? thanks again, --chad On Tue, 27 Aug 2002 08:41:31

Re: Best way to save nested data structure.

2002-08-27 Thread Sudarshan Raghavan
On Tue, 27 Aug 2002, Sudarshan Raghavan wrote: Sorry!! did not read the subject or the mail properly. Ignore my previous post. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Printing perldocs

2002-08-27 Thread Felix Geerinckx
on Tue, 27 Aug 2002 12:45:10 GMT, [EMAIL PROTECTED] (James Campbell) wrote: Dumb question but... Does anyone know how to print a perldoc page displayed in the Windows DOS prompt? I can't seem to find the html version of a page I need to print. Hope one of you can help If you are using

Re: Multidimensional Associative Arrays --- do they exist ?

2002-08-27 Thread Omanakuttan
$myhash {23_59_54_20_08_2002} = [30,20,45] ; my $x = $myhash{23_59_54_20_08_2002},\n ; for my $i (0..$#{$x}) { print $myhash{23_59_54_20_08_2002}-[$i], ; } print \n ; HTH. Om. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Printing perldocs

2002-08-27 Thread shawn_milochik
If you were to type: perldoc -f chomp to see the info you want, then try this: perldoc -f chomp chompdoc.txt That will print the results to a text file, which you can read, print, etc. Shawn

Re: perlcc

2002-08-27 Thread zentara
On Mon, 26 Aug 2002 15:05:26 -0400, [EMAIL PROTECTED] (William Ampeh) wrote: Hello, Has anyone experimented with perlcc? If so, any pointers to how it works will be appreciated. Yeah, I've experimented with it. It's very buggy. If you are using perl version 5.6 there is a bug with the

RE: eval on a $SIG{KILL}- newbie question

2002-08-27 Thread Bob Showalter
-Original Message- From: Chad Kellerman [mailto:[EMAIL PROTECTED]] Sent: Tuesday, August 27, 2002 8:58 AM To: [EMAIL PROTECTED] Subject: Re: eval on a $SIG{KILL}- newbie question Bob, Thanks for the responce. I did not realize you can't trap a $SIG{kill}. I guess

Re: should i switch to 5.8.0?

2002-08-27 Thread David T-G
Paul, et al -- ...and then Paul Johnson said... % % On Mon, Aug 26, 2002 at 09:22:25AM -0400, David T-G wrote: % % I see that 5.8 is out... Any thoughts on how stable it is and when we ... % not to upgrade now... % % It depends what you are upgrading from. If you are running 5.6.1 and %

generating arrays on the fly

2002-08-27 Thread afarrell
hi, what I'm wanting to do is generate an array named after a string that is found in a text file. i.e something like this: if ($line=~(/^\[\[(\w+)\]\]/)){ @$1=(); #this is the line I want to acheive my aim with! } I know the syntax is wrong, but hopefully it explains what I'm trying to do,

Re: generating arrays on the fly

2002-08-27 Thread Ramprasad A Padmanabhan
[EMAIL PROTECTED] wrote: hi, what I'm wanting to do is generate an array named after a string that is found in a text file. i.e something like this: if ($line=~(/^\[\[(\w+)\]\]/)){ @$1=(); #this is the line I want to acheive my aim with! } I know the syntax is wrong, but hopefully

RE: generating arrays on the fly

2002-08-27 Thread Nikola Janceski
perhaps a hash of arrays is what you want: if ($line=~(/^\[\[(\w+)\]\]/)){ $HASH{$1} = []; } and you reference the array like push @{ $HASH{'text'} }, someinfo; or anyother array functions. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Tuesday,

Re: Printing perldocs

2002-08-27 Thread Ramprasad A Padmanabhan
James Campbell wrote: Hi all Dumb question but... Does anyone know how to print a perldoc page displayed in the Windows DOS prompt? I can't seem to find the html version of a page I need to print. Hope one of you can help cheers James =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= James

Re: Printing perldocs

2002-08-27 Thread Jackson, Harry
Title: Re: Printing perldocs -Original Message- From: Ramprasad A Padmanabhan [mailto:[EMAIL PROTECTED]] James Campbell wrote: Hi all Dumb question but... Does anyone know how to print a perldoc page displayed in the Windows DOS prompt? I can't seem to find the

Re: Regexp

2002-08-27 Thread alex chen
David Samuelsson [EMAIL PROTECTED] ??:[EMAIL PROTECTED] ... more regexps.. $_ comes in this form: servername:D:\CC_Storage\Views\EUSDNKG_Madeleine_Tae68_view.vws [uuid 74a6b3b0.d1cd11d4.896e.00:b0:d0:83:b4:9b] i want $_ to be just the uuid number that is:

LDIF file parsing

2002-08-27 Thread Panel Vincent - A53
As my first real script in perl, I would to parse a LDIF file (export format of an LDAP directory) to get some sort of information of it. The structure of such a file is something like this (between quotes) : name: bozo surname: the clown address: over here name: denise surname: richard

RE: Best way to save nested data structure.

2002-08-27 Thread Rowan Reid
I'm learning as best I can using every book orielly makes. I am trying to saved a complex data structure (hash). I'm trying to use Berkly DBFile and tie. I am unable to store the file ie retrieve info once I have exited the program. Once I tie a hash toe the file access the

Re: LDIF file parsing

2002-08-27 Thread Janek Schleicher
Panel Vincent - A53 wrote at Tue, 27 Aug 2002 17:47:09 +0200: As my first real script in perl, I would to parse a LDIF file (export format of an LDAP directory) to get some sort of information of it. The structure of such a file is something like this (between quotes) : name: bozo

fileDSN without explicit passwords

2002-08-27 Thread brian gilbert
I'm using ActiveState and Win32::ODBC to connect to an SQL server from our web server, with a connect string like: my($db) = new Win32::ODBC(fileDSN=myodbc.dsn; uid=myID; pwd=mysecret); But I don't like having the uid and pwd explicitly stated in the script. Isn't that what the file DSN is

Newbie Question.

2002-08-27 Thread Ashutosh Jog
Hello, This might be a very simple question, but being a newbie I have to ask. :) How can I copy the line by line contents of a file to a array? For eg: @animals should look like @animals = ('tiger','lion','elephant'); And the text file would have entries for the same in this order (i.e. one

RE: Newbie Question.

2002-08-27 Thread Timothy Johnson
That's easy enough. Try something like this: open(INFILE,zoo.txt); @animals = INFILE; Perl will automatically dump the entire contents of the file into the array, with each line as an element. But beware! If you try to do this with extremely large files, you can really bog down your

Re: Newbie Question.

2002-08-27 Thread Steve Grazzini
Ashutosh Jog [EMAIL PROTECTED] wrote: This might be a very simple question, but being a newbie I have to ask. :) How can I copy the line by line contents of a file to a array? For eg: @animals should look like @animals = ('tiger','lion','elephant'); And the text file would have

Re: where to put data files

2002-08-27 Thread Paul Tremblay
On Wed, Aug 21, 2002 at 11:43:43AM -0700, drieux wrote: On Wednesday, August 21, 2002, at 10:06 , Paul Tremblay wrote: I am writing a script that converts RTF to XML, and this script needs to read an external data file to form a hash. I plan to make this script available to anyone who

using Super in packages

2002-08-27 Thread drieux
Volks, am I just slow or what? I liked david's illustration yesterday, and dashed off this morning to code up the illustration about overridden method - on the specific order of Connie's original concern, so I had three packages A, B1, C - { base is to the left }. So B1's overriding of A's

LISTS OF LISTS - Help please!!

2002-08-27 Thread Leon, Yanet I,,DMDCWEST
I have an array which contains the entries below - the output was generated with the following loop: for $r ( 0 .. $#allfilesystems ) { for $c ( 0 .. $#{ $allfilesystems[$r] } ) { print elt $r $c is

Re: eval on a $SIG{KILL}- newbie question

2002-08-27 Thread Chad Kellerman
Sorry everybody, I have been trying to work on this all day but nothing... IF a perl module uses: connect($sock, sockaddr_in($rport, $raddr)) or die Can't connect to $ssh-{host}, port $rport: $!; How do I catch the die() in an eval statement; I have been using: eval {

RE: LISTS OF LISTS - Help please!!

2002-08-27 Thread Leon, Yanet I,,DMDCWEST
Actually, the problem with the previous one (very stupid, by the way) was that I wasn't providing the user input. Anyway, the output right now is the following: #./getinfo.pl data02 Filesystem Information: data02-01 How can I print the whole row? So my output will look as I described on my

Who wants to help a newbie?

2002-08-27 Thread coe smythe
I'm trying to work up a little script using the Net::AIM module. However, I don't have a whole lot of perl knowledge, and have even less knowledge as to how the module interacts with AIM. I'm pretty much just snooping around for some one willing to give me a hand who knows something about

RE: eval on a $SIG{KILL}- newbie question

2002-08-27 Thread Bob Showalter
-Original Message- From: Chad Kellerman [mailto:[EMAIL PROTECTED]] Sent: Tuesday, August 27, 2002 1:46 PM To: [EMAIL PROTECTED] Subject: Re: eval on a $SIG{KILL}- newbie question Sorry everybody, I have been trying to work on this all day but nothing... IF a perl module

install/mail help

2002-08-27 Thread Dennis Greenfield
Greetings: Recently I installed version 5.6.1 from ActiveState using ppm and now I am curious about sendmail. Does it come preinstalled or can someone tell me where and how to get it. I've been trying to practice with sending email from web pages, but seem to be missing that piece. Thank

Re: is there any way to redirect a format to TK::Text

2002-08-27 Thread david
have you try using formline and $^A you might want to try something like: my $var1 = abcd; my $var2 = wxyz; my $var3 = 1234; $^A = undef; #-- just in case formline HEADER,$var1,$var2,$var3; -- @ @ @ -- HEADER #-- $header

Word and Outlook

2002-08-27 Thread Kirby_Sarah
Hi all, I was wondering, can Perl create and format a Word document using a template and can Perl create draft copies of Emails with (or without) attachments? I want to automate a report process so that perl generates the reports (which I do right now into HTML format that I then save

Re: LDIF file parsing

2002-08-27 Thread Michael Fowler
On Tue, Aug 27, 2002 at 05:47:09PM +0200, Panel Vincent - A53 wrote: As my first real script in perl, I would to parse a LDIF file (export format of an LDAP directory) to get some sort of information of it. The structure of such a file is something like this (between quotes) : I'd suggest

Password entry field.

2002-08-27 Thread Ravindranath, Sujit
Hi all, I am using PERL to write a terminal(UNIX) program wherein it prompts the user for some information, including a password field. Now,is there a way I can set this up so that the user-input key-strokes show up as asterisks on the screen ? Thanks Sujit Ravindranath ATT Wireless Services

Re: eval on a $SIG{KILL}- newbie question

2002-08-27 Thread david
Chad Kellerman wrote: Sorry everybody, I have been trying to work on this all day but nothing... IF a perl module uses: connect($sock, sockaddr_in($rport, $raddr)) or die Can't connect to $ssh-{host}, port $rport: $!; How do I catch the die() in an eval statement; I have

Re: Password entry field.

2002-08-27 Thread Kevin Meltzer
As well as the pointer Craig gave, you can also look at the Term::ReadPassword module. Cheers, Kevin On Tue, Aug 27, 2002 at 02:55:41PM -0400, Ravindranath, Sujit ([EMAIL PROTECTED]) said something similar to: Hi all, I am using PERL to write a terminal(UNIX) program wherein it prompts the

RE: Word and Outlook

2002-08-27 Thread Timothy Johnson
A couple of ideas: 1) You can check CPAN to see if there is a module like Spreadsheet::WriteExcel for Word, otherwise your best bet might be to convert a Word Macro into Perl. You can do this with Win32::OLE. Check the documentation for Win32::OLE, and you should see some examples using

RE: install/mail help

2002-08-27 Thread Timothy Johnson
You should be able to send mail using Mail::Sendmail, Net::SMTP, Mail::Sender, or one of a number of other modules. I use Mail::Sender when I want to send an attachment, and Net::SMTP otherwise, personally. Check out http://search.cpan.org. -Original Message- From: Dennis Greenfield

Re: perl interpreter

2002-08-27 Thread zentara
On Tue, 27 Aug 2002 00:14:17 -0700, [EMAIL PROTECTED] (Mark Goland) wrote: Hi guys, I was just wondering is there a perl interpreter that will fit on one floppy disk ?? You need to make a bootable cd to hold all the libs. Here are instructions for a method I use, which I find easy. You can

Slow Postgres Update

2002-08-27 Thread Rob
The below updates a database from a very large file but it's rather slow; How can I speed it up some? I'm still new to database programming with Perl so if you see anything else that I'm doing wrong or could do better don't hesitate to point it out. #!/usr/bin/perl -w use strict; use DBI;

Re: Word and Outlook

2002-08-27 Thread Robin Norwood
Kirby_Sarah [EMAIL PROTECTED] writes: Hi all, I was wondering, can Perl create and format a Word document using a template and can Perl create draft copies of Emails with (or without) attachments? I want to automate a report process so that perl generates the reports (which I do

Re: using Super in packages

2002-08-27 Thread david
Drieux wrote: Hence one should only use SUPER in a method if a) the method itself is overriding an inherited method b) you have a clue that in multiple class inheritences you will find the one you really want? ciao drieux --- thanks for the follow up and verify a ton of

RE: LISTS OF LISTS - Help please!!

2002-08-27 Thread david
array is not the best data structure for this kind of search operation, but if you insist on using an array, try: my $userinput = abcd; my @allfilesystems = ([xxx,1234,5678],[abcd,,]); my @buffer = (); foreach my $i (0 .. $#allfilesystems){ my $flag = 0; foreach my $j (

Re: Using dynaloader.pm

2002-08-27 Thread Paul Johnson
On Tue, Aug 27, 2002 at 05:03:01PM -0400, Kevin Torres wrote: I am using bootstrap in dynaloader.pm. Everything works upto the last instruction of the subroutine $xs(@args); There are are no errors upto that point. $xs gets assigned CODE(0x251f1a4). But the very next thing to happen

Re: generating arrays on the fly

2002-08-27 Thread Jeff 'japhy' Pinyan
On Aug 27, Ramprasad A Padmanabhan said: if ($line=~(/^\[\[(\w+)\]\]/)){ @$1=(); #this is the line I want to acheive my aim with! } if ($line=~(/^\[\[(\w+)\]\]/)){ eval('@' .$1 .' = () ') || warn $@ } First, don't do that. You're doing symbolic references in effect. Second, that

RE: Newbie Question.

2002-08-27 Thread Timothy Johnson
I think you can simplify this with a loop: for($i = 0;$i @animals;$i++){ $hash{$animals[$i]} = $mammals[$i]; } -Original Message- From: Ashutosh Jog [mailto:[EMAIL PROTECTED]] Sent: Tuesday, August 27, 2002 2:33 PM To: Timothy Johnson Subject: Re: Newbie Question. Hi,

sorting logs

2002-08-27 Thread LADDO
Hi all I have a log file which is generated by backup script and i am writing a perl script to sort the log so as to prepare it to put into mysql database and iam having a problem in doing that. my log file is like this (I have written line numbers for clarity only ) 1 INCREMENTAL OF

Re: Slow Postgres Update

2002-08-27 Thread Bob Showalter
- Original Message - From: Rob [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, August 27, 2002 4:00 PM Subject: Slow Postgres Update The below updates a database from a very large file but it's rather slow; How can I speed it up some? I'm still new to database programming with

Re: sorting logs

2002-08-27 Thread Paul Johnson
On Wed, Aug 28, 2002 at 10:59:13AM +1200, LADDO wrote: Hi all I have a log file which is generated by backup script and i am writing a perl script to sort the log so as to prepare it to put into mysql database and iam having a problem in doing that. [ snip ] i can do it with awk and

RE: sorting logs

2002-08-27 Thread David . Wagner
Here is the output I got: 2002-08-28,Tape 1, staff, 315825 2002-08-28,Tape 2, www.cs, 102860 2002-08-28,Tape 2, staff_homepages, 103142 2002-08-28,Tape 2, ftp.cs, 103204 2002-08-28,Tape 2, local, 103216 2002-08-28,Tape 2, Hyper-G, 103236 2002-08-28,Tape 2, submissions, 104278

Re: sorting logs

2002-08-27 Thread david
you might want to try: #!/usr/bin/perl -w use strict; my $i = 1; my $min = -1; while(){ my($n1,$d1,$b1) = /^INCREMENTAL\s+OF\s+(.+?)\s+.*?ON\s+(.+?)\s+.+\s+(\d+)$/i; $i++ if($b1 $min); $min = $b1; print \$d1\,\TAPE $i\,\$n1\,\$b1\\n; } david Laddo wrote: Hi

Re: Newbie Question.

2002-08-27 Thread John W. Krahn
From: Ashutosh Jog [mailto:[EMAIL PROTECTED]] Hi, Hello, Another question: If I have a hash with entries like these: my %hash = ($animals [0]= [$mammals[0]], $animals[1] = [$mammals[1]]); But if the list has like 50 entries in both the $animals $mammals the can I do this? my

Re: sorting logs

2002-08-27 Thread John W. Krahn
Laddo wrote: Hi all Hello, I have a log file which is generated by backup script and i am writing a perl script to sort the log so as to prepare it to put into mysql database and iam having a problem in doing that. my log file is like this (I have written line numbers for clarity

Re: Slow Postgres Update

2002-08-27 Thread Randal L. Schwartz
Rob == Rob [EMAIL PROTECTED] writes: Rob How can I speed it up some? I'm still new to database programming with Rob Perl so if you see anything else that I'm doing wrong or could do better Rob don't hesitate to point it out. [...] Rob my $dbh = DBI-connect($database, $db_user, , Rob

Re: Printing perldocs

2002-08-27 Thread dizzy74
James Campbell wrote: Hi all Dumb question but... Does anyone know how to print a perldoc page displayed in the Windows DOS prompt? How about perldoc -f flock your_file_lock.txt LPT1 rob -- Civilization is the process of reducing the infinite to the finite. -- To

Re: Newbie Question.

2002-08-27 Thread Omanakuttan
open (FH, $filename) or die $! ; my @arr = FH ; HTH. Om. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: generating arrays on the fly

2002-08-27 Thread Ramprasad A Padmanabhan
Thanx I am not a great master of perl , but have been getting my job done with perl for the past 2 years. Can u educate me why I cant do 'symbolic references' in eval('@' .$1 .' = () ') On Wed, 2002-08-28 at 03:31, Jeff 'japhy' Pinyan wrote: On Aug 27, Ramprasad A Padmanabhan said: if

conditional statement

2002-08-27 Thread Javeed SAR
Hi all, I am using 2 conditional statements, as follows: if (($vbpcount==1) ||($dspcount==1)) { die \n\nThe element ($PN) is not allowed to be added to ClearCase,Because a project already exists.\n; } elsif(($vbpcount==1) ($dspcount==1)) {die \n\nThe element ($PN) is not allowed to be

Re: conditional statement

2002-08-27 Thread Omanakuttan
if (($vbpcount==1) ||($dspcount==1)) { die \n\nThe element ($PN) is not allowed to be added to ClearCase,Because a project already exists.\n; } elsif(($vbpcount==1) ($dspcount==1)) {die \n\nThe element ($PN) is not allowed to be added to ClearCase,Because a project already exists.\n; }

Re: conditional statement

2002-08-27 Thread John W. Krahn
Javeed Sar wrote: Hi all, Hello, I am using 2 conditional statements, as follows: if (($vbpcount==1) ||($dspcount==1)) { die \n\nThe element ($PN) is not allowed to be added to ClearCase,Because a project already exists.\n; } elsif(($vbpcount==1) ($dspcount==1)) {die \n\nThe

Re: conditional statement

2002-08-27 Thread Paul Johnson
On Wed, Aug 28, 2002 at 11:08:14AM +0530, Javeed SAR wrote: Hi all, I am using 2 conditional statements, as follows: if (($vbpcount==1) ||($dspcount==1)) { die \n\nThe element ($PN) is not allowed to be added to ClearCase,Because a project already exists.\n; }

Re: generating arrays on the fly

2002-08-27 Thread Sudarshan Raghavan
On 28 Aug 2002, Ramprasad A Padmanabhan wrote: Thanx I am not a great master of perl , but have been getting my job done with perl for the past 2 years. Can u educate me why I cant do 'symbolic references' in eval('@' .$1 .' = () ') This does not just apply for eval, symbolic references

Re: conditional statement

2002-08-27 Thread Paul Johnson
On Wed, Aug 28, 2002 at 07:57:26AM +0200, Paul Johnson wrote: If a || b is true then by definition a b will be true. Sorry, that's backwards. If a b is true then by definition a || b will be true. The rest of the post holds though. -- Paul