SPUG:Best One-Liners and Scripts for UNIX

[SPUG-list-owner]

On Sat, Apr 19, 2003 at 10:37:13AM -0700, Tim Maher wrote:

This version has the corrected Usage messasge (the compiler
missed that mistake! 8-})

-Tim
> 
> BEGIN {
> 	# first argument contains comma-separated field numbers
> 	# order of numbers determines order of printing fields
> 	($fields = shift) =~ /^[\d,.]+$/g or
		die "Usage: fields='2,1,3,4..7' $0 [ file ... ]"; #BAD
 		die "Usage: $0 '2,1,3,4..7' [ file ... ]"; #GOOD
> 	@fields = eval " ( $fields ) ";	# 5,2..4 => 5,2,3,4
> }
> 
> @F or next;	# skip blank lines
> # Let user specify from #1
> unshift @F, "(No zeroth field! first is #1)";
> print  "@F[ @fields ]"; 
> 
> 
> -Tim
> *------------------------------------------------------------*
> |  Tim Maher (206) 781-UNIX  (866) DOC-PERL  (866) DOC-UNIX  |
> |  CEO, JAWCAR ("Just Another White Camel Award Recipient")  |
> |  tim at Consultix-Inc.Com  TeachMeUnix.Com  TeachMePerl.Com   |
> *+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*
> |  Watch for my  Book: "Minimal Perl for Shell Programmers"  |
> *------------------------------------------------------------*
> _____________________________________________________________
> Seattle Perl Users Group Mailing List  
> POST TO: spug-list at mail.pm.org
> ACCOUNT CONFIG: http://mail.pm.org/mailman/listinfo/spug-list
> MEETINGS: 3rd Tuesdays, U-District, Seattle WA
> WEB PAGE: www.seattleperl.org

-- 

-Tim
*------------------------------------------------------------*
|  Tim Maher (206) 781-UNIX  (866) DOC-PERL  (866) DOC-UNIX  |
|  CEO, JAWCAR ("Just Another White Camel Award Recipient")  |
|  tim at Consultix-Inc.Com  TeachMeUnix.Com  TeachMePerl.Com   |
*+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*
|  Watch for my  Book: "Minimal Perl for Shell Programmers"  |
*------------------------------------------------------------*