[nicpon]

Hey I'm looking for perl version of php's file_get_contents?
THanks,

[tantra71]

$path = "c:\\somewhere";
$fn = "filename.txt";
$fp = "$path\\$fn\n";
print "i will read this:$fp";

$tartalom=&file_get_contents($fp);
print "$tartalom\n";

system("pause");

sub file_get_contents{
my $filename = $_[0];
open(INFO, $filename);
@lines = <INFO>;
close(INFO);
my $string = "";
foreach (@lines){
$string .= $_;
}
return $string;
}