regex on command line 1

[thedaver]

Can someone explain my error?

 perl -e '$foo="baz.com"; $bar=$foo; $bar=~s/\.{2,3}$//; print "$foo\n"; print "$bar\n";'

Should print:
baz.com
baz

instead prints
baz.com
baz.com

Thanks!

D.E.R. Management - IT Project Management Consulting

http://www.dermanagement.com/

 

[readey]

$bar =~ s/^(\w+)\.\w$/$1/ should do it. Your expression is expecting to sub 2 or 3 dots for nothing

 

[thedaver]

readey, your solution didn't right straight away, but it made me realize my error. This worked:

s/\.\w{2,3}$//

Thanks!
D.

D.E.R. Management - IT Project Management Consulting

http://www.dermanagement.com/