Gents,
Sorry for my delayed response. Thank you for your suggestions. Based on your
feedback, I made the following changes, and the hook is now working as expected.
Thanks a million!
my $taskstate = $taskEntity->GetFieldValue(state)->GetValue();
$session->OutputDebugString ("Task's state
> "CA" == CM Analyst writes:
CA> my $taskEntity = $session->GetEntity ('almtask', $_);
that gets a perl object in $taskEntity.
CA> $taskEntity->GetFieldValue(state)->GetValue();
where is the value being assigned to? $taskEntity is not being modified
or set in that line of code. it is j
On 5/18/11 Wed May 18, 2011 5:06 PM, "CM Analyst"
scribbled:
> Hi,
>
> In this code, the intent is to iterate through the tasks and modify the ID
> field. The Task record (entity) should not be modified if it's state equals
> "Completed".
>
> When I run this routine, there are two problems:
Hi,
In this code, the intent is to iterate through the tasks and modify the ID
field. The Task record (entity) should not be modified if it's state equals
"Completed".
When I run this routine, there are two problems:
Problem 1) The "if" statement is not being evaluated. The record (even if it
On Monday 27 September 2010 10:17:16 HACKER Nora wrote:
> Hi Shlomi,
>
> > You shouldn't modify an array (@arr1 in this case) while iterating
>
> over it using
>
> > foreach. Otherwise, the results will be unpredictable. One option to
> > overcome it is to do:
> >
> > [code]
> > my @arr1_copy =
HACKER Nora wrote:
Hello list,
Hello,
Could someone please explain why this test script:
my @arr1 = qw(one two three);
my @arr2 = qw(1 2 3);
foreach my $arr1 ( @arr1 ) {
print "Arr1: $arr1\n";
foreach my $arr2 ( @arr2 ) {
print "Arr2: $arr2\n";
Hi Shlomi,
> You shouldn't modify an array (@arr1 in this case) while iterating
over it using
> foreach. Otherwise, the results will be unpredictable. One option to
> overcome it is to do:
>
> [code]
> my @arr1_copy = @arr1;
>
> while (defined (my $arr1_elem = shift(@arr1_copy))) {
> # Do
On Monday 27 September 2010 09:40:43 HACKER Nora wrote:
> Hi Michael,
>
>
>
> Thanks for your fast reply. I didn't realize that the shift is of
> immediate effect not only to the array but also to the current element
> of iteration in the loop itself.
>
It may be. However, that is besides the
On Mon, Sep 27, 2010 at 9:19 AM, HACKER Nora wrote:
> Hello list,
>
> Could someone please explain why this test script:
>
> my @arr1 = qw(one two three);
> my @arr2 = qw(1 2 3);
>
> foreach my $arr1 ( @arr1 ) {
>print "Arr1: $arr1\n";
>foreach my $arr2 ( @arr2 ) {
>
ember 2010 09:34
An: HACKER Nora
Betreff: Re: Problem with foreach loop
When $arr2 eq '2', you shift 'one' off @arr1, but you're still working
with$ arr[0], which is now 'two'. When the second foreach ends, it
moves onto $arr1[1], which is 'three'
Hi Nora,
On Monday 27 September 2010 09:19:46 HACKER Nora wrote:
> Hello list,
>
> Could someone please explain why this test script:
>
> my @arr1 = qw(one two three);
> my @arr2 = qw(1 2 3);
>
> foreach my $arr1 ( @arr1 ) {
> print "Arr1: $arr1\n";
> foreach my $arr2 ( @arr2 )
ndet: Montag, 27. September 2010 09:20
> An: beginners@perl.org
> Betreff: Problem with foreach loop
>
> Hello list,
>
> Could someone please explain why this test script:
>
> my @arr1 = qw(one two three);
> my @arr2 = qw(1 2 3);
>
> foreach my $arr1 ( @arr1 ) {
>
Hello list,
Could someone please explain why this test script:
my @arr1 = qw(one two three);
my @arr2 = qw(1 2 3);
foreach my $arr1 ( @arr1 ) {
print "Arr1: $arr1\n";
foreach my $arr2 ( @arr2 ) {
print "Arr2: $arr2\n";
if ( $arr2 eq '2' ) {
Andrej Kastrin wrote:
> John W. Krahn wrote:
>
>> Andrej Kastrin wrote:
>>>
>>> I want to count words in the following file:
>>> --
>>> ID- some number
>>> TI- some text BB
>>> AB- some text A BB
>>> AU- some text
>>>
>>> ID- some number
>>> TI- some GGG text
>>> AB- s
John W. Krahn wrote:
Andrej Kastrin wrote:
Hello dears,
Hello,
I want to count words in the following file:
--
ID- some number
TI- some text BB
AB- some text A BB
AU- some text
ID- some number
TI- some GGG text
AB- some text GGG
AU- some text
ID- som
Andrej Kastrin wrote:
> Hello dears,
Hello,
> I want to count words in the following file:
> --
> ID- some number
> TI- some text BB
> AB- some text A BB
> AU- some text
>
> ID- some number
> TI- some GGG text
> AB- some text GGG
> AU- some text
>
> ID- some number
>
Hello dears,
I want to count words in the following file:
--
ID- some number
TI- some text BB
AB- some text A BB
AU- some text
ID- some number
TI- some GGG text
AB- some text GGG
AU- some text
ID- some number
TI- some text
AB- some text Z
AU- some text
--
please try this one:
#tested in linux
#!/usr/bin/perl -w
use strict;
my @names = qw( fred barney betty wilma dino );
print "Enter some numbers 1 to 5, one per line, then press ctrl D:\n";
chomp (my @numbers = );
foreach (@numbers){
if ($_ < 6){
print "$names[$_ - 1]\n";
}else{
Hakim Singhji wrote:
Hi All,
Hello,
This is my first post at beginners. I am working with Learning Perl
(Llama!) and I like to tweak some of the problems and create more
creative solutions to some things. I cannot figure out why this is not
working. Can anyone point out an error in my code.
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Hi All,
This is my first post at beginners. I am working with Learning Perl
(Llama!) and I like to tweak some of the problems and create more
creative solutions to some things. I cannot figure out why this is not
working. Can anyone point out an erro
Thank you Connie for helping me on this, it was fixed
by below comment you made :)))
>> SOA: while ()
>> {
>> chomp;
>
>You don't need to chomp it, or you don't need $/ at
>last of the next line.
Priss
__
Do You Yahoo!?
Everything you'll
>
> Wonder if someone could help me, I am trying to write
> a script to pulls out all the machine names from a
> revese DNS file, some how, my script will only print
> out the machine names with 1.x.x.in-addr.arpa
>
> $nslookup = '/usr/local/bin/nslookup';
> $dig = '/usr/local/bin/dig';
>
Hiya,
Wonder if someone could help me, I am trying to write
a script to pulls out all the machine names from a
revese DNS file, some how, my script will only print
out the machine names with 1.x.x.in-addr.arpa
$nslookup = '/usr/local/bin/nslookup';
$dig = '/usr/local/bin/dig';
@ZONES = qw
23 matches
Mail list logo
