Programming

@@@@@,£££££,%%%,^^^^,&&&&&&,*****,(((((,))))),------

!!!!!!!,£££££,%%%,^^^^,&&&&&&,*****,(((((,))))),------

#!/usr/local/bin/perl

use strict;
use warnings;

my $filename = "example.txt";

my $found0 = 0;
my $found1 = 0;
my $line0;
my $line1;

open(FILE, "<$filename");

while (<FILE>) {
   my ($lookup, $junk) = split(/,/, $_, 2);
   if ($lookup == $ARGV[0] && $found0 == 0) {
       $found0 = $.;
       $line0 = $_;
   }
   if ($lookup == $ARGV[1] && $found1 == 0) {
       $found1 = $.;
       $line1 = $_;
   }
}
close(FILE);

print "Matched \'$ARGV[0]\' at line $found0\n";
print "Matched \'$ARGV[1]\' at line $found1\n\n";

open(FILE, "<$filename");
while (<FILE>) {
   my $line = $_;
   if ($. == $found0)  {
      print $line1;
   } elsif ($. == $found1) {
      print $line0;
   } else {
      print "$line";
   }
}

close(FILE);

1111,@@@@@,^^^,^^^,^^^,^^^,^^^,^^^,^^^^^
2222,@@@@@,^^^,^^^,^^^,^^^,^^^,^^^,^^^^^
3333,@@@@@,^^^,^^^,^^^,^^^,^^^,^^^,^^^^^
4444,!!!!!,-----,-----,------,------,------,-----,------
5555,@@@@@,^^^,^^^,^^^,^^^,^^^,^^^,^^^^^

$ ./example.pl 2222 4444
Matched '2222' at line 2
Matched '4444' at line 4

1111,@@@@@,^^^,^^^,^^^,^^^,^^^,^^^,^^^^^
4444,!!!!!,-----,-----,------,------,------,-----,------
3333,@@@@@,^^^,^^^,^^^,^^^,^^^,^^^,^^^^^
2222,@@@@@,^^^,^^^,^^^,^^^,^^^,^^^,^^^^^
5555,@@@@@,^^^,^^^,^^^,^^^,^^^,^^^,^^^^^
$