Someone
public text v1 · immutable#!/usr/bin/perl
print "Filename: ";
chomp(my $filename = <STDIN>);
my @text;
open FILE, '<', $filename;
if(! -e FILE){
print "$filename does not exist.\n:: Please enter correct filename.\n";
die
}
else etc...#!/usr/bin/perl
print "Filename: ";
chomp(my $filename = <STDIN>);
my @text;
open FILE, '<', $filename;
if(! -e FILE){
print "$filename does not exist.\n:: Please enter correct filename.\n";
die
}
else etc...