Re: How to sum up values

2007-04-24 Thread Shiping Wang
Hi, At 05:33 AM 4/24/2007, Andrej Kastrin wrote: Dear all, Question about the sum function; the file structure is as follows: A|100 A|200 A|150 B|20 B|90 C|10 C|30 C|300 The result I want to obtain is to sum values in the second column (columnB) for each particular letter in the first column

Re: parsing problem

2007-02-15 Thread Shiping Wang
Thank you John. I have learned a lot from you and others just by following this 'Perl Beginners' list'. Shiping At 02:00 PM 2/15/2007, John W. Krahn wrote: Shiping Wang wrote: > Hi, Hello, > I wrote a parsing script, it is working but give me some error message &

parsing problem

2007-02-15 Thread Shiping Wang
Hi, I wrote a parsing script, it is working but give me some error message at beginning: Use of uninitialized value in concatenation (.) or string ... and also it gives some unwanted stuff. To get around this problem, I want to directly go to the line and start extract result, in this case I w

Re: How to make a perl program to an exe file

2006-11-22 Thread Shiping Wang
At 07:35 AM 11/21/2006, Dharshana Eswaran wrote: Hi all, I have a perl program in a folder along with 2 more files associated to the main program. I need to know how to create a exe file out of this? You may take a look PAR http://search.cpan.org/~smueller/PAR-0.960/lib/PAR.pm to convert per

goto???

2006-10-27 Thread Shiping Wang
Hello, I try to use following code to check if a file is already exist, if it exists, then ask user to change file name or override it. I know using 'goto' is not preferred way here, but what's the 'right way' to do so? Thanks, Shiping

Re: Sort uniq

2006-10-18 Thread Shiping Wang
At 02:04 PM 10/18/2006, Johnson, Reginald (GTI) wrote: I am trying to understand this sort and uniq code that a came across in the archive. This works, but I thought the %uniq would have the sort and uniqed values. What is needed if I didn't want to print the values out immediatedly but put them

RE: Problem dynamically sign array a name

2006-10-02 Thread Shiping Wang
Hi Charles, At 17:18 2006-9-29, Charles K. Clarkson wrote: Shiping Wang wrote: : Yes, but it start @P = 0 .. 89; I might use the any() function available in List::MoreUtils. I try to avoid flag like the plague. use List::MoreUtils 'any'; my @P = ( 0.06, 0.04, 0.98, 0

RE: Problem dynamically sign array a name

2006-09-29 Thread Shiping Wang
At 16:22 2006-9-29, Charles K. Clarkson wrote: Shiping Wang wrote: According to the code you provided, you are breaking up the large array into smaller arrays like this: print "Large array values become these subarrays:\n\n"; my @P = 1 .. 90; foreach my $i ( 0 .. 9 ) {

RE: Problem dynamically sign array a name

2006-09-29 Thread Shiping Wang
Hi Charles, At 13:08 2006-9-29, Charles K. Clarkson wrote: Shiping Wang wrote: : Hi, I have a big array, I need re-arrange it then put into sub : array, after that do something on each sub array. How do you want to split it into sub arrays? Like items, number of items, random items

Problem dynamically sign array a name

2006-09-29 Thread Shiping Wang
Hi, I have a big array, I need re-arrange it then put into sub array, after that do something on each sub array. I have a problem to dynamically give sub array a name. Any help? Maybe I should use anonymous array? Thanks, Shiping Here is my code: use strict; use warnings; my @big_arr = ( 0

Re: Matrix Average code / Module Avaialable ?

2006-02-20 Thread Shiping Wang
Hi At 01:08 AM 2/20/2006, I BioKid wrote: Dear All, Is there any program/module to calculate matrix average How about: #!/usr/bin/perl use warnings; use strict; my @sum; while(){ chomp; my @line = split; my $line_avg; for(@line){ $line_avg +=

Re: perl GD package

2005-05-04 Thread Shiping Wang
try this: ppm install http://theoryx5.uwinnipeg.ca/ppms/GD.ppd Good luck! At 02:14 PM 5/4/2005, Mark Cohen wrote: Hello, When looking for the GD package under Windows using PPM i can't find the package. I try using the install GD but it tells me that that the package doesn't exist. The ppm version

Re: need help for Getopt::Long; --resolved

2005-03-25 Thread Shiping Wang
At 10:46 AM 3/25/2005 -0600, Shiping Wang wrote: Hi, I have problem to match array defined in Getopt::Long and transfer to new file: If I do: try.pl --InputData sample.txt --Trait=_BMI --covars=age, _DBP, _SBP --Race=Others with this file: GFAMID GDADID GMOMID ID SEX HYT3 _SBP _DBP _BMI

need help for Getopt::Long;

2005-03-25 Thread Shiping Wang
Hi, I have problem to match array defined in Getopt::Long and transfer to new file: If I do: try.pl --InputData sample.txt --Trait=_BMI --covars=age, _DBP, _SBP --Race=Others with this file: GFAMID GDADID GMOMID ID SEX HYT3 _SBP _DBP _BMI RACE AGE _HTMED antiht How can I get it to ne

Re: reading an file

2005-03-08 Thread Shiping Wang
Hi, At 11:51 AM 3/8/2005 +0100, E.Horn wrote: Hello! I want to read this file into an array. How can i just get 4, 5, 6,7,8 into an array? And later, how can i get the contents out of this array? 1)2)3) 4) 5)6) 7)8) 9)10)

