http://qs321.pair.com?node_id=1231785


in reply to Pattern replace in a file name

A pattern like [.0-9]+ will detect a sequence of digits and dots, also including something like 0.000.0, probably undesirably so. For your examples it would work, full code could be like this: 

use strict;
use warnings;

my @f = qw( 
    /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/ 
);

s|(/[.0-9]+)/.*|$1| for @f;

print "$_\n" for @f;

[download]

Replies are listed 'Best First'.
Re^2: Pattern replace in a file name
by kaushik9918 (Sexton) on Mar 28, 2019 at 09:33 UTC

    the problem with your suggestion is it truncates the file path after the first instance of a digit, so my output looks like

    /fd/gfree/tere/frf4

    /fd/gfree/tere/frf4

    /fd/gfree/tere/frf4

    Whereas I wanted the output to be

    /fd/gfree/tere/frf4545/geerg/fds/0.1

    /fd/gfree/tere/frf4545/geerg/dfds/5.9

    /fd/gfree/tere/frf4545/geerg/dsad/02.44

[reply]

      Now that your expected output looks more logical, a simple test can illustrate one possible solution.

      use strict;
use warnings;

use Test::More;

my @data = (
    {
        have => '/fd/gfree/tere/frf4545/geerg/fds/0.1/fsdf/dsakdsa/',
        want => '/fd/gfree/tere/frf4545/geerg/fds/0.1',
    },
    {
        have => '/fd/gfree/tere/frf4545/geerg/dfds/5.9/fdsf/fdsfd/',
        want => '/fd/gfree/tere/frf4545/geerg/dfds/5.9',
    },
    {
        have => '/fd/gfree/tere/frf4545/geerg/dsad/02.44/fdsf/fdsf/',
        want => '/fd/gfree/tere/frf4545/geerg/dsad/02.44',
    },
);

plan tests => scalar @data;

for my $t (@data) {
    $t->{have} =~ s/(\.\d+).*?$/$1/;
    is $t->{have}, $t->{want};
}

      [download]
[reply]
[d/l]

        Perfect! Thanks for your time. Your solution works perfectly for me.

[reply]

      If you look at the code I posted you see that I have a couple of / in it in addition to the regex I mention in the text. So the code really looks for a sequence of digits and dots between two slashes. It is true it would truncate the path after the first occurrence of such a pattern.

[reply]

In Section Seekers of Perl Wisdom