Re: print with +split

2005-03-11 Thread DBSMITH
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 |" )

Re: print with +split

2005-03-11 Thread Randal L. Schwartz
> "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 009

Re: print with +split

2005-03-11 Thread John W. Krahn
[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

Re: print with +split

2005-03-11 Thread John W. Krahn
[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 interpola

Re: print with +split

2005-03-11 Thread DBSMITH
03/11/2005 05:37 cc PM Subject

Re: print with +split

2005-03-11 Thread 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 in my programming perl and could not find it. perldoc -f print John -- use Perl; progra

RE: print with +split

2005-03-11 Thread DBSMITH
<[EMAIL PROTECTED]> <[EMAIL PROTECTED] cc ight.fedex.com> Subject 03/11/2005 04:59

RE: print with +split

2005-03-11 Thread Wagner, David --- Senior Programmer Analyst --- WGO
;, > <[EMAIL PROTECTED] > ight.fedex.com> > cc > > 03/11/2005 04:25 > Subject PMRE: print with +split > >

RE: print with +split

2005-03-11 Thread DBSMITH
03/11/2005 04:25 Subject PM

RE: print with +split

2005-03-11 Thread Wagner, David --- Senior Programmer Analyst --- WGO
[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

RE: print with +split

2005-03-11 Thread Wagner, David --- Senior Programmer Analyst --- WGO
[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