nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

dcrname

rodigz

is there teamsite/perl command that I can grab dcrname using ipl?

eg. /templatedata/SonyLC/article/data/mainfolder/folder/subfolder/subsubfolder/dcrname

Need to grab dcrname. I can use regex but looking for other options.

thanks!

Find more posts tagged with

Comments

Sailesh

is there teamsite/perl command that I can grab dcrname using ipl?

eg. /templatedata/SonyLC/article/data/mainfolder/folder/subfolder/subsubfolder/dcrname

Need to grab dcrname. I can use regex but looking for other options.

thanks!

YOu need to explain your requirement in detail, as at what point you want these dcr names and wether it is part of workflow task or anything...

Migrateduser

His request is quite clear. He wants to get dcrname from the long string that he has supplied.

I myself use regex. It has worked well in the past 4 years.

#Example
my $dcrname = "/templatedata/SonyLC/article/data/mainfolder/folder/subfolder/subsubfolder/s";
$dcrname =~ s|.*/||g; # find the dcr name (without the path)

Sailesh

His request is quite clear. He wants to get dcrname from the long string that he has supplied.

I myself use regex. It has worked well in the past 4 years.

#Example
my $dcrname = "/templatedata/SonyLC/article/data/mainfolder/folder/subfolder/subsubfolder/s";
$dcrname =~ s|.*/||g; # find the dcr name (without the path)

Ahhh.. had a another look at the post and it is clear now..

ISCBorisB

His request is quite clear. He wants to get dcrname from the long string that he has supplied.

I myself use regex. It has worked well in the past 4 years.

#Example
my $dcrname = "/templatedata/SonyLC/article/data/mainfolder/folder/subfolder/subsubfolder/s";
$dcrname =~ s|.*/||g; # find the dcr name (without the path)

Alternatively:

use File::Basename;

my $dcrPath = '/templatedata/SonyLC/article/data/mainfolder/folder/subfolder/subsubfolder/dcrname';
printf ("Dir  - %s\nFile - %s\n", dirname($dcrPath), basename($dcrPath));

Adam Stoller

Alternatively:

use File::Basename;

my $dcrPath = '/templatedata/SonyLC/article/data/mainfolder/folder/subfolder/subsubfolder/dcrname';
printf ("Dir  - %s\nFile - %s\n", dirname($dcrPath), basename($dcrPath));

FYI - unless it's changed since last I profiled it - File::Basename does a lot of stuff to work across all different sorts of operating systems and tends to be inefficient performance-wise in comparison to using regex's.

However, if this is called only once per execution and/or performance is not the primary concern, go ahead.

ISCBorisB

FYI - unless it's changed since last I profiled it - File::Basename does a lot of stuff to work across all different sorts of operating systems and tends to be inefficient performance-wise in comparison to using regex's

Nothing changed in 5.8, relatively poor performance is the price for portability. That said, in Perl almost
any string manipulation is "inefficient performance-wise in comparison to using regex's"

nipper

Nothing changed in 5.8, relatively poor performance is the price for portability. That said, in Perl almost
any string manipulation is "inefficient performance-wise in comparison to using regex's"

While the portability is nice, and since I am often lazy, ok always, basename is an easy function to use.

However when it comes to DCRs, IMHO, it is inappropriate.

If I have a file:

templatedata/category/type/data/some/sub/dir/DCR.xml

Often the information I will want is category, type, some/sub/dir, and DCR. Obviously if I use basename I can get the dir and DCR, then I need to regex the dir get the other fields I need.

ISCBorisB

While the portability is nice, and since I am often lazy, ok always, basename is an easy function to use.

However when it comes to DCRs, IMHO, it is inappropriate.

If I have a file:

templatedata/category/type/data/some/sub/dir/DCR.xml

Often the information I will want is category, type, some/sub/dir, and DCR. Obviously if I use basename I can get the dir and DCR, then I need to regex the dir get the other fields I need.

Perhaps, but that's what Rodigz indicated when he started the thread

Need to grab dcrname. I can use regex but looking for other options.

Another option is all I've provided

nipper

Perhaps, but that's what Rodigz indicated when he started the thread, Another option is all I've provided

True, you certainly answered his question. However the discussion we had was also, IMHO, valuable for others who will read the thread. It is also incumbent on us to ask questions like why he is not wanting to use regex.

Andy

rodigz

His request is quite clear. He wants to get dcrname from the long string that he has supplied.

I myself use regex. It has worked well in the past 4 years.

#Example
my $dcrname = "/templatedata/SonyLC/article/data/mainfolder/folder/subfolder/subsubfolder/s";
$dcrname =~ s|.*/||g; # find the dcr name (without the path)

cool. this one with work if the user selects a file but if the selected a folder it will not work. I will just use File::Find;

thanks!

Adam Stoller

cool. this one with work if the user selects a file but if the selected a folder it will not work. I will just use File::Find;

thanks!

Again - this points to not fully explaining what you're trying to do when you made your first post - I believe the regex you were looking for would be something like:

(my $dcr = $fullpath) =~ s|^.*/templatedata/.*?/.*?/data/||;

or broken up for more robustness and with more context for handling different OS's:

...
my $dcr = q();
$fullpath =~ tr|\\|/|;
if ($fullpath =~ m|/templatedata/.*?/.?/data/(.*)$|){
    $dcr = $1;
}
else {
    # whatever is in full path - is not a DCR
    # skip - or error?
}
...