On 13 August 2002 04:44 Janek Schleicher [mailto:[EMAIL PROTECTED]] wrote:
Kirby_sarah wrote at Mon, 12 Aug 2002 23:28:44 +0200:
line 344: $policyCount = split (/\t/, $violations{$vID});
Another way to count the parts is
my $count = 1;
while ($violations{$vID} =~ /\t/g) { $count++ }
When doing a split and no array present to the left of = then would
go to @_ when wanted to see what you had just split. It is saying you
should not do that, but provide an array reference for the split.
Wags ;) ps I believe that it is what it is saying.
-Original Message-
'deprecated' means that in the future, this functionality is expected to be
removed from the programming language.
It generally implies that you should do what you are doing in a different
way so that in the future your code will still work.
In this case, it looks like you are trying to assign
read:
perldoc -f split
split /PATTERN/,EXPR,LIMIT
split /PATTERN/,EXPR
split /PATTERN/
split Splits a string into a list of strings and returns
that list. By default, empty leading fields are
preserved, and empty trailing ones are deleted.
On Mon, Aug 12, 2002 at 05:40:18PM -0400, Nikola Janceski wrote:
you are using split in scalar context. Anyone know what's the solution to
get around this? other than turning off warnings.
-Original Message-
Use of implicit split to @_ is deprecated at UNIX_prelim.pl line 344.
On Tue, Aug 13, 2002 at 12:06:50AM +0200, Paul Johnson wrote:
$policyCount = $violations{$vID} =~ tr/\t//;
Oops. I forgot the + 1.
$policyCount = $violations{$vID} =~ tr/\t// + 1;
Proofreading is so much easier once it's been sent.
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
This works for me.
Thanks for everyone's remarks and helpful advice.
-Sarah
-Original Message-
From: Paul Johnson [mailto:[EMAIL PROTECTED]]
Sent: Monday, August 12, 2002 6:14 PM
To: Nikola Janceski
Cc: 'Kirby_Sarah'; '[EMAIL PROTECTED]'
Subject: Re: deprewhat?
On Tue, Aug 13
Kirby_sarah wrote at Mon, 12 Aug 2002 23:28:44 +0200:
line 344: $policyCount = split (/\t/, $violations{$vID});
Another way to count the parts is
my $count = 1;
while ($violations{$vID} =~ /\t/g) { $count++ }
Greetings,
Janek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
