imap module

2009-06-23 Thread Andreas Moroder
Hello, does a IMAP library exist that supports this functionality: connect to the IMAP server as administrator and create a mail with a attachment in the drafts folder of a specified user. I searched cpan, but from the documentation I dit not find out if the libraries does what I want. Than

Re: AW: perldoc perlboot

2009-06-23 Thread Randal L. Schwartz
> "Thomas" == Thomas Bätzler writes: Thomas> Now $class is 'Dormouse', but the current package is 'Mouse' and the Thomas> explanation from perlboot makes sense: $class->SUPER::speak() invokes Thomas> Animal::speak() and not Mouse::speak(). Exactly, because if it didn't, it'd be an infinite l

Re: question about constants

2009-06-23 Thread Gunnar Hjalmarsson
Roman Makurin wrote: On Wed, Jun 24, 2009 at 03:02:00AM +0200, Gunnar Hjalmarsson wrote: Roman Makurin wrote: use constant { A => 1, B => 2, C => 3 }; @a = (1, 2, 3); @b = (A, B, C); # first loop while(my $i = shift @a) { print $i, $/ } # second loop while(my

Re: question about constants

2009-06-23 Thread Steve Bertrand
Roman Makurin wrote: > On Wed, Jun 24, 2009 at 03:02:00AM +0200, Gunnar Hjalmarsson wrote: >> Roman Makurin wrote: >>> use constant { >>> A => 1, >>> B => 2, >>> C => 3 }; >>> >>> @a = (1, 2, 3); >>> @b = (A, B, C); >>> >>> # first loop >>> while(my $i = shift @a) { >>> print $i, $/

Re: question about constants

2009-06-23 Thread Roman Makurin
On Wed, Jun 24, 2009 at 03:02:00AM +0200, Gunnar Hjalmarsson wrote: > Roman Makurin wrote: >> >> use constant { >> A => 1, >> B => 2, >> C => 3 }; >> >> @a = (1, 2, 3); >> @b = (A, B, C); >> >> # first loop >> while(my $i = shift @a) { >> print $i, $/ >> } >> >> # second loop >>

Re: question about constants

2009-06-23 Thread Gunnar Hjalmarsson
Roman Makurin wrote: use constant { A => 1, B => 2, C => 3 }; @a = (1, 2, 3); @b = (A, B, C); # first loop while(my $i = shift @a) { print $i, $/ } # second loop while(my $i = shift @b) { print $i, $/ } My question is why the first loop work as expecte

question about constants

2009-06-23 Thread Roman Makurin
Hi All today i spend a lot of time with following problem. part of code: use constant { A => 1, B => 2, C => 3 }; @a = (1, 2, 3); @b = (A, B, C); # first loop while(my $i = shift @a) { print $i, $/ } # second loop while(my $i = shift @b) { print $i, $/

Re: question about eval usage

2009-06-23 Thread Jenda Krynicky
From: Paul Johnson > On Tue, Jun 23, 2009 at 06:35:26PM +0200, Jenda Krynicky wrote: > > From: Roman Makurin > > > On Tue, Jun 23, 2009 at 12:46:33PM +0200, Jenda Krynicky wrote: > > > > From: Roman Makurin > > > > > Just looked throught some standart perl modules and found > > > > > something c

Re: ref() or ! ref()

2009-06-23 Thread Telemachus
On Mon Jun 22 2009 @ 11:10, Steve Bertrand wrote: > I've got a relatively decent understanding of how references work in > Perl (syntax-wise, especially when/how to de-ref), but I'd now like to > ask when to use them. > > Obviously memory allocation isn't an issue anymore, so when exactly > should

Re: question about eval usage

2009-06-23 Thread Roman Makurin
On Tue, Jun 23, 2009 at 07:54:54PM +0200, Paul Johnson wrote: > > >From the docs: http://perldoc.perl.org/perlmodstyle.html#Version-numbering > Big thanks. -- If you think of MS-DOS as mono, and Windows as stereo, then Linux is Dolby Digital and all the music is free... -- To unsubscribe, e

Re: question about eval usage

2009-06-23 Thread Paul Johnson
On Tue, Jun 23, 2009 at 06:35:26PM +0200, Jenda Krynicky wrote: > From: Roman Makurin > > On Tue, Jun 23, 2009 at 12:46:33PM +0200, Jenda Krynicky wrote: > > > From: Roman Makurin > > > > Just looked throught some standart perl modules and found > > > > something cryptic to myself: > > > > > > >

Re: question about eval usage

2009-06-23 Thread Jenda Krynicky
From: Roman Makurin > On Tue, Jun 23, 2009 at 12:46:33PM +0200, Jenda Krynicky wrote: > > From: Roman Makurin > > > Just looked throught some standart perl modules and found > > > something cryptic to myself: > > > > > > package Module; > > > > > > $Module::VERSION = '1.0'; > > > $Module::VERSI

Re: question about eval usage

2009-06-23 Thread Roman Makurin
On Tue, Jun 23, 2009 at 12:46:33PM +0200, Jenda Krynicky wrote: > From: Roman Makurin > > Just looked throught some standart perl modules and found > > something cryptic to myself: > > > > package Module; > > > > $Module::VERSION = '1.0'; > > $Module::VERSION = eval $Module::VERSION; > > > > Wh

Reading and Appending to a file

2009-06-23 Thread Beckett Paul Mr (ITCS)
I am experiencing some problems moving a script from Solaris running Perl 5.8.5, to RHEL4 Linux running Perl 5.8.8. The below script works as expected on the Solaris box, reporting the number of lines of the file, but on the RHEL4 box it reports 0 irrespective of the number of lines in the file.

Re: question about eval usage

2009-06-23 Thread Jenda Krynicky
From: Roman Makurin > Just looked throught some standart perl modules and found > something cryptic to myself: > > package Module; > > $Module::VERSION = '1.0'; > $Module::VERSION = eval $Module::VERSION; > > Why eval part is needed here ? It's not. What module was that? Maybe you skipped some

question about eval usage

2009-06-23 Thread Roman Makurin
Hi all! Just looked throught some standart perl modules and found something cryptic to myself: package Module; $Module::VERSION = '1.0'; $Module::VERSION = eval $Module::VERSION; Why eval part is needed here ? Thanks PS: sorry for my english -- If you think of MS-DOS as mono, and Windows as

AW: ref() or ! ref()

2009-06-23 Thread Thomas Bätzler
Steve Bertrand wrote: > I've got a relatively decent understanding of how references work in > Perl (syntax-wise, especially when/how to de-ref), but I'd now like to > ask when to use them. > > Obviously memory allocation isn't an issue anymore, so when exactly > should refs be used, and in what

RE: Query related to PAR::Packer

2009-06-23 Thread sanket vaidya
-Original Message- From: Anirban Adhikary [mailto:anirban.adhik...@gmail.com] Sent: Saturday, June 20, 2009 9:26 PM To: beginners@perl.org Subject: Query related to PAR::Packer >>Hi List >I need to run some applications written entirely in perl in some systems >where I dont have an acce