From owner-freebsd-questions@FreeBSD.ORG  Sun Jan 18 16:30:22 2004
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
Delivered-To: freebsd-questions@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id E6A9B16A4CE
	for <freebsd-questions@FreeBSD.ORG>;
	Sun, 18 Jan 2004 16:30:22 -0800 (PST)
Received: from catseye.mine.nu (d207-81-17-215.bchsia.telus.net
	[207.81.17.215])	by mx1.FreeBSD.org (Postfix) with SMTP id D3E5943D1D
	for <freebsd-questions@FreeBSD.ORG>;
	Sun, 18 Jan 2004 16:30:21 -0800 (PST)
	(envelope-from catseye@catseye.mine.nu)
Received: (qmail 36006 invoked by uid 1001); 19 Jan 2004 00:34:25 -0000
Date: Sun, 18 Jan 2004 16:34:25 -0800
From: Chris Pressey <cpressey@catseye.mine.nu>
To: Gary Kline <kline@thought.org>
Message-Id: <20040118163425.6214fb37.cpressey@catseye.mine.nu>
In-Reply-To: <20040118235542.GA41663@tao.thought.org>
References: <20040118235542.GA41663@tao.thought.org>
Organization: Cat's Eye Technologies
X-Mailer: Sylpheed version 0.9.8a (GTK+ 1.2.10; i386-portbld-freebsd4.9)
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
cc: freebsd-questions@FreeBSD.ORG
Subject: Re: OT: Another perl question
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.1
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: Mon, 19 Jan 2004 00:30:23 -0000

On Sun, 18 Jan 2004 15:55:42 -0800
Gary Kline <kline@thought.org> wrote:

> 	
> 	Is there an easy way of determining "file - determine file type"
> 	in perl? at least as certain as magic(5) can ascertain?
> 
> 	E.g:
> 
> 	if (($ftype = file ($ARV[i])) eq "script){
> 		## do abc;
> 	}
> 	else if ($ftype eq "Mail"){
> 		## do def;
> 	}
> 	else if ($type eq "C program"){
> 		## do xyz;
> 	}
> 	.
> 	.
> 	.
> 
> 	I've been poking around perl tutorial sites; so far, nada.
> 	Thought I'd ask the wizards.
> 
> 	thanks for any clues,
> 
> 	gary

How about /usr/ports/devel/p5-File-MMagic ?

"This module is to guess file type from its contents like file(1)
command."

-Chris