CODEWITHSUNDEEP
perl
CorDell
CorDell

Reputation: 57

How to read the contents of a file

I am confused on how to read the contents of a text file. I'm able to read the files name but can't figure out how to get the contents. By the way the file is encrypted that's why I'm trying to decrypt.

#!/Strawberry/perl/bin/perl

use v5.14;

sub encode_decode {
    shift =~ tr/A-Za-z/Z-ZA-Yz-za-y/r;
}

my ($file1) = @ARGV;

open my $fh1, '<', $file1;

while (<$fh1>) {

    my $enc = encode_decode($file1);

    print my $dec = encode_decode($enc);

    # ... do something with $_ from $file1 ...
}

close $fh1;

Upvotes: 1

Views: 368

Answers (1)

Borodin
Borodin

Reputation: 126722

This line

my $enc = encode_decode($file1)

passes the name of the file to encode_decode

A loop like while ( <$fh1> ) { ... } puts each line from the file into the default variable $_. You've written so yourself in your comment “do something with $_ from $file1 ...”. You probably want

my $enc = encode_decode($_)

And, by the way, your encode_decode subroutine won't reverse its own encoding. You've written what is effectively a ROT25 encoding, so you would have to apply encode_decode 26 times to get back to the original string

It's also worth noting that your shebang line

#!/Strawberry/perl/bin/perl

is pointless on Windows because the command shell doesn't process shebang lines. Perl itself will check the line for options like -w or -i, but you shouldn't be using those anyway. Just omit the line, or if you want to be able to run your program on Linux as well as Windows then use

#!/bin/env perl

which will cause a Linux shell to search the PATH variable for the first perl executable

Upvotes: 1

Related Questions