Strip characters out of a filename.

[pcutler]

Hi,

I tried to search for an answer to this in the forum, but the search feature is down.

I need a script that will shorten “filename_20070405.txt” to “filename_070405.txt”

In other words, I need to strip out the 11th and 12th characters of the filename.

I’m very new to PERL, so thanks for your help.

PC

 

[audiopro]

Untested
There are more compact ways but this shows the steps

$file="filename_20070405.txt”

my $start=substr($file,0,9);
my $end=substr($file,11,(length($file)-11));
my $new_filename=$start.$end;

Keith

http://www.studiosoft.co.uk

 

[KevinADC]

or:

[blue]$filename[/blue] = [red]'[/red][purple]filename_20070405.txt[/purple][red]'[/red][red];[/red]
[blue]$filename[/blue] =~ [red]s/[/red][purple]_[purple][b]\d[/b][/purple][purple][b]\d[/b][/purple][/purple][red]/[/red][purple]_[/purple][red]/[/red][red];[/red]
[url=http://perldoc.perl.org/functions/print.html][black][b]print[/b][/black][/url] [blue]$filename[/blue][red];[/red]

------------------------------------------
- Kevin, perl coder unexceptional!