Meg tudnátok mondani, hogy mire szogál/mit csinál ez a script?

use strict;

use warnings;

die "Usage: $0 filename\n" unless scalar(@ARGV) == 1;

my $filename = $ARGV[0];

# you can use whatever you want for the filehandle instead of OUTFILE

open(OUTFILE, "> $filename")

or die "Failed to open file '$filename' for writing: $!\n";

for (my $i = 0; $i < 10; $i++)

{

my $lineNum = $i + 1;

print OUTFILE "This is line $lineNum\n";

}

close(OUTFILE)

or warn "Failed to close file '$filename': $!\n";

# Now read back the file that was written: visszaolvassa a megírt fájlt

print "Contents of the file ('$filename') that was written\n";

open(INFILE, "< $filename")

or die "Failed to open file '$filename' for reading: $!\n";

while (<INFILE>)

{

chomp(); # remove the end-of-line character törli a sor végi karaktert

my $line = $_;

print "$line\n";

}

close(INFILE)

or warn "Failed to close file '$filename': $!\n";