About local($/) !

[sonet]

Which one is better?? Why?
----------------------------------------------------------------------------
---------
my $filename='Template.htm';
open(TEMPLATE, $filename) or die "can't open $filename: $!";
my $template = join('',<TEMPLATE>);
close(TEMPLATE);
print $template;
=====================================================
my $filename='Template.htm';
open(TEMPLATE, $filename) or die "can't open $filename: $!";
local($/) = undef;
my $template = <TEMPLATE>;
close(TEMPLATE);
print $template;

 

[John Bokma]

Which one is better?? Why?
-----------------------------------------------------------------------
----- ---------
my $filename='Template.htm';
open(TEMPLATE, $filename) or die "can't open $filename: $!";
my $template = join('',<TEMPLATE>);
close(TEMPLATE);
print $template;
=====================================================
my $filename='Template.htm';
open(TEMPLATE, $filename) or die "can't open $filename: $!";
local($/) = undef;
my $template = <TEMPLATE>;
close(TEMPLATE);
print $template;

use File::Slurp;

my $text = read_file( 'filename' );

 

[usenet]

Which one is better?? Why?

Is your intent is to read an entire file into a scalar variable but
preserve newline characters within the scalar?

You can use the Swiss Army Knife of all IO:

use IO::All;
my $text = io($filename) -> slurp;

You don't need worry about the record separator if it's "\n".
Otherwise, you can specify whatever separator you want:

my $text = io($filename) -> seperator("\t") -> slurp; #tab separator

This works in either scalar or array context. Basic error handling is
provided by the module.

 

[John W. Krahn]

Which one is better?? Why?
----------------------------------------------------------------------------
---------
my $filename='Template.htm';
open(TEMPLATE, $filename) or die "can't open $filename: $!";
my $template = join('',<TEMPLATE>);
close(TEMPLATE);
print $template;
=====================================================
my $filename='Template.htm';
open(TEMPLATE, $filename) or die "can't open $filename: $!";
local($/) = undef;
my $template = <TEMPLATE>;
close(TEMPLATE);
print $template;

read TEMPLATE, my $template, -s TEMPLATE;



John