Help with delete an element in array

[Deepu]

Hi All,

I have $key = "SA-SB-SC-SD" separated by '-'
I am trying to delete SC and the output should be
$test="SA-SB-SD".

But when I do as shown below, the output generated is
$test="SA-SB--SD". I am not getting the reason for getting extra
'-'.


$key="SA-SB-SC-SD";

@test=split(/-/,$key);

Delete $test[1];

$test=join '-',@test;

Print $test;


Thanks for the time.

 

[David Squire]

Hi All,

I have $key = "SA-SB-SC-SD" separated by '-'
I am trying to delete SC and the output should be
$test="SA-SB-SD".

But when I do as shown below, the output generated is
$test="SA-SB--SD". I am not getting the reason for getting extra
'-'.


$key="SA-SB-SC-SD";

@test=split(/-/,$key);

Delete $test[1];

$test=join '-',@test;

Print $test;

This won't compile, let alone being safe under "use strict;" and "use
warnings;". Please post your real code. Don't just type in nonsense.


DS

 

[krakle]

Hi All,

I have $key = "SA-SB-SC-SD" separated by '-'
I am trying to delete SC and the output should be
$test="SA-SB-SD".

$test =~ s/\-SC//g;

 

[David Squire]

Hi All,

I have $key = "SA-SB-SC-SD" separated by '-'
I am trying to delete SC and the output should be
$test="SA-SB-SD".

But when I do as shown below, the output generated is
$test="SA-SB--SD". I am not getting the reason for getting extra
'-'.


$key="SA-SB-SC-SD";

@test=split(/-/,$key);

Delete $test[1];

$test=join '-',@test;

Print $test;

This won't compile, let alone being safe under "use strict;" and "use
warnings;". Please post your real code. Don't just type in nonsense.

I'm feeling (a bit) generous. Reading the documentation for the Perl
function 'delete' will tell you what is going on - and point you in the
direction of the function you seem to want: splice.

perldoc -f delete
perldoc -f splice


DS

 

[Deepu]

Thanks for the info. I used Splice now and it works.

I used:

#!/usr/bin/perl

my $key = "SA-SB-SC-SD";
my @test = split (/-/,$key);
splice(@test,1,1);
my $test = join '-',@test;
print $test;

Hi All,

I have $key = "SA-SB-SC-SD" separated by '-'
I am trying to delete SC and the output should be
$test="SA-SB-SD".

But when I do as shown below, the output generated is
$test="SA-SB--SD". I am not getting the reason for getting extra
'-'.


$key="SA-SB-SC-SD";

@test=split(/-/,$key);

Delete $test[1];

$test=join '-',@test;

Print $test;

This won't compile, let alone being safe under "use strict;" and "use
warnings;". Please post your real code. Don't just type in nonsense.

I'm feeling (a bit) generous. Reading the documentation for the Perl
function 'delete' will tell you what is going on - and point you in the
direction of the function you seem to want: splice.

perldoc -f delete
perldoc -f splice


DS

 

[David Squire]

Deepu wrote:

[top--posting corrected. Please don't do that.]

Deepu wrote:
Hi All,

I have $key = "SA-SB-SC-SD" separated by '-'
I am trying to delete SC and the output should be
$test="SA-SB-SD".

But when I do as shown below, the output generated is
$test="SA-SB--SD". I am not getting the reason for getting extra
'-'.


$key="SA-SB-SC-SD";

@test=split(/-/,$key);

Delete $test[1];

$test=join '-',@test;

Print $test;
This won't compile, let alone being safe under "use strict;" and "use
warnings;". Please post your real code.

[snip]

perldoc -f delete
perldoc -f splice


DS

Thanks for the info. I used Splice now and it works.

Good. Please get into the habit of reading the documentation *before*
posting here.

I used:

#!/usr/bin/perl

missing:

use strict; # though your code is indeed now strict-safe. Thanks for that.
use warnings;

my $key = "SA-SB-SC-SD";

no need for double-quotes here.

my @test = split (/-/,$key);
splice(@test,1,1);
my $test = join '-',@test;
print $test;

Just FYI, this will also work in your case:

my $pos_to_replace = 1;
$key =~ s/(([A-Z]{2}-){$pos_to_replace})[A-Z]{2}-/$1/;


DS

 

[David Squire]

my $key = "SA-SB-SC-SD";

[snip]

Just FYI, this will also work in your case:

my $pos_to_replace = 1;
$key =~ s/(([A-Z]{2}-){$pos_to_replace})[A-Z]{2}-/$1/;

Actually, no This will fail if you try to replace this last element
of $key.


DS