easy extension replace

[edog1]

I have a directory that has some files named nnnn.xxx.aaa

these files are in an array and after I do some stuff, I need to ftp them to another server with the .aaa extension removed (nnnn.xxx). I thought I could split on . i have something like :

@files = system("ls *.xxx.aaa"
foreach $files (@files){
@file_name = split(/\./, $files);
print "$file_name[0].[1]";
}

no go, whats up, In sed I would just s/.aaa//, don't make me do sumting like system("echo $files|cut -d . -c1-2"

thanks in advance

 

[justice41]

I don't see why you couldn't just do

foreach $files (@files){
     $files =~ s/\.aaa$//;
     # etc...
}

The reason that your posted code didn't work was because you need to specify the array name each time you index it:
[tt]
foreach $files (@files){
         @file_name = split(/\./, $files);
         print "$file_name[0].$file_name[1]";
}
[/tt]
you could also use a join statement on an array slice

print join '.', @file_name[0..$#file_name-1]

which would allow for names like 'nnn.nnn.xxx.aaa'.

jaa

 

[PaulTEG]

opendir DIR, ".";
@files=readdir DIR;
closedir DIR;
foreach $file (@files){
         ($file_a = $file) =~ s/.pl//;
         print "[$file_a]\n";
}

This does some of what you ask now its time for a pint!
;> Paul