[Perl-unix-users] Sysadmin Snippet: gm (Group Math Calculator)

2004-01-06 Thread Michael A Nachbaur
mailing list chops it off, you can download it at http://nachbaur.com/resources/source/misc/gm-1.03 -- /* Michael A. Nachbaur <[EMAIL PROTECTED]> * http://nachbaur.com/pgpkey.asc */ "The dew," he observed, "has clearly fallen with a particularly sickening thud this morning." gm Description: Perl program

Re: [Perl-unix-users] Removing files older than 10 days from a directory

2003-11-06 Thread Michael A Nachbaur
if I have the -ctime argument right, but basically you want to say for every file not updated within the last ten days, execute "rm" on it. Anyone know for certain what the correct syntax would be for this? -- /* Michael A. Nachbaur <[EMAIL PROTECTED]> * http://nachbaur

Re: [Perl-unix-users] Reading Unix's top command

2003-10-06 Thread Michael A Nachbaur
o catch just one iteration though, you should also pass it "-n1" so that it doesn't just scroll screenfulls of top information on your terminal. Attached is a little quickie program I wrote to watch various aspects of top's output over time. It might help to show how one could

Re: [Perl-unix-users] RFC: Unix Sysadmin perl snippets

2003-09-29 Thread Michael A Nachbaur
d file. classVersion - Shortcut to print out the version number for a given perl class There's more where that came from, if people are interested. -- /* Michael A. Nachbaur <[EMAIL PROTECTED]> * http://nachbaur.com/pgpkey.asc */ "He expanded his chest to make it totally clear th

[Perl-unix-users] RFC: Unix Sysadmin perl snippets

2003-09-29 Thread Michael A Nachbaur
ciate seeing how other sysadmins go about their work. I'm sure other experts in this list might have something they can contribute, even if it's just a "Wow, this is neat" or a "Aren't I cool? This just saved me six hours of work" sort of email. Thought

Re: [Perl-unix-users] Large textfiles

2003-09-24 Thread Michael A Nachbaur
; > if ($Loytyi == 0) { > #print "$Urivi[4] $Urivi[3]\n"; > $temppi = $Uudettuotteet; > $Uudettuotteet = $temppi."=".$Urivi[4]."_".$Urivi[3]; > $Loytyi = 0; > } > } > > > __

Re: [Perl-unix-users] Counter for console based script

2003-06-20 Thread Michael A Nachbaur
TECTED] > > I have not lost my mind, it's backed up on tape somewhere! > > ___________ > Perl-Unix-Use

Re: [Perl-unix-users] Get column from a matrix structure

2003-05-27 Thread Michael A Nachbaur
ithout loops) to return > n-th column from such a structure? > > Best regards, > Wojciech Pietron > ___ > Perl-Unix-Users mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs -- Michael A