text formatting ?

[loosecannon1]

Hi All -

I need to insert a dash before the third to the last character of several strings.

For example:

Currently --> @array1 = qw(A-12001 A-1001 A-321001);

I Need --> @array2 = qw(A-12-001 A-1-001 A-321-001);

Any suggestions are appreciated.

 

[shagymoe]

This works:

@array1 = qw(A-12001 A-1001 A-321001);

foreach $element (@array1) {

$element=~s/(.+)(.{3})/$1-$2/ig;
push(@array2, $element);
}

foreach $one (@array2) {
print "$one\n";
}

Shagy

 

[shagymoe]

Actually, if you want to leave @array1 intact and not change the values, you need to do this:

@array1 = qw(A-12001 A-1001 A-321001);

foreach $element (@array1) {

$element=~/(.+)(.{3})/;
$new_element="$1-$2";
push(@array2, $new_element);
}

foreach $one (@array2) {
print "$one\n";
}

 

[justice41]

Another possibility

my @array2 = map { substr $_, -3, 0, '-'; $_ } @array1;

jaa

 

[loosecannon1]

Thanks for all the suggestions!