I'm guessing one can get awfully rusty in a decade ...
Here's a start.
#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11151867 use warnings; open my $fh, '<', 'config.file' or die; my $configlist = join '', <$fh>; close $fh; open $fh, '<', 'gamelist.txt' or die; while( <$fh> ) { chomp; (my $newfile = $configlist) =~ s/floppy0=\K/$_/; open my $outfh, '>', "$_.config" or die; print $outfh $newfile; close $outfh; } close $fh;
It's not complete, for example, the die messages need to be expanded to something reasonable.
In reply to Re: Haven't Scripted in a Decade, need help (gift is probably a better word)!
by tybalt89
in thread Haven't Scripted in a Decade, need help (gift is probably a better word)!
by rickyboy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |