Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 214
  • Last Modified:

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;
}
0
Europa MacDonald
Asked:
Europa MacDonald
  • 2
1 Solution
 
ozoCommented:
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

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now