[EMAIL PROTECTED] wrote:
All,
Here is my code:
use strict;
use warnings;
my $dev = qw/original1/;
my $dev1 = qw/clinical1/;
my $fout = qq(/usr/local/log/fuji.out);
open (OUT, +$fout) || die unable to open file: $fout $!;
open (FOO, samcmd a $dev 2\1 | ) || die unable
[EMAIL PROTECTED] wrote:
All,
Here is my code:
use strict;
use warnings;
my $dev = qw/original1/;
my $dev1 = qw/clinical1/;
my $fout = qq(/usr/local/log/fuji.out);
open (OUT, +$fout) || die unable to open file: $fout $!;
open (FOO, samcmd a $dev 2\1 | ) || die unable
Subject
PMRE: print with +split
Subject PMRE: print with +split
[EMAIL PROTECTED] wrote:
All,
Here is my code:
use strict;
use warnings;
my $dev = qw/original1/;
my $dev1 = qw/clinical1/;
my $fout = qq(/usr/local/log/fuji.out);
open (OUT
]
[EMAIL PROTECTED] cc
ight.fedex.com beginners@perl.org
Subject
03/11/2005 04:59 RE: print with +split
[ Please TRIM your posts! ]
[EMAIL PROTECTED] wrote:
Does anyone know the answer to:
I took away the + from the print and I had some errors, why is the +
infront of the split needed in Perl?
I looked in my programming perl and could not find it.
perldoc -f print
John
--
use Perl;
cc
PM
Subject
Re: print with +split
[EMAIL PROTECTED] wrote:
All,
Hello,
Here is my code:
use strict;
use warnings;
my $dev = qw/original1/;
my $dev1 = qw/clinical1/;
Why are you creating a list and then assigning it to a scalar?
my $fout = qq(/usr/local/log/fuji.out);
Why use double quotes on a string that has nothing to
[EMAIL PROTECTED] wrote:
John W. Krahn
[ Please TRIM your posts! ]
[EMAIL PROTECTED] wrote:
Does anyone know the answer to:
I took away the + from the print and I had some errors, why is the +
infront of the split needed in Perl?
I looked
David == David [EMAIL PROTECTED] writes:
David /\s(\d+)/,
David $diff += $1 * $MyMult;
Never never never NEVER NEVER use $1 without testing whether
the match worked or not.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
ok perl people... I chnaged my code from
use strict;
use warnings;
my $dev = qw/original1/;
my $dev1 = qw/clinical1/;
my $fout = qq(/usr/local/log/fuji.out);
open (OUT, +$fout) || die unable to open file: $fout $!;
open (FOO, samcmd a $dev 2\1 | ) || die unable to open
11 matches
Mail list logo