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