Help for this page

Select Code to Download


  1. or download this
    open FILE, "C:/Users/Admin/Desktop/Books/read.txt" or die "Can't open 
+: $!\n";

@content = <FILE>;
...
$last = pop(@content);

print "\n".$last. "\n";
  2. or download this
    open FILE, "C:/Users/Admin/Desktop/Books/read.txt" or die "Can't open 
+: $!\n";

@content = <FILE>;
...
$last = pop(@content);

print "\n".$last. "\n";