Perl help

[Allanm]

Hi ALL,

I have a piece of perl code which makes a http call to a URL and in return gets a bunch of data related to application version.

There is a string which gets returned from the http call -

"BuildVersion" = "/tmp/maven-build-nHNMkWwtlz/applicationABC-20101029-105300-31abb9224ff046fe84f3914293a8cae0";

I have made a piece of code which returns this information for me but I need it to return just "maven-build-.....cae0" and not /tmp.

Here is the snippet of the code -

my $BV = $httpmethod->objectForKey("BuildVersion");
if ($BV && $$BV) {
if ($version) {
$version .= ", ";
}
$BV = $BV->UTF8String();
$version .= "BV=$BV";

I want the output to return -

BuildVersion = "maven...."

Thanks,
Allan.

[Horia Chirculescu]

Hello Allan,

Just add:

print "BuildVersion=";
$BV =~ m/^\/(.*)\/(.*)\/(.*)/;

print $2;
print "\/";
print $3;

$OUT = "BuildVersion=".$2."\/".$3;

in $OUT var. you would have the string you are looking for.

Best regards
Horia.

[James R. Ferguson]

Hi Allan:

# BV='"BuildVersion" = "/tmp/maven-build-nHNMkWwtlz/applicationABC-20101029-105300-31abb9224ff046fe84f3914293a8cae0"'

# echo ${X} | perl -nle 'm{(".*[^"]\s*=\s*")/.*?/(.*)} and print "$1$2"'
"BuildVersion" = "maven-build-nHNMkWwtlz/applicationABC-20101029-105300-31abb9224ff046fe84f3914293a8cae0"

Regards!

...JRF...

[Horia Chirculescu]

@James:

># echo ${X} | ...

This is a shell code. Please provide a perl code, as Allan asked from the first time.

Best regards
Horia.

[James R. Ferguson]

@ Horia:

> @James: ># echo ${X} | ...This is a shell code. Please provide a perl code, as Allan asked from the first time.

I'll leave that to Allan to decide what helps him or doesn't. I don't need to be told what to post and what not to post.

If you look more closely at what I posted, the only shell code is the 'echo' into a pipe for Perl to read from its STDIN.

...JRF...

[Horia Chirculescu]

>the only shell code is the 'echo' into a pipe for Perl to read from its STDIN.

Of course, this is it. This is a shell code.

My point was that you assumed too much. Maybe Allan really needed a plain perl code. Maybe he does not know at all how to write a script in shell code.

If someone is asking for help, he expects to receive what he asked for.

Best regards,
Horia.

[James R. Ferguson · Accepted solution]

Hi (again) Allan:

See if this addresses your need more directly:

#!/usr/bin/perl
use strict;
use warnings;
my $BV=q("BuildVersion" = "/tmp/maven-build-nHNMkWwtlz/applicationABC-20101029-105300-31abb9224ff046fe84f3914293a8cae0");
print "BEFORE: $BV\n";
$BV =~ s{(".*[^"]\s*=\s*")/.*?/(.*)}{$1$2};
print "AFTER : $BV\n";
1;

Regards!

...JRF...

[Horia Chirculescu]

Thank you for understanding, James.

Have a nice day.
Horia.

[Allanm]

Thanks JRF!

I am able get the BV but only thing is that I want /tmp/ removed...

Regards,
Allan.

[Horia Chirculescu]

>I want /tmp/ removed...

Have you tried my piece of script?

Best regards
Horia.

[Horia Chirculescu]

.. just to be clear: The piece of code JRF provided should work as expected (like mine, /tmp/ should be removed...).

Best regards,
Horia.