Help for this page

Select Code to Download


  1. or download this
    
#!/usr/local/env Perl5.12
...
print "\n";
print $string + "\n"; # doesn't print anything. (or prints "0")
print "\n";
  2. or download this
    use File::Slurp;

...
    close $fh;
print $content; # doesn't print anything.
  3. or download this
    print"\n";
 open (my $QBF, "QBF.txt");
 while (<$QBF>) {
       print;
 }
  4. or download this
    use File::Slurp;

...
    my $content = <$fh>;
    close $fh;
print $content; # prints now.