No such thing as a small change | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
Hi I have a text file containing different file names ex : /fd/gfree/tere/frf4545/geerg/fds/0.1/fsdf/dsakdsa/ /fd/gfree/tere/frf4545/geerg/dfds/5.9/fdsf/fdsfd/ /fd/gfree/tere/frf4545/geerg/dsad/02.44/fdsf/fdsf/ ... ... I want to remove the patterns appearing after the decimal numbers. So my output text file should have /fd/gfree/tere//frf4545/geerg//fds/0.1 /fd/gfree/tere//frf4545/geerg//dfds/5.9 /fd/gfree/tere//frf4545/geerg//fds/02.44 ... ... I have tried the following code, but doesnt seem to work. Can anyone help me with shortest code to do this inside a perl subroutine? Pardon my beginner level question at perl coding.
regards In reply to Pattern replace in a file name by kaushik9918
|
|