Re: parse filenames

You can use a regex of substr to do this.

my ($numbers) = $file =~ m/(\d{3})$/;
[download]

my $numbers = substr ($file, -3, 3);
[download]

The latter is much faster then the former, but personal preference may dictate which you decide to use.

Comment on Re: parse filenames Select or Download Code

Replies are listed 'Best First'.
Re: Re: parse filenames by CukiMnstr (Deacon) on Apr 12, 2002 at 17:28 UTC
just to be on the safe side (in case the suffix contains letters or is longer than 3 chars): `my $suffix = $file =~ m/\.(.+)$/;` [download] hope it helps,	[reply] [d/l]
Re: Re: Re: parse filenames by ehdonhon (Curate) on Apr 12, 2002 at 19:12 UTC
Make sure the file doesn't have more than one dot.. `my ($suffix) = $file =~ m/([^\.]+)$/;` [download]	[reply] [d/l]