From owner-freebsd-questions@FreeBSD.ORG Sun Apr 4 20:39:56 2010 Return-Path: Delivered-To: freebsd-questions@FreeBSD.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34]) by hub.freebsd.org (Postfix) with ESMTP id 4B679106564A; Sun, 4 Apr 2010 20:39:56 +0000 (UTC) (envelope-from kline@thought.org) Received: from ethic.thought.org (plato.thought.org [209.180.213.209]) by mx1.freebsd.org (Postfix) with ESMTP id 001178FC2C; Sun, 4 Apr 2010 20:39:55 +0000 (UTC) Received: from thought.org (tao.thought.org [10.47.0.250]) (authenticated bits=0) by ethic.thought.org (8.14.3/8.14.3) with ESMTP id o34KdpeD080281; Sun, 4 Apr 2010 13:39:52 -0700 (PDT) (envelope-from kline@thought.org) Received: by thought.org (nbSMTP-1.00) for uid 1002 kline@thought.org; Sun, 4 Apr 2010 13:39:51 -0700 (PDT) Date: Sun, 4 Apr 2010 13:39:51 -0700 From: Gary Kline To: "Randal L. Schwartz" Message-ID: <20100404203951.GB47459@thought.org> References: <20100403210610.GA4135@thought.org> <4BB8108A.9080104@FreeBSD.org> <1270371713.5861.98.camel@tao.thought.org> <86aatjnsts.fsf@red.stonehenge.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline In-Reply-To: <86aatjnsts.fsf@red.stonehenge.com> User-Agent: Mutt/1.4.2.3i X-Organization: Thought Unlimited. Public service Unix since 1986. X-Of_Interest: With 23 years of service to the Unix community. X-Spam-Status: No, score=-2.9 required=3.6 tests=ALL_TRUSTED,BAYES_00, T_RP_MATCHES_RCVD autolearn=ham version=3.3.0 X-Spam-Checker-Version: SpamAssassin 3.3.0 (2010-01-18) on ethic.thought.org Cc: glarkin@FreeBSD.org, FreeBSD Mailing List Subject: Re: perl qstn... X-BeenThere: freebsd-questions@freebsd.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: User questions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sun, 04 Apr 2010 20:39:56 -0000 On Sun, Apr 04, 2010 at 08:25:03AM -0700, Randal L. Schwartz wrote: > >>>>> "Gary" == Gary Kline writes: > > Gary> #!/usr/bin/perl > Gary> $argc = @ARGV; > Gary> if (! $argc ) { > Gary> printf("No args; need filename.\n"); > Gary> } > Gary> else { > Gary> printf("%s\n", @ARGV); > Gary> } > > Even simpler: > > if (@ARGV) { > print "No args\n"; > } else { > print "arg is $ARGV[0]\n"; > } > > If you're studying perl, you might want to join the very > beginner-friendly mailing list, info at > http://lists.perl.org/list/beginners.html, or start a conversation on > perlmonks.org, also relatively beginner-friendly. > > And I'd recommend a couple of good books, but I might be seen as > self-pimping. :) hey man, pimp away! we'll all learn a few tricks. ---i had to teach myself perl around '96 and bought a couple books, one with a floppy full of short programs. After doing a find . -name "*" -exec head -15 {} \; | more thru the truckload of these nifties, i finally came across the "$argc" idea. there are around a dozen no-longer-throwaways that need the kind of no-arg tip just to make the scripts more user friendly. even tho i'm the Only person who'll ever use them. ---Maybe you can clue me in on this one: around a dozen years ago i somw found a recursive grep named tgrep online. to save tying, i renamed it "rgr". i can start anywhere and 'rgr pattern' --WITHOUT ANY ASTERISK-- will find any pattern and skip binary or tarballs or compressed files. given this, rgr has become my favorite utility, but since it doesn't have All of grep's options, yes, it's tru e, there are times whrn i have to use the real thing. i have searched for tgrep and cannot find a newer more complete version. would you or anyone reading this know where an upgraded version is? Here is the Usage string: p4 13:07 [5524] rgr Usage: tgrep [-iredblLnf] regexp filepat ... tgrep -h for help if not for trgep/rgr my shoulder would've fallen off and just laid on the floor; that's how much i use this script. having the 'w' switch would be nice, so would the -N switch. > > But if you look at http://learn.perl.org/ you'll see a number of other > resources, including free tutorials online. tx for the pointer; i'll add it to my bookmarks. gary > > print "Just another Perl hacker,"; # the original > > -- > Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 > > Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc. > See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion -- Gary Kline kline@thought.org http://www.thought.org Public Service Unix http://jottings.thought.org http://transfinite.thought.org The 7.79a release of Jottings: http://jottings.thought.org/index.php