Re^2: Haven't Scripted in a Decade, need help (gift is probably a better word)!

BTW, if a modern perl with Path::Tiny is available, here's how I'd do it.

#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11151867
use warnings;
use Path::Tiny;

my $configlist = path('config.file')->slurp;
path("$_.config")->spew( $configlist =~ s/floppy0=\K/$_/r )
  for path('gamelist.txt')->lines({chomp => 1});
[download]

Short and sweet :)

Comment on Re^2: Haven't Scripted in a Decade, need help (gift is probably a better word)! Download Code