can this code produce named files ?

the code below does exactly what I need it to do

other than, I would like the files that it produces to be named with the extension .vim

Could you help with this please ?

#!/usr/bin/perl
use strict;
use warnings;
@ARGV=('master.vim') unless @ARGV; # read from master.vim if no file specified on command line
my $f='';
while( <> ){
    /(\d+)/ and $1 ne $f and $f=$1 , (open STDOUT,">>",$f or warn "$f $!");
    print;
}
Europa MacDonaldChief slayer of dragonsAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
ozoConnect With a Mentor Commented:
open STDOUT,">>$f.vim"
0
 
Europa MacDonaldChief slayer of dragonsAuthor Commented:
its not working - the error is flashing too fast for me to make out what it is

#!/usr/bin/perl
use strict;
use warnings;
@ARGV=('master.vim') unless @ARGV; # read from master.vim if no file specified on command line
my $f='';
while( <> ){
    /(\d+)/ and $1 ne $f and $f=$1 , (open STDOUT,">>",$f.vim or warn "$f.vim $!");
    print;
}
0
 
ozoCommented:
">>",$f.vim  is not the same as ">>$f.vim"
I said
open STDOUT,">>$f.vim"
although you can also say
open STDOUT,">>","$f.vim"
0
All Courses

From novice to tech pro — start learning today.