Thanks Doug, worked great. I am not sure why I couldn't do the same command as you typed. I am on windows and when I type ---------------------------------------------------- perldl> ? wcols No PDL docs for 'wcols'. Using 'whatis'. (Try 'apropos wcols'?)
'wcols' perldl> perldl> apropos wcols no match perldl> ---------------------------------------------------- The other wierdness that I discovered on windows is that I need to press the enter key and then the backspace key. I am guessing that this is due to the \r\n - but then that really didn't make sense why backspacing over the \n would 'enter' the data. Somehow I missed it when I was browsing the IO::Misc routines (must have been blind given that its right in the middle of my screen 8^). Thanks again for your assistance - my stress level just went down. Cliff Sobchuk Nortel Core RF Field Support -----Original Message----- From: Doug Hunt [mailto:[EMAIL PROTECTED] Sent: Friday, March 30, 2007 5:50 PM To: Sobchuk, Cliff (WIC:W788) Cc: [EMAIL PROTECTED]; Chris Marshall; [email protected] Subject: RE: [Perldl] PDL - flat file export Cliff: Should work. --Doug See: $ perldl > ? wcols wcols() Write ASCII whitespaced cols into file from piddles efficiently. If no columns are specified all are assumed. Will optionally only process lines matching a pattern. Can take file name or *HANDLE, and if no file/filehandle is given defaults to STDOUT. Options: HEADER - prints this string before the data. If the string is not terminated by a newline, one is added (default ''). Usage: wcols $piddle1, $piddle2,..., *HANDLE|"outfile", [\%options]; e.g., wcols $x, $y+2, 'foo.dat'; wcols $x, $y+2, *STDERR; wcols $x, $y+2, '|wc'; wcols $a,$b,$c; # Orthogonal version of 'print $a,$b,$c' :-) wcols "%10.3f", $a,$b; # Formatted wcols "%10.3f %10.5g", $a,$b; # Individual column formatting wcols $a,$b, { HEADER => "# a b" }; ... [EMAIL PROTECTED] Software Engineer III UCAR - COSMIC, Tel. (303) 497-2611 On Fri, 30 Mar 2007, Cliff Sobchuk wrote: > Thanks Gents, can I specify the FileHandle as indicated by Chris's > email. Ex. > wcols $a->mv(1,0)->dog, *$out; > Where $out is a filehandle that changes as I am going through > different data sections? Is the * (not)required (i.e. pointer to filehandle)? > > Cliff Sobchuk > Nortel Core RF Field Support > > -----Original Message----- > From: Doug Hunt [mailto:[EMAIL PROTECTED] > Sent: Friday, March 30, 2007 2:58 PM > To: Chris Marshall > Cc: Sobchuk, Cliff (WIC:W788); [email protected] > Subject: Re: [Perldl] PDL - flat file export > > Cliff, Chris: No need even to specify *STDOUT: > >> wcols $a->mv(1,0)->dog > > will do. > > --Doug > > [EMAIL PROTECTED] > Software Engineer III > UCAR - COSMIC, Tel. (303) 497-2611 > > On Fri, 30 Mar 2007, Chris Marshall wrote: > >> Cliff Sobchuk writes: >>> Hi Folks, I am struggling with how to get my data stored in to a >>> flat > >>> file (without all of the "[" "]" and blank >>> lines) so that I can plot the data with gnuplot. I have gone through >>> the FAQ, and the documentation on Indexing, Slices, Char, and Basic >>> and have not found a method to export the data easily. The data is >>> stored in a 3x20 array as a pdl and I want to be able to print it to >>> a file as 20 rows of 3 column values only. >> >> The function(s) you are looking for are dog() and wcols(). >> For example: >> >> perldl> $a = sequence(3,20); >> perldl> wcols $a->mv(1,0)->dog, *STDOUT; >> 0 1 2 >> 3 4 5 >> 6 7 8 >> 9 10 11 >> 12 13 14 >> 15 16 17 >> 18 19 20 >> 21 22 23 >> 24 25 26 >> 27 28 29 >> 30 31 32 >> 33 34 35 >> 36 37 38 >> 39 40 41 >> 42 43 44 >> 45 46 47 >> 48 49 50 >> 51 52 53 >> 54 55 56 >> 57 58 59 >> >> --Chris > _______________________________________________ Perldl mailing list [email protected] http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
