Nakul
BAN USERSimple perl program for this
#! /usr/local/bin/perl -w
use strict;
my @input_array = (8,7,9);
my $number;
foreach my $value (@input_array){
$number = $number.$value;
}
$number = $number + 1;
my @final_array = split(//,$number);
foreach my $val (@final_array){
print "$val\n";
}
Here is the code for the file comparison
#! /usr/bin/perl
use strict;
use warnings;
print("Enter Primary File path\n");
my $p_file = <STDIN>;
chomp($p_file);
if(!-e $p_file){
print("Input Primary file does not exist\n");
}
print("Enter Secondary File path\n");
my $s_file = <>;
chomp($s_file);
if(!-e $s_file){
print("Input Secondary File does not exist\n");
}
open (FILE1, $p_file) || die ("Can't open file $p_file for reading\n");
open (FILE2, $s_file) || die ("Can't open file $s_file for reading\n");
my @file1 = <FILE1>;
my @file2 = <FILE2>;
foreach my $line (@file2) {
if(grep(/$line/,@file1)) {
next;
} else {
print("Files are different.\n");
exit;
}
}
foreach my $line (@file1) {
if(grep(/$line/,@file2)) {
next;
} else {
print("Files are different.\n");
exit;
}
}
print("Both the input files are same\n");
close (FILE1) || die ("Can't close file $p_file for reading\n");
close (FILE2) || die ("Can't close file $s_file for reading\n");
Here is the perl pgm to do this
- Nakul July 24, 2017my $string = "Hi this is a string";
my @arr = split(/\s+/,$string);
foreach my $word (@arr) {
my $b = reverse $word;
print "$b ";
}