Re: notes perl problem

Welcome to Perl Monks cybär,

Having said that I hope you brought a thick skin because I have to chastize you. The code you posted is not your own. This document is from Here If you can't bother to write it yourself and understand it then how can you expect us to put the effort in to debug it??

Sorry to rant on you but it takes time to look this stuff up and cross check what I post. Then half way through I find that the poster didn't write the code. Oh, well. Since I already did the work and you've been suitably chastized. Here are a few of the errors.

This line does not do what you think:

my ($Version) = ($Notes->{NotesVersion} =~ /\s*(.*\S)\s*$/);

###()=>$Version now contains the number of matches. Probably one.
[download]

I can't be sure about this line as I don't have the documents

$Inbox_view = $Database -> GetView('($Inbox)');

It's passing a string not a reference to an array. I bet the poster doesn't have the documentation either.

I would take this line out altogether:

last unless $Index < 10;

Do yourself a favor cybär and read the documentation for what you are trying to do, write some code, then post it here for comment. You'll find us, if not nice then, at least, helpfull if you do this.

s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

Comment on Re: notes perl problem Select or Download Code

Replies are listed 'Best First'.
Re^2: notes perl problem by polettix (Vicar) on Apr 22, 2005 at 17:33 UTC
I agree with you 97%. Here's where I don't agree: This line does not do what you think: `my ($Version) = ($Notes->{NotesVersion} =~ /\s(.\S)\s$/); ###()=>$Version now contains the number of matches. Probably one.` [download] The evaluation is in list context(`$Version` is inside round parens), so a list of group matches is returned - as an example: `#!/usr/bin/perl use strict; use warnings; my $teststr = "ciao a tutti"; my ($sep) = ($teststr =~ /\w+ (\w+) \w+/); print "result: [$sep]\n"; __END__ result: [a]` [download] Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))') Don't fool yourself.*	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: notes perl problem
by polettix (Vicar) on Apr 22, 2005 at 17:33 UTC

This line does not do what you think:

   my ($Version) = ($Notes->{NotesVersion} =~ /\s*(.*\S)\s*$/);

   ###()=>$Version now contains the number of matches. Probably one.
[download]

$Version

#!/usr/bin/perl
use strict;
use warnings;

my $teststr = "ciao a tutti";
my ($sep) = ($teststr =~ /\w+ (\w+) \w+/);
print "result: [$sep]\n";

__END__
result: [a]
[download]

Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

Don't fool yourself.

[reply]
[d/l]
[select]