> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Mark Knoop
> Sent: Thursday, February 16, 2006 09:11
> To: [email protected]
> Subject: RE: Regular expression ;-)
>
> Howard wrote:
> >
> > my ($basename) = $_ =~ / ^(.*)\.[^.]+$/;
> >
>
> I presume the space ^ there is an error. Even so this
> does not work on
> 123
>
> $bill wrote:
>
> > I'd probably do it the easy way and just remove the ext:
> >
> > (my $file = $_) =~ s/\.[^.]*$//;
> > print "$file\n";
> > ____________________
>
> I would do it this way too... but I have got a bit sucked in
> to trying to do
> it using the model that was initially suggested which makes a
> neat little
> puzzle. I am stumped though! Can anyone find a way using the
>
> > $_="123";
> > /(XX)YY/;
> > print "$1\n" ; # result: "123";
>
> form?
>
> Or can someone prove that it can't be done?
>
> Mark
sub Fparse($)
{
my $Self = shift;
my ($Fp, $Fn, $Fe, $Pos1, $Pos2);
$Pos1 = rindex($Self,(index($Self,'/') > -1) ? '/' : '\\');
# Find the last slash in the filename.
$Pos2 = rindex($Self,'.');
# Find the last period in the filename.
if ($Pos1 > 0) {$Pos1++; $Fp = substr($Self,0,$Pos1)} else {$Fp =
undef; $Pos1 = 0} # Extract the path if present.
if ($Pos2 > 0) {$Fn = substr($Self,$Pos1,$Pos2 - $Pos1); $Pos2++;
$Fe = substr($Self,$Pos2)} # Extract the name and extension.
else {$Fn = substr($Self,$Pos1); $Fe = undef}
return(($Fp,$Fn,$Fe));
}
sub Check($)
{
my $Self = shift;
print("\nChecking >$Self<\n");
my ($Path, $Leaf, $Ext) = Fparse($Self);
print("Path >$Path<\n") if (defined($Path));
print("Leaf >$Leaf<\n") if (defined($Leaf));
print("Ext >$Ext<\n") if (defined($Ext));
return(1);
}
Check('123');
Check('123.txt');
Check('123.txt.txt');
------------------------------------------------------------------------
--------------------------------------
Outputs:
c:\temp>ptest
Checking >123<
Leaf >123<
Checking >123.txt<
Leaf >123<
Ext >txt<
Checking >123.txt.txt<
Leaf >123.txt<
Ext >txt<
Dirk Bremer - Senior Systems Engineer - ESS/AMS - NISC Lake St. Louis MO
- USA Central Time Zone
636-755-2652 fax 636-755-2503
[EMAIL PROTECTED]
www.nisc.coop
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
