Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-30 Thread Rob Dixon
On 30/10/2011 13:20, newbie01 perl wrote: Hi Rob, Thanks for your response and to everyone else who had given their thoughts, especially John. This whole exercise is turning out to be a "fun" way of learning arrays and print formatting. I tried the script that you suggested and it is giving som

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-30 Thread newbie01 perl
Hi Rob, Thanks for your response and to everyone else who had given their thoughts, especially John. This whole exercise is turning out to be a "fun" way of learning arrays and print formatting. I tried the script that you suggested and it is giving some error and not sure how to get around it. F

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-25 Thread Rob Dixon
On 24/10/2011 21:35, John W. Krahn wrote: > > You forgot the part where the OP wants to sort the output. :-) I thought I didn't have enough information to know how the OP wanted the report sorted, but I see from the attacked shell script that the original lines from the df output are sorted befor

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-24 Thread John W. Krahn
Rob Dixon wrote: **OUTPUT** FilesystemMBytes UsedAvail Capacity Mount -- - - - /dev/md/dsk/d1 3027-MB 2424-MB 542-MB 82% / /proc

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-24 Thread Rob Dixon
On 22/10/2011 03:18, newbie01 perl wrote: > Hi all, > > Am trying to write/convert a customized df script in Perl and need some > help with regards to using arrays and file handlers. > > At the moment am using > > system("df -k > /tmp/df_tmp.00"); > > To re-direct the df output. Am using df -k

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-22 Thread GRAEME F ST CLAIR
"Learning Perl" turns out to be the 6th edition. Oh my! I thought to myself, perhaps mine might be about the 4th or 5th edition - alas, it is the 2nd. Start saving... Tx & rgds, GFStC. On Fri, 21 Oct 2011 22:37:14 -0700 David Christensen wrote: The canonical book for learning Perl i

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-22 Thread Brandon McCaig
On Sat, Oct 22, 2011 at 7:13 PM, Brian Fraser wrote: > I say this without a bit of sarcasm: Feel blessed in your ignorance of > formats. The declarations on top are unfortunately needed (If it helps, > think of formats using lexical variables as closures). > But you shouldn't be using formats. So

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-22 Thread Brian Fraser
On Sat, Oct 22, 2011 at 4:57 PM, Brandon McCaig wrote: > On Sat, Oct 22, 2011 at 11:37 AM, timothy adigun <2teezp...@gmail.com> > wrote: > > my($filesys,$mbytes,$used,$avail,$capacity,$mount)=("","","","","",""); > > Declaring these variables here is useless (and initializing them > here is even

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-22 Thread Brandon McCaig
On Sat, Oct 22, 2011 at 3:00 PM, Brandon McCaig wrote: > http://search.cpan.org/~abarclay/Filesys-DiskFree-0.06/DiskFree.pm I guess the proper way to post a CPAN link is with the 'permalink': http://search.cpan.org/perldoc?Filesys::DiskFree Regards, -- Brandon McCaig Castopulence Software

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-22 Thread Brandon McCaig
On Fri, Oct 21, 2011 at 10:18 PM, newbie01 perl wrote: > At the moment am using > > system("df -k > /tmp/df_tmp.00"); > > To re-direct the df output. Am using df -k because some of the Solaris and > HP servers does not have df -h, by using df -k, am sure it will work on all > of them. Apparently

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-22 Thread Brandon McCaig
On Sat, Oct 22, 2011 at 11:37 AM, timothy adigun <2teezp...@gmail.com> wrote: > my($filesys,$mbytes,$used,$avail,$capacity,$mount)=("","","","","",""); Declaring these variables here is useless (and initializing them here is even more useless). :-/ The lack of whitespace is also useless and makes

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-22 Thread timothy adigun
Hi newbie01 perl, Try the code below and see if it works for you, it works well on my Ultimate Ubuntu OS. Assumptions in the code below: 1. you must pass df to the perl script on the Command Line Interface *e.g perl mydf.pl df*, 2. you don't have Perl6::Form installed, though you can get here h

Re: HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-21 Thread David Christensen
On 10/21/2011 07:18 PM, newbie01 perl wrote: Am trying to write/convert a customized df script... > I've attached a version of the script in Korn shell. ... ... [input] Filesystemkbytesused avail capacity Mounted on /dev/md/dsk/d1 3099287 2482045 55525782%/ /pr

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

2011-10-21 Thread newbie01 perl
Hi all, Am trying to write/convert a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am using system("df -k > /tmp/df_tmp.00"); To re-direct the df output. Am using df -k because some of the Solaris and HP servers does not have df -h