Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

Getting rid of leading .'s?

Oct 8, 2003, 7:11 AM
Andy
Veteran / Moderator (17298 posts)
Andy's avatar
Oct 8, 2003, 7:11 AM
Post #1 of 3
Views: 729
Shortcut
Quote Reply
Getting rid of leading .'s?
Hi. I'm trying to figure out some regex to do the following;

1) Remove any non-standard charachters, and replace them with _ (i.e @!"£$%^&*()- etc)
2) If the file is named file.image.gif, I want to replace the first . with a _. For example;

name.image.gif, would become name_image.gif.

Not all files age going to be like this.. for example;

file.gif
image.jpg

...etc.

Any ideas? i would imagine something like this to get rid of non-words;

$var =~ s/\W/_/gi;

...but I'm confused about the dot part :(

TIA

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates
Oct 8, 2003, 7:41 AM
Wil
Veteran / Moderator (4108 posts)
Oct 8, 2003, 7:41 AM
Post #2 of 3
Views: 719
Shortcut
Quote Reply
Re: [Andy] Getting rid of leading .'s? In reply to
I'd say you're looking for the ^ regex flag that indicates the beginning of the string.

Maybe something like this will get you started.

Code:
if ($_ =~ /^\.(.?)/) {
$_ =~ s/^\.(.?)/$1/;
}

Edit: That . should probably be escaped with a \.

- wil

Last edited by:

Wil: Oct 8, 2003, 7:42 AM
Oct 8, 2003, 7:58 AM
Andy
Veteran / Moderator (17298 posts)
Andy's avatar
Oct 8, 2003, 7:58 AM
Post #3 of 3
Views: 712
Shortcut
Quote Reply
Re: [Wil] Getting rid of leading .'s? In reply to
Thanks, that seems to work like a charm :)

Code:
$img = GT::CGI::escape($img);
if ($img =~ /^\.(.?)/) { $img =~ s/^\.(.?)/$1/; }
$img =~ s/\W//gi;

Cheers

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates