#!/usr/bin/perl -w
use strict;
use warnings;
open FILE, "<".$ARGV[0];
my @LINES = <FILE>;
for(my $i = scalar(@LINES) - 1; $i >= 0; $i--)
{
print $LINES[$i];
}
La teoria è quando si sa tutto ma non funziona niente. La pratica è quando funziona tutto ma non si sa il perché. In ogni caso si finisce sempre con il coniugare la teoria con la pratica: non funziona niente e non si sa il perché
