NetNews Usenet Archive 1992 #30/NN_1992_30.iso/spool/comp/lang/perl/7447

Internet Message Format | 1992-12-15 | 872 b

Path: sparky!uunet!olivea!charnel!rat!usc!sdd.hp.com!saimiri.primate.wisc.edu!ames!sun-barr!sh.wide!wnoc-tyo-news!sranha!sranhd!sran230!utashiro
From: [e-mail] (Kazumasa Utashiro)
Newsgroups: comp.lang.perl
Subject: Re: Perl-side globbing (was Re: Perl Shell...)
Message-ID: <[e-mail]>
Date: 16 Dec 92 01:19:17 GMT
References: <[e-mail]> <[e-mail]>
Organization: Software Research Associates, Inc., Japan
Lines: 12

For your interest, here is my shell wildcard to regexp
subroutine.  This version works only for a filename (not a
path).  I wonder you call this simple or complex :-)

sub wildcard {
    local($_) = @_;
    s#\\?.#$_ = $&; s/\\?([_0-9A-Za-z])/$1/ || /\\./ || s/[*]/.*/ ||
    s/[|]/\$|^/ || tr/?{,}[]\-/.(|)[]\-/ || s/./\\$&/; $_;#ge;
    length($_) ? "^$_\$" : undef;
}

--utashiro