Re: Number or string?

2005-02-22 Thread Shiping Wang
Hi Aiguo, At 10:17 AM 2/22/2005 -0500, Li, Aiguo (NIH/NCI) wrote: Hi, all. I have the following data from a file. __data from file IN__ SNP_A-1512608 23 148840899 0.8281090.823391 11128 SNP_A-1512550 23 148841154 1.7173971.750476 11129 SNP_A-1518843 23

Re: /$RE{URI}{HTTP}{-keep}/;

2005-02-15 Thread Shiping Wang
At 12:19 PM 2/15/2005 -0700, EWALKER 1016705 wrote: On Tuesday 15 February 2005 11:06 am, Brian Volk wrote: > #!/usr/bin/perl > > use warnings; > use strict; > use Cwd; > use File::Basename; > use Regexp::Common qw /URI/; > > my $dir = "C:/brian/small"; > opendir (SM, $dir) or die "Can't open $dir

Re: Improving performance when working with large text files

2004-03-12 Thread Shiping Wang
At 07:55 PM 3/11/2004 -0600, James Edward Gray II wrote: On Mar 11, 2004, at 10:41 AM, Price, Jason wrote: I'm trying to optimize a script used for processing large text log files (around 45MB). I think I've got all the processing fairly well optimized, but I'm wondering if there's anything I can

problem with play AOA

2004-03-09 Thread Shiping Wang
Hello, I try to slice AOA into two subsets, then put them back. The problem is when I put them back, I couldn't do what I like, for example: Here is Original array a b 3 4 c d 2 5 e f 13 8 slice into two pieces: print Dumper of array A a b c d e f print Dumper of array B 3 4 2 5 13 8 put them b

How to rearrange an array by a hash

2004-02-16 Thread Shiping Wang
Hi, How can I rearrange an array in a specific order based on the order of a hash? Something like this: my @a = qw(Mary John Dan); print join "\t", @a, "\n"; my %b = ( John => 0, Dan => 1, Mary => 2); print "$_ => $b{$_}\n" for (keys %b); print "$_-$b{$_}\t" foreach sort {$b{$a} <=> $b{$b}} keys

Re: Reg. length of anonymous array

2004-02-16 Thread Shiping Wang
Hi, How can I rearrange an array in a specific order based on the order of a hash? Something like this: my @a = qw(Mary John Dan); print join "\t", @a, "\n"; my %b = ( John => 0, Dan => 1, Mary => 2); print "$_ => $b{$_}\n" for (keys %b); print "$_-$b{$_}\t" f

Re: getting rid of space at beggining of variable

2004-02-10 Thread Shiping Wang
At 01:28 AM 2/12/2004 +1100, David Inglis wrote: "bloggs, joe" which I then spilt into 2 using @names=split(/\,/, $contact) How about: #!perl -w use strict; my $contact = "bloggs, joe"; @names=split(/, /, $contact); print @names; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional comman

RE: How to rearrange columns

2004-02-06 Thread Shiping Wang
At 03:31 PM 2/5/2004 -0800, david wrote: Shiping Wang wrote: > Hi David, thanks for your response. > > My concern is that if the data has hundreds columns (which the order > information I can get from another array or file) need to be rearranged, > how can I do it. > > Here i

RE: How to rearrange columns

2004-02-05 Thread Shiping Wang
want.\nAny suggestions???\n"; __DATA__ c2 c1 c4 c3 c6 c5 Abc 12.8 8 "left" 1 15.7 Def 13.8 9 "top" 0 19.7 gef 14.8 9 "left" 0 19.7 Dgf 12.3 9 "right" 4 99.6 cef 16.8 4 "right" 0 89.7 baf 32.8 7 "bottom" 5 79.8 efg 16.8 5

RE: sort -- following question: How to rearrange columns

2004-02-04 Thread Shiping Wang
Hello, With this sample data set, I have a different question. How can I rearrange columns such as this: before: col1col4col5col2col6col3 Abc 12.88 left1 15.7 Def 13.89 top 0 19.7 gef 14.89 left0 19.7 Dgf

Re: What's the Perl driver for MSAccess?

2003-10-29 Thread Shiping Wang
At 10:22 AM 10/29/2003 -0600, [EMAIL PROTECTED] wrote: Can anyone tell me what the Perl driver for MSAccess is called and how to use it to read a table? Thanks, Scott Scott E. Robinson SWAT Team UTC Onsite User Support RR-690 -- 281-654-5169 EMB-2813N -- 713-656-3629 -- To unsubscribe, e-mail: [E

RE: install modules in winXP

2003-09-10 Thread Shiping Wang
AN http://search.cpan.org. So what is right way to do it? Thanks, Shiping At 04:32 PM 9/9/2003 -0400, Paul Kraus wrote: Install the activestate version of perl 5.8 and then use there ppm utitily. It will do all the work for you. www.activestate.com -Original Message- From: Shiping Wang

install modules in winXP

2003-09-09 Thread Shiping Wang
Hello, When I try to install modules from CPAN to my Window XP followed by perl Makefile.PL nmake nmake test nmake install Most time installation is OK, but sometime I get following message after "nmake": 'cl' is not recognized as an internal or external command, operable program or batch file.