In another list, I am baffled by the instability of a Perl script that freezes
after some time for a user. What can be done to run a Perl script in a debug
like mode such that all system calls could be logged so that one could see what
was attempted for execution by the script as it hung?
Thank
*What not just like below? As long as you have unique key, it would
retain all the information.*
$ex_psc{"$excpsc"} = "$keyword";
$ex_psc{"$excpsc"} is superfluous because *all* hash keys are strings.
perldoc -q quoting
What’s wrong with always quoting "$vars"?
John
Thank you
Richard Lee wrote:
open EXCLUDE, '<', $exclude_psc or die "Could not open
'$exclude_psc' $!";
while ( ) {
next if $. == 1; # exclude header
chomp;
my ($excpsc,$keyword) = split /\|/;
%ex_psc = (exclpsc=>$excpsc,exkeyword =>$keyword );
*What not just like below? As lo
open EXCLUDE, '<', $exclude_psc or die "Could not open
'$exclude_psc' $!";
while ( ) {
next if $. == 1; # exclude header
chomp;
my ($excpsc,$keyword) = split /\|/;
%ex_psc = (exclpsc=>$excpsc,exkeyword =>$keyword );
*What not just like below? As long as you have unique
Bobby wrote:
Could someone please tell me what's wrong with my use of the
substr function below? I keep on getting "use of uninitialized
value in substr". Thanks.
$newpsc = substr($PSC,0,$count);
Here's the complete code:
#!/usr/bin/perl
use strict;
use warnings;
my $exclude_psc = 'exclude_
[..snip..]
>
> while () {
> my ($base_no, $name, $description, $PSC) = split
> /\|/;
>
Are you absolutely sure that $PSC is getting a value
here? If you "print $PSC" do you get a value? It
might also help to see the data stream...
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additio
Sorry, i've left out some details in my previous email. I've isolated the code
and it works without the substr function. Thanks in advance for any
suggestions.
Bobby <[EMAIL PROTECTED]> wrote: Could someone please tell me what's wrong with
my use of the substr function below? I keep on getting
Could someone please tell me what's wrong with my use of the substr function
below? I keep on getting "use of uninitialized value in substr". Thanks.
$newpsc = substr($PSC,0,$count);
Here's the complete code:
#!/usr/bin/perl
use strict;
use warnings;
my $exclude_psc = 'exclude_psc.txt';
my $c
