From owner-freebsd-questions@FreeBSD.ORG  Sun Apr  8 17:58:05 2007
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
X-Original-To: freebsd-questions@freebsd.org
Delivered-To: freebsd-questions@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [69.147.83.52])
	by hub.freebsd.org (Postfix) with ESMTP id 861E816A401
	for <freebsd-questions@freebsd.org>;
	Sun,  8 Apr 2007 17:58:05 +0000 (UTC)
	(envelope-from keramida@ceid.upatras.gr)
Received: from igloo.linux.gr (igloo.linux.gr [62.1.205.36])
	by mx1.freebsd.org (Postfix) with ESMTP id 921A813C48A
	for <freebsd-questions@freebsd.org>;
	Sun,  8 Apr 2007 17:58:04 +0000 (UTC)
	(envelope-from keramida@ceid.upatras.gr)
Received: from kobe.laptop (dialup5.ach.sch.gr [81.186.70.5])
	(authenticated bits=128)
	by igloo.linux.gr (8.13.8/8.13.8/Debian-3) with ESMTP id l38HuqbP030561
	(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NOT);
	Sun, 8 Apr 2007 20:57:05 +0300
Received: from kobe.laptop (kobe.laptop [127.0.0.1])
	by kobe.laptop (8.13.8/8.13.8) with ESMTP id l38Huo6w001810;
	Sun, 8 Apr 2007 20:56:51 +0300 (EEST)
	(envelope-from keramida@ceid.upatras.gr)
Received: (from keramida@localhost)
	by kobe.laptop (8.13.8/8.13.8/Submit) id l38HuovA001809;
	Sun, 8 Apr 2007 20:56:50 +0300 (EEST)
	(envelope-from keramida@ceid.upatras.gr)
Date: Sun, 8 Apr 2007 20:56:50 +0300
From: Giorgos Keramidas <keramida@ceid.upatras.gr>
To: Garrett Cooper <youshi10@u.washington.edu>
Message-ID: <20070408175650.GB1672@kobe.laptop>
References: <4617B954.7010507@steelbox.org>
	<20070407171120.GA70957@kobe.laptop>
	<4618992D.5050106@u.washington.edu>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <4618992D.5050106@u.washington.edu>
X-Hellug-MailScanner: Found to be clean
X-Hellug-MailScanner-SpamCheck: not spam, SpamAssassin (not cached,
	score=-3.689, required 5, autolearn=not spam, ALL_TRUSTED -1.80,
	AWL 0.51, BAYES_00 -2.60, DNS_FROM_RFC_ABUSE 0.20)
X-Hellug-MailScanner-From: keramida@ceid.upatras.gr
X-Spam-Status: No
Cc: freebsd-questions@freebsd.org
Subject: Re: script perl with sed command
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: User questions <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sun, 08 Apr 2007 17:58:05 -0000

On 2007-04-08 00:26, Garrett Cooper <youshi10@u.washington.edu> wrote:
> Giorgos Keramidas wrote:
> > Try using Perl only, instead of forking sed(1), like this:
> > [...]
> > | sub supfile_set_default_host($$);
> > | sub supfile_set_default_host($$)
> > | {
[...]
> Interesting. Is that old perl syntax (v4, etc)? Just curious because
> most of the documentation and examples switched to:
>
> sub supfile_set_default_host
> {
>
> syntax as opposed to:
>
> sub supfile_set_default_host($$);
>
> sub supfile_set_default_host($$);
> {

That's actually a function prototype.  Prototypes are explained in:

    man perlsub

in far more detail than I could ever describe in an email message :)

HTH,
Giorgos