I am sorry David, it just seems like I am having trouble communicating
clearly. We are apparently in a disagreement, but your points are not at all
what I wanted to explain... I'll try again.
you should test it yourself. i am not sure how good you are
with Perl and i
don't want to sound like
Hello Joseph,
One thing I would request is that you trim off any material to which you
are not
responding from old posts. This helps keep bandwidth and storage needs
down.
I'll keep that in mind. I usually don't keep all the thread of replies that
Outlook ( grrr) keeps at the bottom, seems
Hello Joseph, David,
A stronger argument has to do with mindset. The || operator is an
expression evaluation operator, appropriate to mathematical or
paramathematical
expressions. The context really calls for a flow-control operator, or.
Thanks for making my point better than I could,
Guay Jean-Sbastien wrote:
I am sorry David, it just seems like I am having trouble communicating
clearly. We are apparently in a disagreement, but your points are not at
all what I wanted to explain... I'll try again.
i totally understand what you are saying and like i said before, your point
[EMAIL PROTECTED] wrote:
Yet another great explanation..
What explanation? I see niothing above this. Please do not top-post when
posting to this list. Instead, follow the material to which you are directly
responding with your response, then trim any extraneous material. Most of us
keep
Guay Jean-Sébastien wrote:
Hello Derek,
Guay,
Err, my first name is Jean-Sebastien.
Hi Jean-Sebastien,
My last name is Guay. French-language
people have a bad habit to put the last name first, as in Guay,
Jean-Sebastien... So I understand why this is a bit confusing.
Thanks for the
david wrote:
Guay Jean-Sébastien wrote:
open (CRITICALSERVERS, $crout) || die can't open file \n: $!;
As I said, you should replace || by or in the above line. See the
precedence rules in perldoc perlop for details.
why do you think so? is there any problem in the above line?
Good
Guay Jean-Sébastien wrote:
There is no problem syntactically. But there is a problem with the
precdence. If you ever have another operation on either the left or right
side of the || operator, the || operator will bind tighter than the other
operation. So for example, if you do:
my $errors
On Sun, Apr 04, 2004 at 01:28:42PM -0700, R. Joseph Newton wrote:
Guay Jean-Sébastien wrote:
my $errors = 0;
open (CRITICALSERVERS, $crout) || $errors += 2;
that will translate to:
my $errors = 0;
( open (CRITICALSERVERS, $crout) || $errors ) += 2;
Nope.
$ perl -MO=Deparse,-p
Paul Johnson wrote:
On Sun, Apr 04, 2004 at 01:28:42PM -0700, R. Joseph Newton wrote:
Guay Jean-Sébastien wrote:
my $errors = 0;
open (CRITICALSERVERS, $crout) || $errors += 2;
that will translate to:
my $errors = 0;
( open (CRITICALSERVERS, $crout) || $errors ) += 2;
, then
print out those specific elements. Do you have any thoughts?
thanks!
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
614-566-4145
Guay Jean-Sébastien [EMAIL PROTECTED]
04/01/2004 05:10 PM
To: Perl Beginners [EMAIL PROTECTED]
cc:
Subject:RE: using
. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
[EMAIL PROTECTED]
04/01/2004 06:02 PM
To: [EMAIL PROTECTED], [EMAIL PROTECTED]
cc:
Subject:Re: using strict
In a message dated 4/1/2004 5:03:40 PM Eastern Standard Time,
[EMAIL PROTECTED] writes:
People
[EMAIL PROTECTED] wrote:
Yet another great explanation... thank you! But I still need to know how
to print each specific element # along with its data?
Is this the right way to go for storing each line in its own element???
while $line FILEHANDLE
my @tsm = FILEHANDLE
foreach $_ (@tsm)
and getting one line at a time until we get to the end of the
file.
Hope this helps,
Jean-Sébastien
-Message d'origine-
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Date: 2 avril, 2004 10:12
À: Guay Jean -Sébastien
Cc: Perl Beginners
Objet: RE: using strict
Guay,
ooops. that would
Guay Jean-Sbastien wrote:
open (CRITICALSERVERS, $crout) || die can't open file \n: $!;
As I said, you should replace || by or in the above line. See the
precedence rules in perldoc perlop for details.
why do you think so? is there any problem in the above line?
david
--
Guay Jean-Sbastien wrote:
open (CRITICALSERVERS, $crout) || die can't open file \n: $!;
As I said, you should replace || by or in the above line. See the
precedence rules in perldoc perlop for details.
why do you think so? is there any problem in the above line?
There is no problem
construct
instead of the array assuming memory is not an issue?
Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams
Guay Jean-Sébastien [EMAIL PROTECTED]
04/02/2004 02:20 PM
To: Perl Beginners [EMAIL PROTECTED]
cc:
Subject:RE: using strict
Hello Derek
Hello Derek,
can I email you from know on??? : ) You are so through! Thank you!
No, I would prefer that you always reply to the list. First reason is that
other beginners can benefit from our exchange (and the mails end up in a
searchable archive), second is that if I'm not there (or for
Guay Jean-Sbastien wrote:
Guay Jean-Sbastien wrote:
open (CRITICALSERVERS, $crout) || die can't open file \n: $!;
As I said, you should replace || by or in the above line. See the
precedence rules in perldoc perlop for details.
why do you think so? is there any problem in the above
Hello Derek,
When using strict, the error message should point you to the line where the
error is. It's usually pretty darn good at pointing the right line. In this
case, I bet it's this one:
while ( defined($line = CRITICALSERVERS) ) {
There is no declaration of the $line variable. Try
--As of Thursday, April 1, 2004 5:01 PM -0500, [EMAIL PROTECTED] is
alleged to have said:
what is a soft reference?
what is a bareword?
why is strict disallowing a compile here When I comment out strict
the syntax checks outs as ok!???
how do I display each element # with its corresponding
On 4/1/2004 5:01 PM, [EMAIL PROTECTED] wrote:
People of the Perl,
from my understanding strict disallows soft references, ensures that all
variables are declared before usage and disallows barewords except for
subroutines.
what is a soft reference?
what is a bareword?
why is strict
Does the following turn off strict for a vars?
no strict vars;
Could you also turn off strict for other things besides vars, refs and subs? Say for
a subroutine (for example).
Just curious. I've run into situations where I've come across badly maintained code
and would like to do this for
In a message dated 4/1/2004 5:03:40 PM Eastern Standard Time,
[EMAIL PROTECTED] writes:
People of the Perl,
from my understanding strict disallows soft references, ensures that all
variables are declared before usage and disallows barewords except for
subroutines.
what is a soft reference?
[EMAIL PROTECTED] wrote:
Does the following turn off strict for a vars?
no strict vars;
Could you also turn off strict for other things besides vars, refs and subs? Say for a subroutine (for example).
Pragma are block/file scoped similar to a lexical. To answer your
question below, yes you
just define all vars in ur conf file with a scope reslution
eg $global::test = 'hello';
Octavian Rasnita wrote:
Hi all,
Is it possible to use use strict; if I get the variables from a
configuration file?
I've tried:
use strict;
require f:/xxx/config.txt;
#In the configuration
Bob,
Exactly what does our do? I understand my and even local but have yet
to grasp the our concept.
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, June 11, 2002 9:12 AM
To: 'Octavian Rasnita'; [EMAIL PROTECTED]
Subject: RE: Using strict
-Original Message-
From: Camilo Gonzalez [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, June 11, 2002 10:16 AM
To: 'Bob Showalter'; 'Octavian Rasnita'; [EMAIL PROTECTED]
Subject: RE: Using strict and configuration files
Bob,
Exactly what does our do? I understand my and even
So the following are equivalent:
use vars qw(foo)
our $foo =
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, June 11, 2002 9:17 AM
To: 'Camilo Gonzalez'; [EMAIL PROTECTED]
Subject: RE: Using strict and configuration files
-Original Message
-Original Message-
From: Camilo Gonzalez [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, June 11, 2002 10:21 AM
To: 'Bob Showalter'; Camilo Gonzalez; [EMAIL PROTECTED]
Subject: RE: Using strict and configuration files
So the following are equivalent:
use vars qw(foo)
our $foo
Teddy --
...and then Octavian Rasnita said...
%
% Hi all,
Hello!
%
% Is it possible to use use strict; if I get the variables from a
% configuration file?
%
% I've tried:
%
% use strict;
% require f:/xxx/config.txt;
Have you tried
use f:/xxx/config.txt;
instead? From my reading of
I had this same question answered on the perl beginners list. Object
oriented programming was recommended. Someday I want to learn about
that
But for now what I did was give the configuration file and the scripts
that use it the same package name and then I defined these variables as
global
Hi,
This is how I do it.
#!/usr/bin/perl -wT
use strict;
my $conf;
unless ($conf = do ('/path/to/config.pl')) {
die (Could not open file);
}
print $conf-{'var1'}, \n;
-
Then in a file called config.pl
{
var1 = one,
var2 = two
}
-
The unless part is just to check that the
$sth = $dbh-prepare(select ID from maintenance);
this should read:
my($sth) = $dbh-prepare(select ID from maintenance);
That didn't seem to work for me for some reason.
Another question - how do I apply strict to the lines below. And how do I just avoid
the private or my declaration by
-Original Message-
From: Robert Beau Link [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, April 30, 2002 8:27 PM
To: [EMAIL PROTECTED]
Subject: using strict and -w
... And where might I have found that answer within
perldoc? I tried perldoc -q strict and got No documentation for
Rob,
use strict; shouldn't really affect the syntax of any DBI handle or statement. I would
help if you included an example for us to have look at here.
-Original Message-
From: Rob Roudebush[EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Date: Mon Apr 29 18:15:23 PDT 2002
Subject: Using strict
Rob Roudebush [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
I've seemed to have narrowed down the problem to $sth variable, I guess I
can't declare this as a private variable because it prepares it and needs
to have it at least local or global to access it?
On Tuesday, April 30, 2002, at 05:27 , Robert Beau Link wrote:
[..]
#!/usr/bin/perl -w
use strict;
print Number, please...;
$alpha = STDIN;
print Another, please...;
$beta = STDIN;
$sum= $alpha + $beta;
$diff = $alpha - $beta;
$product = $alpha * $beta;
$quotient = $alpha / $beta;
-Original Message-
From: Dermot Paikkos [mailto:[EMAIL PROTECTED]]
Subject: Using strict and getting return values
Hi Gurus,
Well, I'm definitely not a guru, but I think I might be able to help... :)
I am trying to get tidy with my scripts and want to use Strict but am
having
Deborah Strickland wrote:
Hi,
I can't find the answer to this in any of my many Perl books so I'm
asking you. I want to do 'use strict' but when I also use it with a file
handle I get an error. How can I declare a file handle variable such
that 'use strict' won't generate an error?
This
Fortunately or unfortunately, you can't print to files just by using $file
as a filehandle. You need to open the file first.
CODE
foreach $k (sort keys (%all_genes)) {
for (1..5){
if ($k =~ /[$_]g/){
$file = CHR$_;
--- Stephen Nelson [EMAIL PROTECTED] wrote:
Fortunately or unfortunately, you can't print to files just by using
$file
as a filehandle. You need to open the file first.
CODE
foreach $k (sort keys (%all_genes)) {
for (1..5){
if ($k =~ /[$_]g/){
On Wed, Jun 27, 2001 at 04:54:17PM -0700, Paul wrote:
Another trick -- use FileHandle and put them into an array.
my @FILE;
for (1..5) {
$FILE[$_] = new FileHandle CHR$_ or die CHR$_: $!;
}
now you can say:
print $FILE[$_] $k\t$all_genes{$k}\n;
This doesn't actually
On Wed, 27 Jun 2001, Hans Holtan wrote:
I forgot to mention that I did open the output files earlier in the
program, ie CHR1, CHR3 ... CHR5.
But you can't say $file = CHR1, beacuse then you are creating a symbolic
reference to a filehandle. Very bad. Do this instead:
$file = *CHR1;
Then
On Wed, 27 Jun 2001, Brett W. McCoy wrote:
But you can't say $file = CHR1, beacuse then you are creating a symbolic
reference to a filehandle. Very bad. Do this instead:
$file = *CHR1;
Then you can properly use your filehandle. What you really want to do is
create an array of open
45 matches
Mail list logo
