Pls help me to write a Perl script to address my request:
I have an array of elements, designated as "a, b, c, d, e"
i have another text file, each line has a subset of elements in an order:
a, b, d, f, e
a, d, e, c, d
e, b, c, a, d, c
For each element in the array, pls extract its itself and 2 neighbors at its left and right in the text. For examples for a, it will be
a b d; a d e; b c a d c
for e, it will be
d f e; a d e c d; e b c
Pls give me the perl code
a Perl script to address my request:
#!/usr/bin/perl
use strict;
use warnings;
# Declare an array of elements
my @elements = ('a', 'b', 'c', 'd', 'e');
# Open the text file
open(my $fh, "<", "textfile.txt") or die "Can't open file: $!";
# Read the text file line by line
while (my $line = <$fh>) {
? ? # Split the elements in each line
? ? my @arr = split(/,/, $line);
? ? # Iterate through each element in the array
? ? foreach my $element (@elements) {
? ? ? ? # Find the index of the element
? ? ? ? my $index = 0;
? ? ? ? for (my $i = 0; $i < scalar @arr; $i++) {
? ? ? ? ? ? if ($arr[$i] eq $element) {
? ? ? ? ? ? ? ? $index = $i;
? ? ? ? ? ? ? ? last;
? ? ? ? ? ? }
? ? ? ? }
? ? ? ? # Extract the element and its two neighbors
? ? ? ? my $left_neighbor = ($index - 1 >= 0) ? $arr[$index - 1] : "";
? ? ? ? my $right_neighbor = ($index + 1 < scalar @arr) ? $arr[$index + 1] : "";
? ? ? ? # Print out the result
? ? ? ? print "$left_neighbor $element $right_neighbor; ";
? ? }
? ? print "\n";
}
# Close the text file
close($fh);
