Ronald'; [EMAIL PROTECTED]
Subject: RE: Perl -w odd error
Yacketta, Ronald wrote:
> The problem is with the "use" statement use Fatal qw(open close); For
> some reason if I do
>
> use Fatal qw(open close);
>
> I get the error, but if I do a
> use Fatal;
>
Yacketta, Ronald wrote:
> The problem is with the "use" statement use Fatal qw(open close); For
> some reason if I do
>
> use Fatal qw(open close);
>
> I get the error, but if I do a
> use Fatal;
>
> I don't...
1. The idea behind Fatal is that you can omit the "or die..." stuff from
your open(
riday, June 13, 2003 10:45
To: 'Yacketta, Ronald'; [EMAIL PROTECTED]
Subject: RE: Perl -w odd error
Yacketta, Ronald wrote:
> Rob,
>
> Line 151 _IS_ @FILE=; and here is the entire block of code
>
> sub OTTExecute()
> {
> system($ExecCmd);
>
, 2003 10:45
To: 'Yacketta, Ronald'; [EMAIL PROTECTED]
Subject: RE: Perl -w odd error
Yacketta, Ronald wrote:
> Rob,
>
> Line 151 _IS_ @FILE=; and here is the entire block of code
>
> sub OTTExecute()
> {
> system($ExecCmd);
> $success = $? >> 8
Yacketta, Ronald wrote:
> Rob,
>
> Line 151 _IS_ @FILE=; and here is the entire block of code
>
> sub OTTExecute()
> {
> system($ExecCmd);
> $success = $? >> 8;
> printNotice ("$success\n");
>
> if ( ! $success )
> {
> my ($record_count, @
on `hostname`";
}
}
_EXACT_ error:
Name "main::CNTFILE" used only once: possible typo at ./OrderTakingTree.pl
line 151.
-Original Message-
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Friday, June 13, 2003 9:52
To: [EMAIL PROTECTED]
Subject: Re: Perl -
Ronald Yacketta wrote:
> Folks,
>
> I have the following block of code:
>
> open (CNTFILE, "${OUTPUTFILE}") or die "Can't open ${OUTPUTFILE} :
> $!";
> @FILE=;
> close(CNTFILE);
>
> Which reports this warning:
>
> Name "main::CNTFILE" used only once: possible typo at ./Order
That goes against everything perl ;) why not _slurp_ the entire file in
(which is 100% perl legal) (@FILE=;)
-Ron
-Original Message-
From: Miller, Joseph S [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 12, 2003 17:25
To: Yacketta, Ronald; [EMAIL PROTECTED]
Subject: RE: Perl -w odd
You need to do a loop of some sort and extract the data from the file try:
open (CNTFILE, "${OUTPUTFILE}") or die "Can't open ${OUTPUTFILE} : $!";
for ($i= 0; ; $i++){
$file_date = $_;
$FILE[$i]= $file_data;
}
close(CNTFILE);
-Original Message-
From: Yacketta, Ronald [mai
Yacketta, Ronald <[EMAIL PROTECTED]> wrote:
: I have the following block of code:
:
: open (CNTFILE, "${OUTPUTFILE}") or die "Can't open
: ${OUTPUTFILE} :
: $!";
: @FILE=;
: close(CNTFILE);
:
: Which reports this warning:
:
: Name "main::CNTFILE" used only once: possib
10 matches
Mail list logo
