1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu # Modify the previous program to change every Fred to Wilma and
 4 ffd9a51f 2023-08-04 jrmu # every Wilma to Fred. Now input like fred&wilma should look like
 5 ffd9a51f 2023-08-04 jrmu # Wilma&Fred in the output.
 6 ffd9a51f 2023-08-04 jrmu 
 7 ffd9a51f 2023-08-04 jrmu use warnings;
 8 ffd9a51f 2023-08-04 jrmu use strict;
 9 ffd9a51f 2023-08-04 jrmu use utf8;
10 ffd9a51f 2023-08-04 jrmu 
11 ffd9a51f 2023-08-04 jrmu if (scalar(@ARGV) != 1) {
12 ffd9a51f 2023-08-04 jrmu 	die "Usage: $0 filename";
13 ffd9a51f 2023-08-04 jrmu }
14 ffd9a51f 2023-08-04 jrmu my $filepath = ($ARGV[0] =~ s/.[^.]*\z/.out/r);
15 ffd9a51f 2023-08-04 jrmu open my $fh, ">", $filepath or die "Unable to write to '$filepath': $!";
16 ffd9a51f 2023-08-04 jrmu 
17 ffd9a51f 2023-08-04 jrmu while (<>) {
18 ffd9a51f 2023-08-04 jrmu 	chomp;
19 ffd9a51f 2023-08-04 jrmu 	s/Fred/\n/ig;
20 ffd9a51f 2023-08-04 jrmu 	s/Wilma/Fred/mig;
21 ffd9a51f 2023-08-04 jrmu 	s/\n/Wilma/mig;
22 ffd9a51f 2023-08-04 jrmu 	print $fh "$_\n";
23 ffd9a51f 2023-08-04 jrmu }