Problems with perl 5.8.4 + amavis-ng and Zlib.pm.

2004-11-08 Thread Jiri Cervenka
hello, I´m perl newbie and after upgrading to new perl5.8.4 my virus scanner (amavis-ng) stop working and in amavis-ng.log appeared this error shown bellow. I´m running perl on debian machine with 2.4.26-ow1 kernel. Perl information: Perl info Perl location = /usr/bin/perl Perl version = 5.00

Re: Recommend a graphing module?

2004-11-08 Thread ewijaya
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Recommend a graphing module?

2004-11-08 Thread ewijaya
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Recommend a graphing module?

2004-11-08 Thread Daniel Kasak
Hi all. I want to try some graphing under Perl. I've used jpgraph ( PHP ) before, and *very* much like it. I'd like to have features such as alpha-blending with a reasonably easy-to-use interface. I'm moving users over from Excel, and we have some very pretty graphs with alpha-blended bars and

Re: how to append test to file

2004-11-08 Thread Prasanna Kothari
Hi, Store all the contents of the file in an array and operate on the array. There should be a better way(inline modification i guess using "-i" option). #!/usr/bin/perl -w use strict; my @arr; my $filename = "testtest"; open(FH,"<","$filename") || die "Could not open $filename\n"; @arr=; $arr[$#ar

Re: using $. line number special variable

2004-11-08 Thread Randy W. Sims
Joseph Paish wrote: how do you use the "line number" variable inside a while loop like i am trying to do below? i never get to process the first line of the file, and as a result, subsequent calculations are inaccurate. it always jumps to the second "if" statement. Like the others, I don't s

Re: using $. line number special variable

2004-11-08 Thread William C. Bruce
Joe, If you are using fh1 more than 1x in the code, and it's not explicitly closed with each use, you will start at the last line number of the previous file or across files. I had a tendency to reuse file handles, relying on perl's implicit close, and ran into the above. The code snippet loo

Re: How to get text after comment

2004-11-08 Thread Ajey Kulkarni
On Mon, 8 Nov 2004, Randy W. Sims wrote: > [EMAIL PROTECTED] wrote: > > Hi, > > I need to capture whole text after "#" character in each line from a > > file.The below script is not working can any one suggest the correct > > thing plz.. > > Your regexp: > > > if ($line1 =~ /^#\(.*\)/)

Re: TCL

2004-11-08 Thread Randy W. Sims
Chris Devers wrote: On Mon, 8 Nov 2004, Custard, Carol N. wrote: Does anyone know tcl? Yes. I'm sure someone does. What specifically are you wanting to know? And how is it related to Perl? ;-) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: TCL

2004-11-08 Thread Chris Devers
On Mon, 8 Nov 2004, Custard, Carol N. wrote: > Does anyone know tcl? Yes. I'm sure someone does. -- Chris Devers -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: old problem

2004-11-08 Thread Gunnar Hjalmarsson
Mandar Rahurkar wrote: This was posted some time back by gunnar. How does this exactly work? Can someone point to help on map ? my %myNEWhash = map { $_, delete $myhash{$_} } grep /^1\D/, keys %myhash; You obviously should have put that line in its right context. It was suggested in conn

TCL

2004-11-08 Thread Custard, Carol N.
Does anyone know tcl? Carol Custard West Interactive Corporation Programmer Analyst Direct: 402-716-0720 Ext: 116-0720 Stop Code W100-WIC-3W [EMAIL PROTECTED] -Original Message- From: Bob Showalter [mailto:[EMAIL PROTECTED] Sent: Monday, November 08, 2004 11:56 AM To: 'Joseph Paish'; perl

old problem

2004-11-08 Thread Mandar Rahurkar
This was posted some time back by gunnar. How does this exactly work ? Can someone point to help on map ? > my %myNEWhash = >map { $_, delete $myhash{$_} } grep /^1\D/, keys %myhash; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: using $. line number special variable

2004-11-08 Thread Joseph Paish
On Monday 08 November 2004 10:56, Bob Showalter wrote: > Joseph Paish wrote: > > how do you use the "line number" variable inside a while loop like i > > am trying to do below? > > > > i never get to process the first line of the file, and as a result, > > subsequent calculations are inaccurate. i

RE: rss remove item

2004-11-08 Thread Bob Showalter
Rolland, Susie (DIS) wrote: > the rss file will be created through a content management system > (Teamsite). Communication people will enter a headline and a link and > the script behind will use the wonderful XML::RSS to insert the new > item. We would like the reverse to happen also, they enter

RE: rss remove item

2004-11-08 Thread Rolland, Susie (DIS)
the rss file will be created through a content management system (Teamsite). Communication people will enter a headline and a link and the script behind will use the wonderful XML::RSS to insert the new item. We would like the reverse to happen also, they enter a headline or a link and the script

RE: using $. line number special variable

2004-11-08 Thread Bob Showalter
Joseph Paish wrote: > how do you use the "line number" variable inside a while loop like i > am trying to do below? > > i never get to process the first line of the file, and as a result, > subsequent calculations are inaccurate. it always jumps to the > second "if" statement. The way you're usi

Re: using $. line number special variable

2004-11-08 Thread Chris Devers
On Mon, 8 Nov 2004, Joseph Paish wrote: > how do you use the "line number" variable inside a while loop like i am > trying to do below? Why not go about the problem like this? #!/usr/bin/perl use strict; use warnings; open (fh1, "/path/to/file") or die ("can't open /path/to/file

RE: rss remove item

2004-11-08 Thread Bob Showalter
Rolland, Susie (DIS) wrote: > We will be inserting items daily - this will be state press releases. > They will be available for one month. But often during the month > someone will want a release removed for various reasons. So are you > saying when I need to remove an item, I have to read the w

using $. line number special variable

2004-11-08 Thread Joseph Paish
how do you use the "line number" variable inside a while loop like i am trying to do below? i never get to process the first line of the file, and as a result, subsequent calculations are inaccurate. it always jumps to the second "if" statement. thanks joe = #!/usr/bin/perl use

perl.beginners Weekly list FAQ posting

2004-11-08 Thread casey
NAME beginners-faq - FAQ for the beginners mailing list 1 - Administriva 1.1 - I'm not subscribed - how do I subscribe? Send mail to <[EMAIL PROTECTED]> You can also specify your subscription email address by sending email to (assuming [EMAIL PROTECTED] is your email address):

RE: rss remove item

2004-11-08 Thread Rolland, Susie (DIS)
Hello, We will be inserting items daily - this will be state press releases. They will be available for one month. But often during the month someone will want a release removed for various reasons. So are you saying when I need to remove an item, I have to read the whole file and rewrite every

RE: how to append test to file

2004-11-08 Thread Bob Showalter
[EMAIL PROTECTED] wrote: > Hi , > > > there is an existing file and I need to append text to it ,only thing > is I need to remove the last line of existing file and then need to > append text. > I hope I am clear.If there are 6 lines in a file I have remove 6th > line > and then need to append

how to append test to file

2004-11-08 Thread arjun.mallik
Hi , there is an existing file and I need to append text to it ,only thing is I need to remove the last line of existing file and then need to append text. I hope I am clear.If there are 6 lines in a file I have remove 6th line and then need to append the text. Thanks in advance Arjun C

Re: simple hash question

2004-11-08 Thread John W. Krahn
Ing. Branislav Gerzo wrote: Hi pals, Hello, I have simple hash question, lets we have example code: my %hash = ( 1 => 2, 2 => 3, 3 => 4, 4 => 5 ); while (my($key, $value) = each(%hash)) { print "$key => $value\n"; } how I can print all values, if I want print that in this order: 2 => 3 4 => 5 3 =>

Re: how to pass array and varaible

2004-11-08 Thread John W. Krahn
Gunnar Hjalmarsson wrote: John W. Krahn wrote: Gunnar Hjalmarsson wrote: Ajey Kulkarni wrote: Alright, but what is the reason for less time when you pass the ref? I always thought the perl optimizes by sending the ref even if you use a direct array. When you pass an array, Perl *copies* the array e

Re: simple hash question

2004-11-08 Thread Ing. Branislav Gerzo
Edward Wijaya [EW], on Tuesday, November 09, 2004 at 03:14 (+0800) wrote: EW> use Tie::IxHash module from CPAN, to preserve order in a Hash. thanks for answer, indeed, I created small subroutine, to look... sub hash_look { while ( my ($key, $value) = each(%tab_def) ) { print "$ke

Re: simple hash question

2004-11-08 Thread Edward Wijaya
use Tie::IxHash module from CPAN, to preserve order in a Hash. Regards, Edward WIJAYA SINGAPORE On Tue, 09 Nov 2004 03:06:03 +0800, Edward Wijaya <[EMAIL PROTECTED]> wrote: On Mon, 8 Nov 2004 11:59:13 +0100, Ing. Branislav Gerzo <[EMAIL PROTECTED]> wrote: Hi pals, I have simple hash question,

Re: simple hash question

2004-11-08 Thread Edward Wijaya
On Mon, 8 Nov 2004 11:59:13 +0100, Ing. Branislav Gerzo <[EMAIL PROTECTED]> wrote: Hi pals, I have simple hash question, lets we have example code: my %hash = ( 1 => 2, 2 => 3, 3 => 4, 4 => 5 ); while (my($key, $value) = each(%hash)) { print "$key => $value\n"; } how I can print all values, if I

simple hash question

2004-11-08 Thread Ing. Branislav Gerzo
Hi pals, I have simple hash question, lets we have example code: my %hash = ( 1 => 2, 2 => 3, 3 => 4, 4 => 5 ); while (my($key, $value) = each(%hash)) { print "$key => $value\n"; } how I can print all values, if I want print that in this order: 2 => 3 4 => 5 3 => 4 1 => 2 thanks for any ideas.

Re: how to pass array and varaible

2004-11-08 Thread Gunnar Hjalmarsson
John W. Krahn wrote: Gunnar Hjalmarsson wrote: Ajey Kulkarni wrote: Alright, but what is the reason for less time when you pass the ref? I always thought the perl optimizes by sending the ref even if you use a direct array. When you pass an array, Perl *copies* the array elements to @_, so you get

Re: How to get text after comment

2004-11-08 Thread Randy W. Sims
[EMAIL PROTECTED] wrote: Hi, I need to capture whole text after "#" character in each line from a file.The below script is not working can any one suggest the correct thing plz.. Your regexp: if ($line1 =~ /^#\(.*\)/) matches any string that: begins with '#' followed by a literal '(' followed

How to get text after comment

2004-11-08 Thread arjun.mallik
Hi, I need to capture whole text after "#" character in each line from a file.The below script is not working can any one suggest the correct thing plz.. chomp($line1); if ($line1 =~ /^#\(.*\)/) { #Hash array will remove the duplicates entries of

Re: how to pass array and varaible

2004-11-08 Thread Ajey Kulkarni
John and Gunnar, Thanks a ton for clarification. ~A On Sun, 7 Nov 2004, John W. Krahn wrote: > Gunnar Hjalmarsson wrote: > > > > Ajey Kulkarni wrote: > >> > >> Alright, but what is the reason for less time when you pass the ref? > >> I always thought the perl optimizes by sending the ref even if

Re: Deleting File.........roy

2004-11-08 Thread John W. Krahn
roime puniran wrote: Below is my script that read the content of flow directory..I want to delete each file after reading..But it failed...What's the problem?...can anyone help me ... Yes, read the documentation for readdir() and if you still don't understand the problem then post here again. per