Help for this page

Select Code to Download


  1. or download this
            open(FILE,"/home/kyleyankan/public_html/content/$_");
        @content = <FILE>;
...
        while (@content) {
                $stuff .= $_;
        }
  2. or download this
       open(FILE,"/home/kyleyankan/public_html/content/$_");
   my   $stuff = join'', <FILE>;
  3. or download this
    my $stuff = do{ 
    local *ARGV, $/;
    @ARGV = "/home/kyleyankan/public_html/content/$_";
    <>;
};
  4. or download this
     
open FILE, "< path/$_"  
    or warn "Error on $_: $!;